Starting to implement the hooks for interfacing to QRA mode.

Pass file path for peg-128 files to fast_decode().  (Inelegant, but it works.)


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6741 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2016-06-08 21:20:58 +00:00
parent 3cefe5edbb
commit 1103601ea7
6 changed files with 74 additions and 15 deletions
+4 -1
View File
@@ -8,9 +8,12 @@ subroutine fast_decode(id2,narg,line)
real psavg(450)
logical pick
character*6 cfile6
character*80 line(100)
character*80 line(100),pchk_file
save npts
pchk_file=line(1)
print*,pchk_file
nutc=narg(0)
ndat0=narg(1)
nsubmode=narg(2)