sff_GetN()

integer function sff_GetN

(

character

wid2line

)

Definition at line 92 of file fapid_sff_getwid2values.f.

c
c  extract number of samples
c
      character wid2line*132
cE
      integer n
      character wid2decoded*132
c
      call sff_helper_decode_wid2(wid2line, wid2decoded)
c 
      read(wid2decoded(49:56),'(i8)') n
      sff_getn = n
      return