From 6e1529b1cc21c7f3ec098591fbdd49dead6d3e77 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 2 Sep 2022 13:59:16 -0400
Subject: [PATCH] Use correct UTC-encoded filenames for echosim output.

---
 lib/echosim.f90 | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/echosim.f90 b/lib/echosim.f90
index bc15b0e98..1125bbdb1 100644
--- a/lib/echosim.f90
+++ b/lib/echosim.f90
@@ -90,8 +90,12 @@ program echosim
      fspread0=fspread
      
      h=default_header(12000,NMAX)
-     write(fname,1102) 3*ifile
-1102 format('000000_',i6.6,'.wav')
+     n=3*(ifile-1)
+     ihr=n/3600
+     imin=(n-3600*ihr)/60
+     isec=mod(n,60)
+     write(fname,1102) ihr,imin,isec
+1102 format('000000_',3i2.2,'.wav')
      open(10,file=fname,status='unknown',access='stream')
      write(10) h,iwave                !Save to *.wav file
      close(10)