Define the expected file length for FT4 data.

This commit is contained in:
Joe Taylor 2019-04-17 14:03:27 -04:00
parent 5826aefedc
commit 655e0029fd

View File

@ -224,7 +224,7 @@ program jt9
endif endif
shared_data%id2=0 !??? Why is this necessary ??? shared_data%id2=0 !??? Why is this necessary ???
if(mode.eq.5) npts=62208
do iblk=1,npts/kstep do iblk=1,npts/kstep
k=iblk*kstep k=iblk*kstep
if(mode.eq.8 .and. k.gt.179712) exit if(mode.eq.8 .and. k.gt.179712) exit