w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-21 03:28:59 -04:00
Code Issues Packages Projects Releases Wiki Activity

Use correct UTC-encoded filenames for echosim output.

Browse Source
This commit is contained in:
Joe Taylor 2022-09-02 13:59:16 -04:00
parent eb1a4e4a65
commit 6e1529b1cc
1 changed files with 6 additions and 2 deletions

8
lib/echosim.f90
View File

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