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

add msksim.f90

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6486 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-02-23 02:48:27 +00:00
parent c5d044712e
commit 8e35c367dc
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lib/ldpc/msksim.f90 Normal file
View File

@ -0,0 +1,23 @@
program msksim
use, intrinsic :: iso_c_binding
parameter (N=128, M=46, K=82)
character(1) message(1:K)
character(1) codeword(1:N)
character(1) decoded(1:N)
real lratio(N), bitprobs(N)
character(1) pchk
write(*,*) "calling init_ldpc"
call init_ldpc()
message(1:K)=char(0)
write(*,*) "message: ",message
write(*,*) "calling ldpc_encode"
call ldpc_encode(message,codeword)
write(*,*) "codeword: ",codeword
call ldpc_decode(lratio, decoded, pchk, bitprobs)
write(*,*) decoded
end program msksim