Reset k=0 if sub-mode changes.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2650 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2026-07-25 03:24:24 -04:00 · 2012-10-05 17:41:04 +00:00
parent 7f4bc7aebe
commit 6b800ad459
3 changed files with 7 additions and 4 deletions
@@ -137,8 +137,8 @@ subroutine symspec(k,ntrperiod,nsps,ndiskdat,nb,nbslider,pxdb,s,f0a,df3,    &
  endif

 999 continue
-!  write(71,*) ja,npts8,ja,ja+nfft3,px,rms,pxdb
-!3003 format(5i9,3f11.0)
+!  write(71,3003) k,nsps,ihsym,nfft3,pxdb,df3,s(250)
+!3003 format(4i9,3f11.3)
 !   flush(71)

  return