w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-16 04:32:34 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add some more items to the lun 81 diagnostics.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7891 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-07-15 01:49:44 +00:00
parent c1666a0069
commit 57d898779f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/ft8_decode.f90
View File

@ -82,9 +82,10 @@ contains
call timer('ft8b ',1) call timer('ft8b ',1)
if(nbadcrc.eq.0 .and. associated(this%callback)) then if(nbadcrc.eq.0 .and. associated(this%callback)) then
call this%callback(sync,nsnr,xdt,f1,message) call this%callback(sync,nsnr,xdt,f1,message)
! write(81,3081) ncand,icand,iera,nharderrors,ipass, & ! write(81,3081) ncand,icand,iera,nharderrors,ipass,iap,iaptype, &
! db(sync),f1,xdt,dmin,xsnr,message ! db(sync),f1,xdt,dmin,xsnr,message
!3081 format(2i5,i2,i3,i2,f7.2,f7.1,3f7.2,1x,a22) !3081 format(2i5,i2,i3,i2,i2,i2,f7.2,f7.1,3f7.2,1x,a22)
! flush(81)
endif endif
enddo enddo
! h=default_header(12000,NMAX) ! h=default_header(12000,NMAX)