mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-31 15:47:10 -04:00
Save QuickDecode time in file 'tquick.dat'.
This commit is contained in:
parent
4b0f116219
commit
1642458358
@ -11,7 +11,7 @@ program m65
|
|||||||
! 13 map65.log
|
! 13 map65.log
|
||||||
! 14
|
! 14
|
||||||
! 15
|
! 15
|
||||||
! 16
|
! 16 tquick log
|
||||||
! 17 saved *.tf2 files
|
! 17 saved *.tf2 files
|
||||||
! 18 test file to be transmitted (wsjtgen.f90)
|
! 18 test file to be transmitted (wsjtgen.f90)
|
||||||
! 19 livecq.txt
|
! 19 livecq.txt
|
||||||
|
@ -37,6 +37,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
|
|||||||
data nfile/0/,nutc0/-999/,nid/0/,ip000/1/,ip001/1/,mousefqso0/-999/
|
data nfile/0/,nutc0/-999/,nid/0/,ip000/1/,ip001/1/,mousefqso0/-999/
|
||||||
save
|
save
|
||||||
|
|
||||||
|
call sec0(0,tquick)
|
||||||
nkhz_center=nint(1000.0*(fcenter-int(fcenter)))
|
nkhz_center=nint(1000.0*(fcenter-int(fcenter)))
|
||||||
mfa=nfa-nkhz_center+48
|
mfa=nfa-nkhz_center+48
|
||||||
mfb=nfb-nkhz_center+48
|
mfb=nfb-nkhz_center+48
|
||||||
@ -381,6 +382,11 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
|
|||||||
write(*,1013) nsum,nsave
|
write(*,1013) nsum,nsave
|
||||||
1013 format('<QuickDecodeDone>',2i4)
|
1013 format('<QuickDecodeDone>',2i4)
|
||||||
flush(6)
|
flush(6)
|
||||||
|
call sec0(1,tquick)
|
||||||
|
open(16,file='tquick.dat',status='unknown',access='append')
|
||||||
|
write(16,1016) nutc,tquick
|
||||||
|
1016 format(i4.4,f7.1)
|
||||||
|
close(16)
|
||||||
endif
|
endif
|
||||||
if(nqd.eq.1 .and. nagain.eq.1) go to 900
|
if(nqd.eq.1 .and. nagain.eq.1) go to 900
|
||||||
|
|
||||||
@ -481,9 +487,9 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
|
|||||||
write(26,1014) f0,ndf,ndf0,ndf1,ndf2,dt,npol,nsync1, &
|
write(26,1014) f0,ndf,ndf0,ndf1,ndf2,dt,npol,nsync1, &
|
||||||
nsync2,nutc,decoded,cp,cmode
|
nsync2,nutc,decoded,cp,cmode
|
||||||
1014 format(f8.3,i5,3i3,f5.1,i4,i3,i4,i5.4,4x,a22,2x,a1,3x,a2)
|
1014 format(f8.3,i5,3i3,f5.1,i4,i3,i4,i5.4,4x,a22,2x,a1,3x,a2)
|
||||||
write(21,1016) f0,ndf,dt,npol,nsync2,nutc,decoded,cp, &
|
write(21,1100) f0,ndf,dt,npol,nsync2,nutc,decoded,cp, &
|
||||||
cmode(1:1),cmode(2:2)
|
cmode(1:1),cmode(2:2)
|
||||||
1016 format(f8.3,i5,f5.1,2i4,i5.4,2x,a22,2x,a1,3x,a1,1x,a1)
|
1100 format(f8.3,i5,f5.1,2i4,i5.4,2x,a22,2x,a1,3x,a1,1x,a1)
|
||||||
|
|
||||||
! write(21,1014) f0,ndf,ndf0,ndf1,ndf2,dt,npol,nsync1, &
|
! write(21,1014) f0,ndf,ndf0,ndf1,ndf2,dt,npol,nsync1, &
|
||||||
! nutc,decoded,cp,cmode
|
! nutc,decoded,cp,cmode
|
||||||
|
Loading…
Reference in New Issue
Block a user