add date to output format

ft8d.f90

@@ -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