mirror of https://github.com/pavel-demin/ft8d.git
update date and time format in ft8d.f90
This commit is contained in:
parent
ccc61666ab
commit
87ef78a221
4
ft8d.f90
4
ft8d.f90
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue