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

Make ft4d work with cqstr.

Browse Source
This commit is contained in:
Steve Franke 2019-03-04 17:26:24 -06:00
parent d7012267c0
commit 1b591e2c8c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/ft4/ft4d.f90
View File

@ -8,6 +8,7 @@ program ft4d
character*12 hiscall character*12 hiscall
character*80 infile character*80 infile
character*61 line character*61 line
character*4 cqstr
real*8 fMHz real*8 fMHz
integer ihdr(11) integer ihdr(11)
integer*2 iwave(180000) !15*12000 integer*2 iwave(180000) !15*12000
@ -44,11 +45,12 @@ program ft4d
endif endif
nfa=0 nfa=0
nfb=4224 nfb=4224
ncontest=4
ndecodes=0 ndecodes=0
nfqso=1500 nfqso=1500
mycall="K9AN" mycall="K9AN"
hiscall="K1JT" hiscall="K1JT"
ncontest=4
cqstr="RU "
do ifile=iarg,nargs do ifile=iarg,nargs
call getarg(ifile,infile) call getarg(ifile,infile)
@ -66,7 +68,7 @@ program ft4d
i0=(n-1)*istep + 1 i0=(n-1)*istep + 1
tbuf=(i0-1)/12000.0 tbuf=(i0-1)/12000.0
call ft4_decode(cdatetime,tbuf,nfa,nfb,nQSOProgress,ncontest, & call ft4_decode(cdatetime,tbuf,nfa,nfb,nQSOProgress,ncontest, &
nfqso,iwave(i0),ndecodes,mycall,hiscall,nrx,line,data_dir) nfqso,iwave(i0),ndecodes,mycall,hiscall,cqstr,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