mirror of
https://github.com/pavel-demin/ft8d.git
synced 2024-11-16 00:51:51 -05:00
98 lines
2.5 KiB
Fortran
98 lines
2.5 KiB
Fortran
program ft8d
|
|
|
|
! Decode FT8 data read from *.c2 files.
|
|
|
|
include 'ft8_params.f90'
|
|
character infile*80,msg37*37,date*6,time*4
|
|
character msgcall*13,msggrid*4
|
|
character*37 allmessages(100)
|
|
real s(NFFT1,NHSYM)
|
|
real sbase(NFFT1)
|
|
real candidate(3,MAXCAND)
|
|
real*8 dialfreq
|
|
complex dd(NMAX,4)
|
|
logical newdat,lft8apon,lsubtract,ldupe
|
|
integer allsnrs(100)
|
|
integer apsym(58)
|
|
|
|
apsym=0
|
|
apsym(1)=99
|
|
apsym(30)=99
|
|
|
|
nargs=iargc()
|
|
if(nargs.ne.1) then
|
|
print*,'Usage: ft8d file'
|
|
go to 999
|
|
endif
|
|
|
|
nfa=-1600
|
|
nfb=+1600
|
|
nfqso=0
|
|
|
|
call getarg(1,infile)
|
|
open(10,file=infile,status='old',access='stream')
|
|
read(10,end=999) dialfreq,dd
|
|
close(10)
|
|
j2=index(infile,'.c2')
|
|
date=infile(j2-11:j2-6)
|
|
time=infile(j2-4:j2-1)
|
|
do ipart=1,4
|
|
nQSOProgress=0
|
|
ndecodes=0
|
|
n2=0
|
|
allmessages=' '
|
|
allsnrs=0
|
|
ncontest=0
|
|
lft8apon=.false.
|
|
ndepth=1
|
|
if(ndepth.eq.1) npass=1
|
|
if(ndepth.ge.2) npass=3
|
|
do ipass=1,npass
|
|
newdat=.true.
|
|
syncmin=1.5
|
|
if(ipass.eq.1) then
|
|
lsubtract=.true.
|
|
if(ndepth.eq.1) lsubtract=.false.
|
|
elseif(ipass.eq.2) then
|
|
n2=ndecodes
|
|
if(ndecodes.eq.0) cycle
|
|
lsubtract=.true.
|
|
elseif(ipass.eq.3) then
|
|
if((ndecodes-n2).eq.0) cycle
|
|
lsubtract=.false.
|
|
endif
|
|
call sync8(dd(1:NMAX,ipart),nfa+2000,nfb+2000,syncmin, &
|
|
nfqso+2000,s,candidate,ncand,sbase)
|
|
do icand=1,ncand
|
|
sync=candidate(3,icand)
|
|
f1=candidate(1,icand)
|
|
xdt=candidate(2,icand)
|
|
xbase=10.0**(0.1*(sbase(nint(f1/3.125))-40.0))
|
|
call ft8b(dd(1:NMAX,ipart),newdat,nQSOProgress,nfqso+2000, &
|
|
nftx,ndepth,lft8apon,lapcqonly,napwid,lsubtract,nagain, &
|
|
ncontest,iaptype,f1,xdt,xbase,apsym,nharderrors,dmin, &
|
|
nbadcrc,iappass,msg37,msgcall,msggrid,xsnr)
|
|
nsnr=nint(xsnr)
|
|
xdt=xdt-0.5
|
|
hd=nharderrors+dmin
|
|
if(nbadcrc.eq.0.and.msgcall(1:1).ne.' '.and.msgcall(1:1).ne.'<') then
|
|
ldupe=.false.
|
|
do id=1,ndecodes
|
|
if(msg37.eq.allmessages(id).and.nsnr.le.allsnrs(id)) ldupe=.true.
|
|
enddo
|
|
if(.not.ldupe) then
|
|
ndecodes=ndecodes+1
|
|
allmessages(ndecodes)=msg37
|
|
allsnrs(ndecodes)=nsnr
|
|
endif
|
|
write(*,1004) date,time,15*(ipart-1),min(sync,999.0),nint(xsnr), &
|
|
xdt,nint(f1-2000+dialfreq),msgcall,msggrid
|
|
1004 format(a6,1x,a4,i2.2,f6.1,i4,f6.2,i9,1x,a13,1x,a4)
|
|
endif
|
|
enddo
|
|
enddo
|
|
enddo ! ipart loop
|
|
|
|
999 end program ft8d
|
|
|