From e60bab8a3dd29ecb4722db2118065346102c99b6 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 19 Oct 2016 20:06:09 +0000 Subject: [PATCH] Commit the intended version of hspec. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7203 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/hspec.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/hspec.f90 b/lib/hspec.f90 index 8455a9be4..6327690f8 100644 --- a/lib/hspec.f90 +++ b/lib/hspec.f90 @@ -80,9 +80,10 @@ subroutine hspec(id2,k,nutc0,ntrpdepth,nrxfreq,ntol,bmsk144,ingain, & tt1=sum(float(abs(id2(k0:k0+3583)))) k0=k-3584 tt2=sum(float(abs(id2(k0:k0+3583)))) - if(tt.eq.0.0 .or. tt2.eq.0) print*,k,k/12000.0 - call mskrtd(id2(k-7168+1:k),nutc0,tsec,ntol,nrxfreq,ndepth, & - mycall,hiscall,bshmsg,line1) + if(tt.ne.0.0 .and. tt2.ne.0) then + call mskrtd(id2(k-7168+1:k),nutc0,tsec,ntol,nrxfreq,ndepth, & + mycall,hiscall,bshmsg,line1) + endif endif endif