w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-12-24 11:40:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove diagnostic print.

Browse Source 
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:
Joe Taylor 2016-06-08 21:25:11 +00:00
parent 143736129b
commit 4425a5aad9
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/fast_decode.f90
View File

@ -8,11 +8,15 @@ subroutine fast_decode(id2,narg,line)
real psavg(450)
logical pick
character*6 cfile6
character*80 line(100),pchk_file
character*80 line(100)
character*80 pchk_file,gen_file
save npts
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)
ndat0=narg(1)