update date and time format in ft8d.f90

2026-06-19 06:18:39 -04:00 · 2018-10-20 21:32:04 +02:00
parent ccc61666ab
commit 87ef78a221
1 changed files with 2 additions and 2 deletions
@@ -35,8 +35,8 @@ program ft8d
  read(10,end=999) dialfreq,dd
  close(10)
  j2=index(infile,'.c2')
-  date=infile(j2-13:j2-8)
-  time=infile(j2-6:j2-3)
+  date=infile(j2-11:j2-6)
+  time=infile(j2-4:j2-1)
  do ipart=1,4
    ndecodes=0
    ndepth=1