comicsansg
/
ft8d
mirror of https://github.com/pavel-demin/ft8d.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add date to output format

This commit is contained in:
Pavel Demin 2018-10-16 09:29:38 +02:00
parent 12783a5db6
commit e4fcf6a2d0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ft8d.f90
View File

@ -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,datetime*13,message*22,msg37*37 character infile*80,date*6,message*22,msg37*37
character msgcall*12, msggrid*4 character msgcall*12, msggrid*4
real s(NFFT1,NHSYM) real s(NFFT1,NHSYM)
real sbase(NFFT1) real sbase(NFFT1)
@ -36,7 +36,7 @@ program ft8d
close(10) close(10)
j2=index(infile,'.c2') j2=index(infile,'.c2')
read(infile(j2-6:j2-1),*) nutc read(infile(j2-6:j2-1),*) nutc
datetime=infile(j2-13:j2-1) date=infile(j2-13:j2-8)
do ipart=1,4 do ipart=1,4
ndecodes=0 ndecodes=0
ndepth=1 ndepth=1
@ -58,9 +58,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) nutc+15*(ipart-1),min(sync,999.0),nint(xsnr), & write(*,1004) date,nutc+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(i6.6,f6.1,i4,f6.2,i9,1x,a12,1x,a4) 1004 format(a6,1x,i6,f6.1,i4,f6.2,i9,1x,a12,1x,a4)
endif endif
enddo enddo
enddo ! ipart loop enddo ! ipart loop