mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-09-02 21:27:52 -04:00
Comment out diagnostic write statement.
This commit is contained in:
parent
20b942b802
commit
ac1d0f837d
@ -419,9 +419,9 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, &
|
|||||||
nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message.
|
nbadcrc=0 ! If we get this far: valid codeword, valid (i3,n3), nonquirky message.
|
||||||
call get_ft8_tones_from_77bits(message77,itone)
|
call get_ft8_tones_from_77bits(message77,itone)
|
||||||
if(lsubtract) call subtractft8(dd0,itone,f1,xdt)
|
if(lsubtract) call subtractft8(dd0,itone,f1,xdt)
|
||||||
write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract, &
|
! write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract, &
|
||||||
f1,xdt,msg37(1:22); flush(21)
|
! f1,xdt,msg37(1:22); flush(21)
|
||||||
3001 format(5i3,L3,f7.1,f7.2,2x,a22)
|
!3001 format(5i3,L3,f7.1,f7.2,2x,a22)
|
||||||
xsig=0.0
|
xsig=0.0
|
||||||
xnoi=0.0
|
xnoi=0.0
|
||||||
do i=1,79
|
do i=1,79
|
||||||
|
Loading…
x
Reference in New Issue
Block a user