w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Both msk144 and msk40 messages work now. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6971 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-07-30 01:42:46 +00:00
parent 0f49f343f6
commit 6ab1310bc5
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/genmsk144.f90
View File

@ -48,12 +48,13 @@ subroutine genmsk144(msg0,ichk,msgsent,i4tone,itype,pchk_file)
data first/.true./
save
i=index(pchk_file,".pchk")
gen_file=pchk_file(1:i-1)//".gen"
call init_ldpc(trim(pchk_file)//char(0),trim(gen_file)//char(0))
if( first ) then
first=.false.
nsym=128
i=index(pchk_file,".pchk")
gen_file=pchk_file(1:i-1)//".gen"
call init_ldpc(trim(pchk_file)//char(0),trim(gen_file)//char(0))
pi=4.*atan(1.0)
twopi=8.*atan(1.0)
do i=1,12

4
lib/genmsk40.f90
View File

@ -67,8 +67,8 @@ subroutine genmsk40(msg,msgsent,ichk,itone,itype)
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