w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-01 13:42:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

Decoder now bails out if its busy for more than 30 s.

Browse Source
This commit is contained in:
Joe Taylor 2023-01-02 13:22:40 -05:00
parent 53bbf4bf23
commit c0d327b4be
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
q65w/libq65/q65wa.f90
View File

@ -29,6 +29,7 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
nWTransmitting,result(50) nWTransmitting,result(50)
save save
tsec0=sec_midn()
if(nagain.eq.1) ndepth=3 !Use full depth for click-to-decode if(nagain.eq.1) ndepth=3 !Use full depth for click-to-decode
nkhz_center=nint(1000.0*(fcenter-int(fcenter))) nkhz_center=nint(1000.0*(fcenter-int(fcenter)))
mfa=nfa-nkhz_center+48 mfa=nfa-nkhz_center+48
@ -62,6 +63,8 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
mycall,hiscall,hisgrid,mode_q65,f0,fqso,nkhz_center,newdat, & mycall,hiscall,hisgrid,mode_q65,f0,fqso,nkhz_center,newdat, &
nagain,max_drift,ndepth,datetime,ndop00,idec) nagain,max_drift,ndepth,datetime,ndop00,idec)
call timer('q65b ',1) call timer('q65b ',1)
tsec=sec_midn() - tsec0
if(tsec.gt.30.0) exit !Don't start another decode attempt after t=30 s.
enddo ! icand enddo ! icand
return return