From 2f2fd030e13f1cb47ca5920c8045863b835c6d98 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 2 Jun 2016 12:41:39 +0000 Subject: [PATCH] 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 --- lib/genmsk144.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/genmsk144.f90 b/lib/genmsk144.f90 index 43f8c7002..4a4e998c2 100644 --- a/lib/genmsk144.f90 +++ b/lib/genmsk144.f90 @@ -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)