w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-31 16:38:35 -04:00
Code Issues Packages Projects Releases Wiki Activity

Small improvement in click-to-decode. More work needed.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6977 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-07-30 19:06:19 +00:00
parent a2893f7673
commit 822e73fb76
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/fast_decode.f90
View File

@ -43,6 +43,7 @@ subroutine fast_decode(id2,narg,ntrperiod,bShMsgs,line,pchk_file, &
line(1:100)(1:1)=char(0) line(1:100)(1:1)=char(0)
if(t0.gt.float(ntrperiod)) go to 900 if(t0.gt.float(ntrperiod)) go to 900
if(t0.gt.t1) go to 900
if(nmode.eq.102) then if(nmode.eq.102) then
call fast9(id2,narg,line) call fast9(id2,narg,line)
@ -56,8 +57,10 @@ subroutine fast_decode(id2,narg,ntrperiod,bShMsgs,line,pchk_file, &
id2a=id2 id2a=id2
endif endif
ia=max(1,nint(t0*12000.0)) ia=max(1,nint(t0*12000.0))
ib=min(ndat0,nint(t1*12000.0)) ib=nint(t1*12000.0)
if(ib.gt.ntrperiod*12000) ib=ntrperiod*12000
nz=ib-ia+1 nz=ib-ia+1
! print*,ia,ib,nz,ndat0,t0,t1
if(newdat.eq.1 .or. npick.le.1) then if(newdat.eq.1 .or. npick.le.1) then
call msk144_decode(id2(ia),nz,nutc,0,pchk_file,mycall,hiscall, & call msk144_decode(id2(ia),nz,nutc,0,pchk_file,mycall,hiscall, &
bShMsgs,ntol,t0,line) bShMsgs,ntol,t0,line)