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

Make the symspec() call in jt9.for consistent with that from mainwindow.cpp.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4932 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-02-04 19:52:37 +00:00
parent 36ad50735b
commit 73a69499e4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/jt9.f90
View File

@ -91,6 +91,7 @@ program jt9
limtrace=0 limtrace=0
lu=12 lu=12
nflatten=1
do iarg = offset + 1, offset + remain do iarg = offset + 1, offset + remain
call get_command_argument (iarg, optarg, arglen) call get_command_argument (iarg, optarg, arglen)
@ -143,7 +144,7 @@ program jt9
! Emit signal readyForFFT ! Emit signal readyForFFT
ingain=0 ingain=0
call timer('symspec ',0) call timer('symspec ',0)
call symspec(k,ntrperiod,nsps,ingain,slope,pxdb,s,df3,ihsym,npts8) call symspec(k,ntrperiod,nsps,ingain,nflatten,pxdb,s,df3,ihsym,npts8)
call timer('symspec ',1) call timer('symspec ',1)
nhsym0=nhsym nhsym0=nhsym
if(ihsym.ge.173) go to 10 if(ihsym.ge.173) go to 10