mirror of https://github.com/saitohirga/WSJT-X.git
Remove diagnostic print.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6742 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
143736129b
commit
4425a5aad9
|
@ -8,11 +8,15 @@ subroutine fast_decode(id2,narg,line)
|
||||||
real psavg(450)
|
real psavg(450)
|
||||||
logical pick
|
logical pick
|
||||||
character*6 cfile6
|
character*6 cfile6
|
||||||
character*80 line(100),pchk_file
|
character*80 line(100)
|
||||||
|
character*80 pchk_file,gen_file
|
||||||
save npts
|
save npts
|
||||||
|
|
||||||
pchk_file=line(1)
|
pchk_file=line(1)
|
||||||
print*,pchk_file
|
i=index(pchk_file,".pchk")
|
||||||
|
gen_file=pchk_file(1:i-1)//".gen"
|
||||||
|
! print*,pchk_file
|
||||||
|
! print*,gen_file
|
||||||
|
|
||||||
nutc=narg(0)
|
nutc=narg(0)
|
||||||
ndat0=narg(1)
|
ndat0=narg(1)
|
||||||
|
|
Loading…
Reference in New Issue