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

Remove a diagnostic write.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7004 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-08-04 22:04:07 +00:00
parent 632682ff1e
commit 3781d38286
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/qra64a.f90
View File

@ -64,9 +64,9 @@ subroutine qra64a(dd,nutc,nf1,nf2,nfqso,ntol,mode64,mycall_12,hiscall_12, &
else else
snr2=0. snr2=0.
endif endif
write(78,3900) nutc,snr1,snr2,dtx,nfreq,kpk,idf0,idf1,irc,decoded ! write(78,3900) nutc,snr1,snr2,dtx,nfreq,kpk,idf0,idf1,irc,decoded
3900 format(i4.4,2f6.1,f6.2,i5,4i3,1x,a22) !3900 format(i4.4,2f6.1,f6.2,i5,4i3,1x,a22)
flush(78) ! flush(78)
! write(*,3006) idf0,idf1,nfreq,jpk,kpk,irc,decoded ! write(*,3006) idf0,idf1,nfreq,jpk,kpk,irc,decoded
!3006 format(2i4,i6,i7,2i4,2x,a22) !3006 format(2i4,i6,i7,2i4,2x,a22)
if(irc.ge.0) go to 900 if(irc.ge.0) go to 900