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

2019-05-23 11:17:20 -04:00 · 2019-05-23 11:17:20 -04:00 · 37291ff64c
parent 8761ccef9b 932e100a2c
commit 37291ff64c
1 changed files with 1 additions and 1 deletions
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@ -226,7 +226,7 @@ program jt9
     endif

     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
        k=iblk*kstep
        if(mode.eq.8 .and. k.gt.179712) exit