Broke a long line into two, for g77/g95.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@233 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-08-02 21:11:50 +00:00
parent 92850a11f1
commit 73c1bf3715
2 changed files with 3 additions and 2 deletions

View File

@ -1,4 +1,4 @@
#------------------------------------------------------------------ WSJT #------------------------------------------------------------------- WSJT
from Tkinter import * from Tkinter import *
from tkFileDialog import * from tkFileDialog import *

View File

@ -223,7 +223,8 @@ C Intentionally degrade SNR by -nclip dB.
call syncf0(dat,jz,NFreeze,DFTolerance,jstart,f0,smax) call syncf0(dat,jz,NFreeze,DFTolerance,jstart,f0,smax)
call synct(dat,jz,jstart,f0,smax) call synct(dat,jz,jstart,f0,smax)
call syncf1(dat,jz,jstart,f0,NFreeze,DFTolerance,smax,red) call syncf1(dat,jz,jstart,f0,NFreeze,DFTolerance,smax,red)
if(NFreeze.gt.0 .and. abs(f0-f00).gt.float(DFTolerance)) go to 800 if(NFreeze.gt.0 .and. abs(f0-f00).gt.float(DFTolerance))
+ go to 800
f0a=f0 f0a=f0
do i=1,512 do i=1,512