w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-16 09:01:59 -05:00
Code Issues Packages Projects Releases Wiki Activity

Code cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-27 15:51:32 -04:00
parent a41325d596
commit 9643e8a753
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/qra/q65/q65_loops.f90
View File

@ -71,9 +71,12 @@ subroutine q65_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, &
APmask=0 APmask=0
APsymbols=0 APsymbols=0
call q65_dec(s3,APmask,APsymbols,nsubmode,b90,nFadingModel,s3prob,snr2,dat4,irc) call q65_dec(s3,APmask,APsymbols,nsubmode,b90,nFadingModel,s3prob,snr2,dat4,irc)
! irc > 0 ==> number of iterations required to decode
! -1 = invalid params
! -2 = decode failed
! -3 = CRC mismatch
call timer('qra64_de',1) call timer('qra64_de',1)
if(irc.eq.0) go to 200 if(irc.ge.0) go to 200
! if(irc.gt.0) call badmsg(irc,dat4,nc1,nc2,ng2)
iirc=max(0,min(irc,11)) iirc=max(0,min(irc,11))
if(irc.gt.0 .and. nap(iirc).lt.napmin) then if(irc.gt.0 .and. nap(iirc).lt.napmin) then
dat4x=dat4 dat4x=dat4