Corrected the zero-data test in spec2d.f.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@105 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-01-14 19:44:53 +00:00
parent 3b7727ecc3
commit 8da1823640
2 changed files with 5 additions and 5 deletions

View File

@ -44,10 +44,6 @@ C Accumulate average spectrum for the whole file.
psavg0(i) = psavg0(i)+ real(c(i))**2 + imag(c(i))**2
enddo
enddo
if(sum.eq.0.0) then
sigma=-999.
go to 999
endif
C Normalize and save a copy of psavg0 for plotting. Roll off the
C spectrum at 300 and 3000 Hz.
@ -77,6 +73,10 @@ C Compute an average spectrum from the weakest 25% of time slices.
do i=6,59
sum=sum+ps2(i)
enddo
if(sum.eq.0.0) then
sigma=-999.
go to 999
endif
C Compute a smoothed spectrum without local peaks, and find its max.
smaxx=0.

View File

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