mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-29 08:36:37 -04:00
Comment out debug write to lun 81.
This commit is contained in:
parent
2a56a19677
commit
6bb23dbe4d
@ -140,11 +140,11 @@ contains
|
|||||||
allmessages(ndecodes)=msg37
|
allmessages(ndecodes)=msg37
|
||||||
allsnrs(ndecodes)=nsnr
|
allsnrs(ndecodes)=nsnr
|
||||||
endif
|
endif
|
||||||
write(81,1004) nutc,ncand,icand,ipass,iaptype,iappass, &
|
! write(81,1004) nutc,ncand,icand,ipass,iaptype,iappass, &
|
||||||
nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), &
|
! nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), &
|
||||||
xdt,nint(f1),msg37,isync
|
! xdt,nint(f1),msg37,isync
|
||||||
1004 format(i6.6,2i4,3i2,i3,3f6.1,i4,f6.2,i5,2x,a37,i4)
|
!1004 format(i6.6,2i4,3i2,i3,3f6.1,i4,f6.2,i5,2x,a37,i4)
|
||||||
flush(81)
|
! flush(81)
|
||||||
if(.not.ldupe .and. associated(this%callback)) then
|
if(.not.ldupe .and. associated(this%callback)) then
|
||||||
qual=1.0-(nharderrors+dmin)/60.0 ! scale qual to [0.0,1.0]
|
qual=1.0-(nharderrors+dmin)/60.0 ! scale qual to [0.0,1.0]
|
||||||
call this%callback(sync,nsnr,xdt,f1,msg37,iaptype,qual)
|
call this%callback(sync,nsnr,xdt,f1,msg37,iaptype,qual)
|
||||||
|
Loading…
Reference in New Issue
Block a user