diff --git a/lib/genmsk144.f90 b/lib/genmsk144.f90 index 6b4b844b7..4eaa9e6f7 100644 --- a/lib/genmsk144.f90 +++ b/lib/genmsk144.f90 @@ -91,7 +91,7 @@ subroutine genmsk144(msg0,ichk,msgsent,i4tone,itype,pchk_file,ldpc_msg, & if(message(1:1).eq.'<') then call genmsk40(message,msgsent,ichk,i4tone,itype,pchk_file, & - fname1,fname2) + fname1,fname2,encodeExeFile) if(itype.lt.0) go to 999 i4tone(41)=-40 go to 999 diff --git a/lib/genmsk40.f90 b/lib/genmsk40.f90 index d04eb454e..75f3b6392 100644 --- a/lib/genmsk40.f90 +++ b/lib/genmsk40.f90 @@ -1,10 +1,11 @@ -subroutine genmsk40(msg,msgsent,ichk,itone,itype,pchk_file,fname1,fname2) +subroutine genmsk40(msg,msgsent,ichk,itone,itype,pchk_file,fname1,fname2,encodeExeFile) use hashing character*22 msg,msgsent,hashmsg character*32 cwstring character*2 cwstrbit character*4 crpt,rpt(0:15) + character*512 encodeExeFile character*512 pchk_file,gen_file character*512 pchk_file40,gen_file40 character*120 fname1,fname2 @@ -57,7 +58,7 @@ subroutine genmsk40(msg,msgsent,ichk,itone,itype,pchk_file,fname1,fname2) write(24,1010) message 1010 format(16i1) close(24) - cmnd='encode "'//trim(pchk_file40)//'" "'//trim(gen_file40)//'" "' & + cmnd=trim(encodeExeFile)//' "'//trim(pchk_file40)//'" "'//trim(gen_file40)//'" "' & //trim(fname1)//'" "'//trim(fname2)//'"' call system(cmnd) open(24,file=fname2,status='old') diff --git a/lib/msk144sim.f90 b/lib/msk144sim.f90 index bcae4c3a7..5368b41c9 100644 --- a/lib/msk144sim.f90 +++ b/lib/msk144sim.f90 @@ -5,6 +5,7 @@ program msk144sim real pings(0:NMAX-1) real waveform(0:NMAX-1) character arg*8,msg*22,msgsent*22,fname*40 + character*512 encode_exe_file character*512 pchk_file character*512 ldpc_msg_file real wave(0:NMAX-1) !Simulated received waveform @@ -38,7 +39,8 @@ program msk144sim h=default_header(12000,NMAX) ichk=0 - call genmsk144(msg,ichk,msgsent,itone,itype,pchk_file,ldpc_msg_file) + encode_exe_file="./encode " + call genmsk144(msg,ichk,msgsent,itone,itype,pchk_file,ldpc_msg_file,encode_exe_file) twopi=8.d0*atan(1.d0) nsym=144