w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-15 16:42:12 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix up command-line decoder ft8d.f90 so that it works with recent changes.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7754 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-06-30 14:07:17 +00:00
parent b8eafac0db
commit ec34c3b03b
1 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lib/fsk4hf/ft8d.f90
View File

@ -2,21 +2,14 @@ program ft8d
! Decode FT8 data read from *.wav files. ! Decode FT8 data read from *.wav files.
! FT8 is a potential mode intended for use at 6m (and maybe HF). It uses an
! LDPC (174,87) code, 8-FSK modulation, and 15 second T/R sequences. Otherwise
! should behave like JT65 and JT9 as used on HF bands, except that QSOs are
! 4 x faster.
! Reception and Demodulation algorithm:
! ... tbd ...
include 'ft8_params.f90' include 'ft8_params.f90'
character*12 arg character*12 arg
character infile*80,datetime*13 character infile*80,datetime*13,message*22
real s(NH1,NHSYM) real s(NH1,NHSYM)
real candidate(3,100) real candidate(3,100)
integer ihdr(11) integer ihdr(11)
integer*2 iwave(NMAX) !Generated full-length waveform integer*2 iwave(NMAX) !Generated full-length waveform
real dd(NMAX)
nargs=iargc() nargs=iargc()
if(nargs.lt.3) then if(nargs.lt.3) then
@ -37,6 +30,9 @@ program ft8d
ts=2*NSPS*dt !Duration of OQPSK symbols (s) ts=2*NSPS*dt !Duration of OQPSK symbols (s)
baud=1.0/tt !Keying rate (baud) baud=1.0/tt !Keying rate (baud)
txt=NZ*dt !Transmission length (s) txt=NZ*dt !Transmission length (s)
nfa=100.0
nfb=3000.0
nfqso=1500.0
do ifile=1,nfiles do ifile=1,nfiles
call getarg(ifile+2,infile) call getarg(ifile+2,infile)
@ -46,8 +42,19 @@ program ft8d
j2=index(infile,'.wav') j2=index(infile,'.wav')
read(infile(j2-6:j2-1),*) nutc read(infile(j2-6:j2-1),*) nutc
datetime=infile(j2-13:j2-1) datetime=infile(j2-13:j2-1)
call sync8(iwave,s,candidate,ncand) call sync8(iwave,nfa,nfb,nfqso,s,candidate,ncand)
call ft8b(datetime,s,candidate,ncand) syncmin=4.0
do icand=1,ncand
sync=candidate(3,icand)
if( sync.lt.syncmin) cycle
f1=candidate(1,icand)
xdt=candidate(2,icand)
nsnr=min(99,nint(10.0*log10(sync)-25.5))
call ft8b(s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message)
xdt=xdt-0.6
write(*,1110) datetime,0,nsnr,xdt,f1,message,nharderrors,dmin
1110 format(a13,2i4,f6.2,f7.1,' ~ ',a22,i6,f7.1)
enddo
enddo ! ifile loop enddo ! ifile loop
999 end program ft8d 999 end program ft8d