WSJT-X/lib/ft8.f90
2019-01-09 12:45:20 -05:00

50 lines
1.0 KiB
Fortran

program ft8
integer*2 iwave(15*12000)
logical lft8apon,lapcqonly,nagain,newdat
character*12 mycall12,hiscall12
character*6 hisgrid6
character arg*8,infile*80
integer ihdr(11)
nargs=iargc()
if(nargs.lt.3) then
print*,'Usage: ft8 nfa nfb ndepth infile'
print*,'Example: ft8 200 4000 3 181201_180315.wav'
go to 999
endif
call getarg(1,arg)
read(arg,*) nfa
call getarg(2,arg)
read(arg,*) nfb
call getarg(3,arg)
read(arg,*) ndepth
nfiles=nargs-3
nQSOProgress=0
nfqso=1500
nftx=0
newdat=.true.
nutc=0
ncontest=0
nagain=.false.
lft8apon=.false.
lapcqonly=.false.
napwid=75
mycall12='K1ABC'
hiscall12='W9XYZ'
hisgrid6='EN37wb'
do ifile=1,nfiles
call getarg(3+ifile,infile)
open(10,file=infile,status='old',access='stream')
read(10) ihdr,iwave
close(10)
call ft8dec(iwave,nQSOProgress,nfqso,nftx,newdat, &
nutc,nfa,nfb,ndepth,ncontest,nagain,lft8apon,lapcqonly, &
napwid,mycall12,hiscall12,hisgrid6)
enddo
999 end program ft8