From 2033a2b33d59d3425c0603caab94bae7652c8684 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 18 Jan 2019 12:33:45 -0500
Subject: [PATCH] Add a missing file; tweak the FT2 decoder.

---
 lib/ft2/cdatetime.f90  | 6 ++++++
 lib/ft2/ft2_decode.f90 | 6 +++---
 2 files changed, 9 insertions(+), 3 deletions(-)
 create mode 100644 lib/ft2/cdatetime.f90

diff --git a/lib/ft2/cdatetime.f90 b/lib/ft2/cdatetime.f90
new file mode 100644
index 000000000..33deaf30a
--- /dev/null
+++ b/lib/ft2/cdatetime.f90
@@ -0,0 +1,6 @@
+character*17 function cdatetime()
+  character cdate*8,ctime*10
+  call date_and_time(cdate,ctime)
+  cdatetime=cdate(3:8)//'_'//ctime
+  return
+end function cdatetime
diff --git a/lib/ft2/ft2_decode.f90 b/lib/ft2/ft2_decode.f90
index 5f7eb95e0..b250fca32 100644
--- a/lib/ft2/ft2_decode.f90
+++ b/lib/ft2/ft2_decode.f90
@@ -7,7 +7,7 @@ subroutine ft2_decode(cdatetime0,nfqso,iwave,ndecodes,mycall,hiscall,nrx,line)
   character*61 line
   character*37 decodes(100)
   character*120 data_dir
-  character*17 cdatetime0,cdatetime,cdt
+  character*17 cdatetime0,cdatetime
   character*6 mycall,hiscall,hhmmss
   complex c2(0:NMAX/16-1)                  !Complex waveform
   complex cb(0:NMAX/16-1)
@@ -33,8 +33,8 @@ subroutine ft2_decode(cdatetime0,nfqso,iwave,ndecodes,mycall,hiscall,nrx,line)
 
   hhmmss='      '
   if(cdatetime0=='                 ') then
-     cdt=cdatetime()
-     hhmmss=cdt(8:13)
+     cdatetime0=cdatetime()
+     hhmmss=cdatetime0(8:13)
   endif
   
   fs=12000.0/NDOWN                       !Sample rate