w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'release-2.1.0' of bitbucket.org:k1jt/wsjtx into release-2.1.0

Browse Source
This commit is contained in:
Joe Taylor 2019-05-23 11:17:20 -04:00
commit 37291ff64c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/jt9.f90
View File

@ -226,7 +226,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 if(mode.eq.5) npts=21*3456
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