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

View File

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