w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-09-27 23:56:33 -04:00
Code Issues Packages Projects Releases Wiki Activity

Comment out diagnostic write.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7930 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-07-20 19:25:08 +00:00
parent 556525702a
commit fc5e10fc08
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/ft8_decode.f90
View File

@ -87,10 +87,10 @@ contains
call jtmsg(message,iflag) call jtmsg(message,iflag)
if(iand(iflag,16).ne.0) message(22:22)='?' if(iand(iflag,16).ne.0) message(22:22)='?'
if(iand(iflag,15).eq.0) then if(iand(iflag,15).eq.0) then
write(81,1004) nutc,ncand,icand,ipass,iaptype,iap,iera, & ! write(81,1004) nutc,ncand,icand,ipass,iaptype,iap,iera, &
iflag,nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), & ! iflag,nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), &
xdt,nint(f1),message ! xdt,nint(f1),message
flush(81) ! flush(81)
if(associated(this%callback)) then if(associated(this%callback)) then
call this%callback(sync,nsnr,xdt,f1,iap,iera,message) call this%callback(sync,nsnr,xdt,f1,iap,iera,message)
endif endif