comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2025-04-04 10:38:46 -04:00
Code Issues Packages Projects Releases Wiki Activity

add date to output format

Browse Source
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.
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
real s(NFFT1,NHSYM)
real sbase(NFFT1)
@ -36,7 +36,7 @@ program ft8d
close(10)
j2=index(infile,'.c2')
read(infile(j2-6:j2-1),*) nutc
datetime=infile(j2-13:j2-1)
date=infile(j2-13:j2-8)
do ipart=1,4
ndecodes=0
ndepth=1
@ -58,9 +58,9 @@ program ft8d
xdt=xdt-0.5
hd=nharderrors+dmin
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
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
enddo
enddo ! ipart loop