mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-03-21 03:28:59 -04:00
Use correct UTC-encoded filenames for echosim output.
This commit is contained in:
parent
eb1a4e4a65
commit
6e1529b1cc
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user