mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-03-20 19:19:02 -04:00
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:
parent
eeaf36778b
commit
88ae46eb3a
@ -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
|
||||
|
@ -1,4 +1,4 @@
|
||||
//------------------------------------------------------------ MainWindow
|
||||
//------------------------------------------------------------- MainWindow
|
||||
#include "mainwindow.h"
|
||||
#include "ui_mainwindow.h"
|
||||
#include "devsetup.h"
|
||||
|
Loading…
Reference in New Issue
Block a user