Add some more items to the lun 81 diagnostics.

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

View File

@ -82,9 +82,10 @@ contains
call timer('ft8b ',1)
if(nbadcrc.eq.0 .and. associated(this%callback)) then
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
!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
enddo
! h=default_header(12000,NMAX)