From 72ff4c5f1b06916b76d89a922034c898c3261e36 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 2 Aug 2006 21:11:50 +0000 Subject: [PATCH] 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 --- wsjt.py | 2 +- wsjt1.F | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/wsjt.py b/wsjt.py index 488c9d8be..9b1830848 100644 --- a/wsjt.py +++ b/wsjt.py @@ -1,4 +1,4 @@ -#------------------------------------------------------------------ WSJT +#------------------------------------------------------------------- WSJT from Tkinter import * from tkFileDialog import * diff --git a/wsjt1.F b/wsjt1.F index a214c3b83..71c4213d6 100644 --- a/wsjt1.F +++ b/wsjt1.F @@ -223,7 +223,8 @@ C Intentionally degrade SNR by -nclip dB. call syncf0(dat,jz,NFreeze,DFTolerance,jstart,f0,smax) call synct(dat,jz,jstart,f0,smax) 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 do i=1,512