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

Cleanup.

Browse Source
This commit is contained in:
Steven Franke 2020-05-04 13:42:42 -05:00
parent 093c403063
commit 1bcf2ff335
2 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/ft8/decode174_91.f90
View File

@ -4,9 +4,8 @@ subroutine decode174_91(llr,Keff,ndeep,apmask,maxsuper,message91,cw,nharderror,i
! !
integer, parameter:: N=174, K=91, M=N-K integer, parameter:: N=174, K=91, M=N-K
integer*1 cw(N),apmask(N) integer*1 cw(N),apmask(N)
integer*1 decoded(K)
integer*1 nxor(N),hdec(N) integer*1 nxor(N),hdec(N)
integer*1 message91(91) integer*1 message91(91),m96(96)
integer nrw(M),ncw integer nrw(M),ncw
integer Nm(7,M) integer Nm(7,M)
integer Mn(3,N) ! 3 checks per bit integer Mn(3,N) ! 3 checks per bit
@ -20,7 +19,6 @@ real Tmn
include "ldpc_174_91_c_reordered_parity.f90" include "ldpc_174_91_c_reordered_parity.f90"
decoded=0
toc=0 toc=0
tov=0 tov=0
tanhtoc=0 tanhtoc=0
@ -60,14 +58,14 @@ zsum=zsum+zn
enddo enddo
! write(*,*) 'number of unsatisfied parity checks ',ncheck ! write(*,*) 'number of unsatisfied parity checks ',ncheck
if( ncheck .eq. 0 ) then ! we have a codeword - if crc is good, return it if( ncheck .eq. 0 ) then ! we have a codeword - if crc is good, return it
decoded=cw(1:K) m96=0
call get_crc14(decoded,91,nbadcrc) m96(1:77)=cw(1:77)
write(*,*) nbadcrc m96(83:96)=cw(78:91)
write(*,'(91i1)') decoded call get_crc14(m96,96,nbadcrc)
nharderror=count( (2*cw-1)*llr .lt. 0.0 ) nharderror=count( (2*cw-1)*llr .lt. 0.0 )
if(nbadcrc.eq.0) then if(nbadcrc.eq.0) then
message91=decoded(1:91) message91=cw(1:91)
dmin=0.0 dmin=0.0
return return
endif endif
endif endif

2
lib/ft8/encode174_91_nocrc.f90
View File

@ -1,6 +1,6 @@
subroutine encode174_91_nocrc(message,codeword) subroutine encode174_91_nocrc(message,codeword)
! !
! Add a 14-bit CRC to a 77-bit message and return a 174-bit codeword ! Encode a 91-bit message and return a 174-bit codeword.
! !
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
use iso_c_binding, only: c_loc,c_size_t use iso_c_binding, only: c_loc,c_size_t