From 57d898779fd5e1cbfe1160986b5816409bd20b86 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sat, 15 Jul 2017 01:49:44 +0000
Subject: [PATCH] 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
---
 lib/ft8_decode.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90
index 6b7c4ab51..de9bc4fbd 100644
--- a/lib/ft8_decode.f90
+++ b/lib/ft8_decode.f90
@@ -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)