w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-31 22:02:49 -04:00
Code Issues Packages Projects Releases Wiki Activity

Allow oddball file names for input to ft4d.

Browse Source
This commit is contained in:
Joe Taylor 2019-03-28 09:21:01 -04:00
parent 43c38de884
commit 580fce8320
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft4/ft4d.f90
View File

@ -54,14 +54,14 @@ program ft4d
do ifile=iarg,nargs do ifile=iarg,nargs
call getarg(ifile,infile) call getarg(ifile,infile)
j2=index(infile,'.wav')
open(10,file=infile,status='old',access='stream') open(10,file=infile,status='old',access='stream')
read(10) ihdr read(10) ihdr
npts=min(ihdr(11)/2,180000) npts=min(ihdr(11)/2,180000)
read(10) iwave(1:npts) read(10) iwave(1:npts)
close(10) close(10)
cdatetime=infile(j2-13:j2)//'000' cdatetime=infile
j2=index(infile,'.wav')
if(j2.ge.14) cdatetime=infile(j2-13:j2)//'000'
istep=3456 istep=3456
nsteps=(npts-52800)/istep + 1 nsteps=(npts-52800)/istep + 1
do n=1,nsteps do n=1,nsteps