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

Reverse premature commit of modified genmsk40.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6985 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-08-03 13:15:49 +00:00
parent 3cc473c494
commit 60b50ec220
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/genmsk40.f90
View File

@ -5,12 +5,11 @@ subroutine genmsk40(msg,msgsent,ichk,itone,itype,pchk_file)
character*32 cwstring
character*2 cwstrbit
character*4 crpt,rpt(0:63)
character*16 messagestr
character*512 pchk_file,gen_file
character*512 pchk_file40,gen_file40
logical first
integer itone(144)
integer*1 message(16),codeword(32),bitseq(40),codeword2(32)
integer*1 message(16),codeword(32),bitseq(40)
integer*1 s8r(8)
data s8r/1,0,1,1,0,0,0,1/
data first/.true./
@ -62,20 +61,15 @@ subroutine genmsk40(msg,msgsent,ichk,itone,itype,pchk_file)
do i=1,16
message(i)=iand(1,ishft(ig,1-i))
enddo
write(17,'(16i1)') message
call system('./encode peg-32-16-reg3.pchk peg-32-16-reg3.gen fort.17 fort.18')
read(18,'(32i1)') codeword
! call ldpc_encode(message,codeword)
call ldpc_encode(message,codeword)
cwstring=" "
do i=1,32
write(cwstrbit,'(i2)') codeword(i)
cwstring=cwstring//cwstrbit
enddo
write(*,'(a6,i6,2x,a6,i6,2x,a6,i6)') ' msg: ',ig,'rprt: ',irpt,'hash: ',ihash
write(*,'(a6,32i1)') ' cw: ',codeword
! write(*,'(a6,i6,2x,a6,i6,2x,a6,i6)') ' msg: ',ig,'rprt: ',irpt,'hash: ',ihash
! write(*,'(a6,32i1)') ' cw: ',codeword
bitseq(1:8)=s8r
bitseq(9:40)=codeword