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

Let genmsk144 open the .pchk and .gen files from current working directory. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6719 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-06-02 12:41:39 +00:00
parent 05a311be59
commit 2f2fd030e1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/genmsk144.f90
View File

@ -54,8 +54,10 @@ subroutine genmsk144(msg0,ichk,msgsent,i4tone,itype)
first=.false.
nsym=128
!! Fix this
pchk_file="/Users/sfranke/Builds/wsjtx_install/peg-128-80-reg3.pchk"
gen_file="/Users/sfranke/Builds/wsjtx_install/peg-128-80-reg3.gen"
! pchk_file="/Users/sfranke/Builds/wsjtx_install/peg-128-80-reg3.pchk"
! gen_file="/Users/sfranke/Builds/wsjtx_install/peg-128-80-reg3.gen"
pchk_file="peg-128-80-reg3.pchk"
gen_file="peg-128-80-reg3.gen"
call init_ldpc(trim(pchk_file)//char(0),trim(gen_file)//char(0))
pi=4.*atan(1.0)
twopi=8.*atan(1.0)