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

Fix ft4d so that it reads and processed full 15-second files.

Browse Source
This commit is contained in:
Joe Taylor 2019-02-14 15:10:41 -05:00
parent 9a6c82d09b
commit 55e0e32e59
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lib/ft4/ft4d.f90
View File

@ -1,21 +1,16 @@
program ft4d program ft4d
include 'ft4_params.f90' include 'ft4_params.f90'
character*8 arg character*8 arg
character*17 cdatetime character*17 cdatetime
character*512 data_dir character*512 data_dir
character*37 decodes(100)
character*16 fname
character*12 mycall character*12 mycall
character*12 hiscall character*12 hiscall
character*80 infile character*80 infile
character*61 line character*61 line
real*8 fMHz real*8 fMHz
integer ihdr(11) integer ihdr(11)
integer*2 iwave(NMAX) !Generated full-length waveform integer*2 iwave(180000) !15*12000
fs=12000.0/NDOWN !Sample rate fs=12000.0/NDOWN !Sample rate
dt=1/fs !Sample interval after downsample (s) dt=1/fs !Sample interval after downsample (s)
@ -59,17 +54,22 @@ program ft4d
call getarg(ifile,infile) call getarg(ifile,infile)
j2=index(infile,'.wav') j2=index(infile,'.wav')
open(10,file=infile,status='old',access='stream') open(10,file=infile,status='old',access='stream')
read(10,end=999) ihdr,iwave read(10) ihdr
npts=ihdr(11)/2
read(10) iwave(1:npts)
close(10) close(10)
cdatetime=infile(1:13)//'.000' cdatetime=infile(1:13)//'.000'
call ft4_decode(cdatetime,0.0,nfa,nfb,nQSOProgress,ncontest,nfqso,iwave, & nsteps=npts/3456
ndecodes,mycall,hiscall,nrx,line,data_dir) do n=1,nsteps
i0=(n-1)*3456 + 1
call ft4_decode(cdatetime,0.0,nfa,nfb,nQSOProgress,ncontest, &
nfqso,iwave(i0),ndecodes,mycall,hiscall,nrx,line,data_dir)
do idecode=1,ndecodes do idecode=1,ndecodes
call get_ft4msg(idecode,nrx,line) call get_ft4msg(idecode,nrx,line)
write(*,'(a61)') line write(*,'(a61)') line
enddo enddo
enddo !steps
enddo !files enddo !files
write(*,1120) write(*,1120)