w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-18 22:48:13 -04:00
Code Issues Packages Projects Releases Wiki Activity

Comment out diagnostic write statement.

Browse Source
This commit is contained in:
Steven Franke 2020-02-17 10:56:47 -06:00
parent 20b942b802
commit ac1d0f837d
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/ft8/ft8b.f90
View File

@ -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