w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Commit the intended version of hspec.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7203 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-10-19 20:06:09 +00:00
parent d99cf93f8c
commit 49b7ac8937
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/hspec.f90
View File

@ -80,11 +80,12 @@ subroutine hspec(id2,k,nutc0,ntrpdepth,nrxfreq,ntol,bmsk144,ingain, &
tt1=sum(float(abs(id2(k0:k0+3583)))) tt1=sum(float(abs(id2(k0:k0+3583))))
k0=k-3584 k0=k-3584
tt2=sum(float(abs(id2(k0:k0+3583)))) tt2=sum(float(abs(id2(k0:k0+3583))))
if(tt.eq.0.0 .or. tt2.eq.0) print*,k,k/12000.0 if(tt.ne.0.0 .and. tt2.ne.0) then
call mskrtd(id2(k-7168+1:k),nutc0,tsec,ntol,nrxfreq,ndepth, & call mskrtd(id2(k-7168+1:k),nutc0,tsec,ntol,nrxfreq,ndepth, &
mycall,hiscall,bshmsg,line1) mycall,hiscall,bshmsg,line1)
endif endif
endif endif
endif
900 return 900 return
end subroutine hspec end subroutine hspec