w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-24 06:28:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Both msk144 and msk40 messages work now.

Browse Source 
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 620cb0e342
commit 9431912289
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./ data first/.true./
save save
if( first ) then
first=.false.
nsym=128
i=index(pchk_file,".pchk") i=index(pchk_file,".pchk")
gen_file=pchk_file(1:i-1)//".gen" gen_file=pchk_file(1:i-1)//".gen"
call init_ldpc(trim(pchk_file)//char(0),trim(gen_file)//char(0)) call init_ldpc(trim(pchk_file)//char(0),trim(gen_file)//char(0))
if( first ) then
first=.false.
nsym=128
pi=4.*atan(1.0) pi=4.*atan(1.0)
twopi=8.*atan(1.0) twopi=8.*atan(1.0)
do i=1,12 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) write(cwstrbit,'(i2)') codeword(i)
cwstring=cwstring//cwstrbit cwstring=cwstring//cwstrbit
enddo enddo
write(*,'(a6,i6,2x,a6,i6,2x,a6,i6)') ' msg: ',ig,'rprt: ',irpt,'hash: ',ihash ! write(*,'(a6,i6,2x,a6,i6,2x,a6,i6)') ' msg: ',ig,'rprt: ',irpt,'hash: ',ihash
write(*,'(a6,32i1)') ' cw: ',codeword ! write(*,'(a6,32i1)') ' cw: ',codeword
bitseq(1:8)=s8r bitseq(1:8)=s8r
bitseq(9:40)=codeword bitseq(9:40)=codeword