w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-10-31 15:47:10 -04:00
Code Issues Packages Projects Releases Wiki Activity

Tweaks to update the diagnostics that are written to fort.21.

Browse Source
This commit is contained in:
Steven Franke 2020-08-21 09:18:59 -05:00 committed by Bill Somerville
parent e02850ae5a
commit b9328b96c9
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/fst4/decode240_101.f90
View File

@ -140,8 +140,9 @@ subroutine decode240_101(llr,Keff,maxosd,norder,apmask,message101,cw,ntype,nhard
hdec=0 hdec=0
where(llr .ge. 0) hdec=1 where(llr .ge. 0) hdec=1
nxor=ieor(hdec,cw) nxor=ieor(hdec,cw)
nharderror=sum(nxor) ! re-calculate nharderror based on input llrs
dmin=sum(nxor*abs(llr)) dmin=sum(nxor*abs(llr))
ntype=1+nosd ntype=1+i
return return
endif endif
enddo enddo

3
lib/fst4/decode240_74.f90
View File

@ -140,8 +140,9 @@ subroutine decode240_74(llr,Keff,maxosd,norder,apmask,message74,cw,ntype,nharder
hdec=0 hdec=0
where(llr .ge. 0) hdec=1 where(llr .ge. 0) hdec=1
nxor=ieor(hdec,cw) nxor=ieor(hdec,cw)
nharderror=sum(nxor) ! nharderror based on input llrs
dmin=sum(nxor*abs(llr)) dmin=sum(nxor*abs(llr))
ntype=1+nosd ntype=1+i
return return
endif endif
enddo enddo

2
lib/fst4/get_fst4_bitmetrics.f90
View File

@ -1,4 +1,4 @@
subroutine get_fst4_bitmetrics(cd,nss,hmod,nmax,nhicoh,bitmetrics,s4,badsync) subroutine get_fst4_bitmetrics(cd,nss,hmod,nmax,nhicoh,bitmetrics,s4,nsync_qual,badsync)
include 'fst4_params.f90' include 'fst4_params.f90'
complex cd(0:NN*nss-1) complex cd(0:NN*nss-1)