Diasble diagnostic writes.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3278 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2013-05-17 01:35:36 +00:00
parent 10581e1ee3
commit a75430865e
2 changed files with 11 additions and 11 deletions

View File

@ -144,9 +144,9 @@ subroutine decoder(ss,c0,nstandalone)
nsnr=nint(snrdb) nsnr=nint(snrdb)
ndrift=nint(drift/df3) ndrift=nint(drift/df3)
write(38,3002) nutc,nqd,nsnr,i,freq,ccfred(i),red2(i), & ! write(38,3002) nutc,nqd,nsnr,i,freq,ccfred(i),red2(i), &
red3(i),schk,nlim,msg ! red3(i),schk,nlim,msg
3002 format(i4.4,i2,i4,i5,f7.1,f5.1,f6.1,2f5.1,i8,1x,a22) !3002 format(i4.4,i2,i4,i5,f7.1,f5.1,f6.1,2f5.1,i8,1x,a22)
if(msg.ne.' ') then if(msg.ne.' ') then
if(nqd.eq.0) ndecodes0=ndecodes0+1 if(nqd.eq.0) ndecodes0=ndecodes0+1
@ -167,8 +167,8 @@ subroutine decoder(ss,c0,nstandalone)
call flush(6) call flush(6)
endif endif
else else
write(38,3002) nutc,nqd,-99,i,freq,ccfred(i),red2(i),red3(i), & ! write(38,3002) nutc,nqd,-99,i,freq,ccfred(i),red2(i),red3(i), &
schk,0 ! schk,0
endif endif
endif endif
enddo enddo
@ -186,11 +186,11 @@ subroutine decoder(ss,c0,nstandalone)
if(nstandalone.eq.0) call timer('decoder ',101) if(nstandalone.eq.0) call timer('decoder ',101)
call system_clock(iclock,iclock_rate,iclock_max) call system_clock(iclock,iclock_rate,iclock_max)
write(39,3001) nutc,nfreqs1,nfreqs0,ndecodes1,ndecodes0+ndecodes1, & ! write(39,3001) nutc,nfreqs1,nfreqs0,ndecodes1,ndecodes0+ndecodes1, &
float(iclock-iclock0)/iclock_rate ! float(iclock-iclock0)/iclock_rate
3001 format(5i8,f10.3) !3001 format(5i8,f10.3)
call flush(38) ! call flush(38)
call flush(39) ! call flush(39)
return return
end subroutine decoder end subroutine decoder

View File

@ -1,4 +1,4 @@
//------------------------------------------------------------ MainWindow //------------------------------------------------------------- MainWindow
#include "mainwindow.h" #include "mainwindow.h"
#include "ui_mainwindow.h" #include "ui_mainwindow.h"
#include "devsetup.h" #include "devsetup.h"