mirror of
https://github.com/pavel-demin/ft8d.git
synced 2024-09-27 15:46:57 -04:00
fix time format in ft8d.f90
This commit is contained in:
parent
c00c9ae421
commit
ccc61666ab
8
ft8d.f90
8
ft8d.f90
@ -3,7 +3,7 @@ program ft8d
|
|||||||
! Decode FT8 data read from *.c2 files.
|
! Decode FT8 data read from *.c2 files.
|
||||||
|
|
||||||
include 'ft8_params.f90'
|
include 'ft8_params.f90'
|
||||||
character infile*80,date*6
|
character infile*80,date*6,time*4
|
||||||
character msgcall*6,msggrid*4
|
character msgcall*6,msggrid*4
|
||||||
real s(NFFT1,NHSYM)
|
real s(NFFT1,NHSYM)
|
||||||
real sbase(NFFT1)
|
real sbase(NFFT1)
|
||||||
@ -35,8 +35,8 @@ program ft8d
|
|||||||
read(10,end=999) dialfreq,dd
|
read(10,end=999) dialfreq,dd
|
||||||
close(10)
|
close(10)
|
||||||
j2=index(infile,'.c2')
|
j2=index(infile,'.c2')
|
||||||
read(infile(j2-6:j2-1),*) nutc
|
|
||||||
date=infile(j2-13:j2-8)
|
date=infile(j2-13:j2-8)
|
||||||
|
time=infile(j2-6:j2-3)
|
||||||
do ipart=1,4
|
do ipart=1,4
|
||||||
ndecodes=0
|
ndecodes=0
|
||||||
ndepth=1
|
ndepth=1
|
||||||
@ -57,9 +57,9 @@ program ft8d
|
|||||||
xdt=xdt-0.5
|
xdt=xdt-0.5
|
||||||
hd=nharderrors+dmin
|
hd=nharderrors+dmin
|
||||||
if(nbadcrc.eq.0) then
|
if(nbadcrc.eq.0) then
|
||||||
write(*,1004) date,nutc+15*(ipart-1),min(sync,999.0),nint(xsnr), &
|
write(*,1004) date,time,15*(ipart-1),min(sync,999.0),nint(xsnr), &
|
||||||
xdt,nint(f1-2000+dialfreq),msgcall,msggrid
|
xdt,nint(f1-2000+dialfreq),msgcall,msggrid
|
||||||
1004 format(a6,1x,i6,f6.1,i4,f6.2,i9,1x,a6,1x,a4)
|
1004 format(a6,1x,a4,i2.2,f6.1,i4,f6.2,i9,1x,a6,1x,a4)
|
||||||
endif
|
endif
|
||||||
enddo
|
enddo
|
||||||
enddo ! ipart loop
|
enddo ! ipart loop
|
||||||
|
Loading…
Reference in New Issue
Block a user