mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-12-24 11:40:31 -05:00
Change formats of diagnostic writes so that GUI and Fortran output can be sorted together.
This commit is contained in:
parent
fedb72a38c
commit
8151816c84
@ -38,6 +38,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
|
|||||||
integer itime(8)
|
integer itime(8)
|
||||||
type(params_block) :: params
|
type(params_block) :: params
|
||||||
real*4 dd(NTMAX*12000)
|
real*4 dd(NTMAX*12000)
|
||||||
|
real*8 tsec
|
||||||
character(len=20) :: datetime
|
character(len=20) :: datetime
|
||||||
character(len=12) :: mycall, hiscall
|
character(len=12) :: mycall, hiscall
|
||||||
character(len=6) :: mygrid, hisgrid
|
character(len=6) :: mygrid, hisgrid
|
||||||
@ -89,12 +90,16 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
|
|||||||
! We're in FT8 mode
|
! We're in FT8 mode
|
||||||
|
|
||||||
call date_and_time(values=itime)
|
call date_and_time(values=itime)
|
||||||
tsec=mod(itime(7)+0.001*itime(8),15.0)
|
tsec=3600.d0*(itime(5)-itime(4)/60.d0) + 60.d0*itime(6) + &
|
||||||
if(tsec.lt.9.0) tsec=tsec+15.0
|
itime(7) + 0.001d0*itime(8)
|
||||||
|
tsec=mod(tsec+2*86400.d0,86400.d0)
|
||||||
|
tseq=mod(itime(7)+0.001*itime(8),15.0)
|
||||||
|
if(tseq.lt.9.0) tseq=tseq+15.0
|
||||||
if(params%nzhsym.eq.41) write(71,3001) ' '
|
if(params%nzhsym.eq.41) write(71,3001) ' '
|
||||||
write(71,3001) 'AA Start',params%nzhsym,nint(ss(1,1)), &
|
sec=itime(7)+0.001*itime(8)
|
||||||
params%nutc,tsec
|
write(71,3001) 'BB decoderStart',tsec,params%nzhsym,nint(ss(1,1)),tseq, &
|
||||||
3001 format(a8,2i6,i8,f8.3,i6)
|
itime(5)-itime(4)/60,itime(6),sec
|
||||||
|
3001 format(a15,f11.3,2i6,f8.3,i4.2,':',i2.2,':',f6.3,i6)
|
||||||
flush(71)
|
flush(71)
|
||||||
|
|
||||||
if(ncontest.eq.6) then
|
if(ncontest.eq.6) then
|
||||||
@ -303,10 +308,14 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
|
|||||||
if(params%nmode.eq.4 .or. params%nmode.eq.65) close(14)
|
if(params%nmode.eq.4 .or. params%nmode.eq.65) close(14)
|
||||||
|
|
||||||
call date_and_time(values=itime)
|
call date_and_time(values=itime)
|
||||||
tsec=mod(itime(7)+0.001*itime(8),15.0)
|
tsec=3600.d0*(itime(5)-itime(4)/60.d0) + 60.d0*itime(6) + &
|
||||||
if(tsec.lt.9.0) tsec=tsec+15.0
|
itime(7) + 0.001d0*itime(8)
|
||||||
write(71,3001) 'CC Done ',params%nzhsym,nint(ss(1,1)), &
|
tsec=mod(tsec+2*86400.d0,86400.d0)
|
||||||
params%nutc,tsec,ndecoded
|
tseq=mod(itime(7)+0.001*itime(8),15.0)
|
||||||
|
if(tseq.lt.9.0) tseq=tseq+15.0
|
||||||
|
sec=itime(7)+0.001*itime(8)
|
||||||
|
write(71,3001) 'DD decoderEnd ',tsec,params%nzhsym,nint(ss(1,1)),tseq, &
|
||||||
|
itime(5)-itime(4)/60,itime(6),sec,ndecoded
|
||||||
flush(71)
|
flush(71)
|
||||||
|
|
||||||
return
|
return
|
||||||
|
@ -41,6 +41,7 @@ contains
|
|||||||
class(ft8_decoder), intent(inout) :: this
|
class(ft8_decoder), intent(inout) :: this
|
||||||
procedure(ft8_decode_callback) :: callback
|
procedure(ft8_decode_callback) :: callback
|
||||||
parameter (MAXCAND=300,MAX_EARLY=100)
|
parameter (MAXCAND=300,MAX_EARLY=100)
|
||||||
|
real*8 tsec
|
||||||
real s(NH1,NHSYM)
|
real s(NH1,NHSYM)
|
||||||
real sbase(NH1)
|
real sbase(NH1)
|
||||||
real candidate(3,MAXCAND)
|
real candidate(3,MAXCAND)
|
||||||
@ -182,10 +183,15 @@ contains
|
|||||||
go to 800
|
go to 800
|
||||||
|
|
||||||
700 call date_and_time(values=itime)
|
700 call date_and_time(values=itime)
|
||||||
tsec=mod(itime(7)+0.001*itime(8),15.0)
|
tsec=3600.d0*(itime(5)-itime(4)/60.d0) + 60.d0*itime(6) + &
|
||||||
if(tsec.lt.9.0) tsec=tsec+15.0
|
itime(7) + 0.001d0*itime(8)
|
||||||
write(71,3001) 'BB Bail ',nzhsym,nint(ss0),nutc,tsec,ndecodes
|
tsec=mod(tsec+2*86400.d0,86400.d0)
|
||||||
3001 format(a8,2i6,i8,f8.3,i6)
|
tseq=mod(itime(7)+0.001*itime(8),15.0)
|
||||||
|
if(tseq.lt.9.0) tseq=tseq+15.0
|
||||||
|
sec=itime(7)+0.001*itime(8)
|
||||||
|
write(71,3001) 'CC Bailout ',tsec,nzhsym,nint(ss0),tseq, &
|
||||||
|
itime(5)-itime(4)/60,itime(6),sec,ndecodes
|
||||||
|
3001 format(a15,f11.3,2i6,f8.3,i4.2,':',i2.2,':',f6.3,i6)
|
||||||
flush(71)
|
flush(71)
|
||||||
|
|
||||||
800 ndec_early=0
|
800 ndec_early=0
|
||||||
|
@ -3096,11 +3096,13 @@ void MainWindow::decode() //decode()
|
|||||||
release_jt9 ();
|
release_jt9 ();
|
||||||
|
|
||||||
auto now = QDateTime::currentDateTimeUtc();
|
auto now = QDateTime::currentDateTimeUtc();
|
||||||
double tseq = fmod(double(now.toMSecsSinceEpoch() ),1000.0*m_TRperiod)/1000.0;
|
double tsec = fmod(double(now.toMSecsSinceEpoch()),86400000.0)/1000.0;
|
||||||
|
double tseq = fmod(double(now.toMSecsSinceEpoch()),1000.0*m_TRperiod)/1000.0;
|
||||||
if(tseq < 0.5*m_TRperiod) tseq+= m_TRperiod;
|
if(tseq < 0.5*m_TRperiod) tseq+= m_TRperiod;
|
||||||
if(m_ihsym==m_earlyDecode) qDebug() << "";
|
if(m_ihsym==m_earlyDecode) qDebug() << "";
|
||||||
qDebug() << "aa Start" << m_ihsym
|
QString t="";
|
||||||
<< QDateTime::currentDateTimeUtc().toString("hh:mm:ss.zzz") << tseq;
|
t.sprintf("aa release_jt9 %11.3f %5d %5d %7.3f ",tsec,m_ihsym,m_ihsym,tseq);
|
||||||
|
qDebug().noquote() << t << QDateTime::currentDateTimeUtc().toString("hh:mm:ss.zzz");
|
||||||
decodeBusy(true);
|
decodeBusy(true);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -3177,10 +3179,13 @@ void MainWindow::decodeDone ()
|
|||||||
if(SpecOp::FOX == m_config.special_op_id()) houndCallers();
|
if(SpecOp::FOX == m_config.special_op_id()) houndCallers();
|
||||||
|
|
||||||
auto now = QDateTime::currentDateTimeUtc();
|
auto now = QDateTime::currentDateTimeUtc();
|
||||||
|
double tsec = fmod(double(now.toMSecsSinceEpoch()),86400000.0)/1000.0;
|
||||||
double tseq = fmod(double(now.toMSecsSinceEpoch() ),1000.0*m_TRperiod)/1000.0;
|
double tseq = fmod(double(now.toMSecsSinceEpoch() ),1000.0*m_TRperiod)/1000.0;
|
||||||
if(tseq < 0.5*m_TRperiod) tseq+= m_TRperiod;
|
if(tseq < 0.5*m_TRperiod) tseq+= m_TRperiod;
|
||||||
qDebug() << "bb Done " << m_ihsym
|
QString t="";
|
||||||
<< QDateTime::currentDateTimeUtc().toString("hh:mm:ss.zzz") << tseq;
|
t.sprintf("ee decodeDone %11.3f %5d %5d %7.3f ",tsec,m_ihsym,m_ihsym,tseq);
|
||||||
|
|
||||||
|
qDebug().noquote() << t << QDateTime::currentDateTimeUtc().toString("hh:mm:ss.zzz");
|
||||||
}
|
}
|
||||||
|
|
||||||
void MainWindow::readFromStdout() //readFromStdout
|
void MainWindow::readFromStdout() //readFromStdout
|
||||||
|
Loading…
Reference in New Issue
Block a user