comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2025-08-03 14:02:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

update date and time format in ft8d.f90

Browse Source
This commit is contained in:
Pavel Demin 2018-10-20 21:32:04 +02:00
parent ccc61666ab
commit 87ef78a221
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ft8d.f90
View File

@ -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')
date=infile(j2-13:j2-8) date=infile(j2-11:j2-6)
time=infile(j2-6:j2-3) time=infile(j2-4:j2-1)
do ipart=1,4 do ipart=1,4
ndecodes=0 ndecodes=0
ndepth=1 ndepth=1