mirror of https://github.com/saitohirga/WSJT-X.git
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:
parent
c1666a0069
commit
57d898779f
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue