mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-22 20:28:42 -05:00
50 lines
1.0 KiB
Fortran
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
|