w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-15 20:22:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

msksim is set up for (198,72), irregular ldpc.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6565 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-04-01 03:47:17 +00:00
parent 47cb0606bd
commit cbc08a662e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/ldpc/msksim.f90
View File

@ -4,14 +4,14 @@ use, intrinsic :: iso_c_binding
! To change to a new code, edit the following line and the filenames
! that contain the parity check and generator matrices.
parameter (N=128, M=48, K=80) ! M and N are global variables on the C side.
parameter (N=198, M=126, K=72) ! M and N are global variables on the C side.
character(50) pchk_file,gen_file
integer(1) codeword(1:N), decoded(1:K), message(1:K)
real*8 lratio(N), rxdata(N)
pchk_file="./jtmode_codes/peg-128-80-reg3.pchk"
gen_file="./jtmode_codes/peg-128-80-reg3.gen"
pchk_file="./jtmode_codes/peg-198-72-irreg-8x3-2x4.pchk"
gen_file="./jtmode_codes/peg-198-72-irreg-8x3-2x4.gen"
rate=real(K)/real(N)
@ -21,7 +21,7 @@ message(1:K/2)=1
message((K/2+1):K)=0
call ldpc_encode(message,codeword)
max_iterations=10
max_iterations=50
ntrials=1000000
write(*,*) "Eb/N0 ngood nundetected"