From 8e35c367dc0e7016389907d39b816715e69af11b Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Tue, 23 Feb 2016 02:48:27 +0000
Subject: [PATCH] add msksim.f90

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6486 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/ldpc/msksim.f90 | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 lib/ldpc/msksim.f90

diff --git a/lib/ldpc/msksim.f90 b/lib/ldpc/msksim.f90
new file mode 100644
index 000000000..d3ae91b01
--- /dev/null
+++ b/lib/ldpc/msksim.f90
@@ -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