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

fastosd240_74.f90: Fix a couple of typos. No impact on WSJT-X decoding performance.

Browse Source
This commit is contained in:
Steven Franke 2024-01-23 09:47:19 -06:00
parent e205bf0ca6
commit aac9de3e4c
1 changed files with 3 additions and 6 deletions

9
lib/fst4/fastosd240_74.f90

@ -171,15 +171,15 @@ subroutine fastosd240_74(llr,k,apmask,ndeep,message74,cw,nhardmin,dmin)
if( ndeep.eq. 1) then if( ndeep.eq. 1) then
nord=1 nord=1
xlambda=0.0 xlambda=0.0
nsyncmax=np nsyndmax=np
elseif(ndeep.eq.2) then elseif(ndeep.eq.2) then
nord=2 nord=2
xlambda=0.0 xlambda=0.0
nsyncmax=np nsyndmax=np
elseif(ndeep.eq.3) then elseif(ndeep.eq.3) then
nord=3 nord=3
xlambda=4.0 xlambda=4.0
nsyncmax=11 nsyndmax=11
elseif(ndeep.eq.4) then elseif(ndeep.eq.4) then
nord=4 nord=4
xlambda=3.4 xlambda=3.4
@ -190,7 +190,6 @@ subroutine fastosd240_74(llr,k,apmask,ndeep,message74,cw,nhardmin,dmin)
s2=sum(absrx(k+1:N)) s2=sum(absrx(k+1:N))
rho=s1/(s1+xlambda*s2) rho=s1/(s1+xlambda*s2)
rhodmin=rho*dmin rhodmin=rho*dmin
nerr64=-1
do iorder=1,nord do iorder=1,nord
!beta=0.0 !beta=0.0
!if(iorder.ge.3) beta=0.4 !if(iorder.ge.3) beta=0.4
@ -216,7 +215,6 @@ subroutine fastosd240_74(llr,k,apmask,ndeep,message74,cw,nhardmin,dmin)
cw=ce cw=ce
nhardmin=sum(nxor) nhardmin=sum(nxor)
nwhspmin=nwhsp nwhspmin=nwhsp
nerr64=sum(nxor(1:K))
endif endif
endif endif
! Get the next test error pattern, iflag will go negative ! Get the next test error pattern, iflag will go negative
@ -224,7 +222,6 @@ subroutine fastosd240_74(llr,k,apmask,ndeep,message74,cw,nhardmin,dmin)
call nextpat74(mi,k,iorder,iflag) call nextpat74(mi,k,iorder,iflag)
enddo enddo
enddo enddo
998 continue 998 continue
! Re-order the codeword to [message bits][parity bits] format. ! Re-order the codeword to [message bits][parity bits] format.
cw(indices)=cw cw(indices)=cw