WSJT-X/lib/jt65.f90
Steven Franke 2e9a64aebe Move FT8 files into their own directory.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8200 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-10-30 21:30:14 +00:00

143 lines
4.3 KiB
Fortran

program jt65
! Test the JT65 decoder for WSJT-X
use options
use timer_module, only: timer
use timer_impl, only: init_timer
use jt65_test
use readwav
character c,mode
logical :: display_help=.false.,nrobust=.false.,single_decode=.false.
type(wav_header) :: wav
integer*2 id2(NZMAX)
real*4 dd(NZMAX)
character*80 infile
character(len=500) optarg
character*12 mycall,hiscall
character*6 hisgrid
type (option) :: long_options(12) = [ &
option ('aggressive',.true.,'a','aggressiveness [0-10], default AGGR=0','AGGR'), &
option ('depth',.true.,'d','depth=5 hinted decoding, default DEPTH=0','DEPTH'), &
option ('freq',.true.,'f','signal frequency, default FREQ=1270','FREQ'), &
option ('help',.false.,'h','Display this help message',''), &
option ('mode',.true.,'m','Mode A, B, C. Default is A.','MODE'), &
option ('ntrials',.true.,'n','number of trials, default TRIALS=10000','TRIALS'), &
option ('robust-sync',.false.,'r','robust sync',''), &
option ('my-call',.true.,'c','my callsign',''), &
option ('his-call',.true.,'x','his callsign',''), &
option ('his-grid',.true.,'g','his grid locator',''), &
option ('experience-decoding',.true.,'X' &
,'experience decoding options (1..n), default FLAGS=0','FLAGS'), &
option ('single-signal-mode',.false.,'s','decode at signal frequency only','') ]
naggressive=10
nfqso=1500
ntrials=100000
nexp_decode=0
ntol=20
nsubmode=0
nlow=200
nhigh=4000
n2pass=1
ndepth=1
do
call getopt('a:d:f:hm:n:rc:x:g:X:s',long_options,c,optarg,narglen,nstat,noffset,nremain,.true.)
if( nstat .ne. 0 ) then
exit
end if
select case (c)
case ('a')
read (optarg(:narglen), *) naggressive
case ('d')
read (optarg(:narglen), *) ndepth
case ('f')
read (optarg(:narglen), *) nfqso
case ('h')
display_help = .true.
case ('m')
read (optarg(:narglen), *) mode
if( mode .eq. 'b' .or. mode .eq. 'B' ) then
nsubmode=1
endif
if( mode .eq. 'c' .or. mode .eq. 'C' ) then
nsubmode=2
endif
case ('n')
read (optarg(:narglen), *) ntrials
case ('r')
nrobust=.true.
case ('c')
read (optarg(:narglen), *) mycall
case ('x')
read (optarg(:narglen), *) hiscall
case ('g')
read (optarg(:narglen), *) hisgrid
case ('X')
read (optarg(:narglen), *) nexp_decode
case ('s')
single_decode=.true.
ntol=100
nlow=nfqso-ntol
nhigh=nfqso+ntol
n2pass=1
end select
end do
if(single_decode) nexp_decode=ior(nexp_decode,32)
if(display_help .or. nstat.lt.0 .or. nremain.lt.1) then
print *, ''
print *, 'Usage: jt65 [OPTIONS] file1 [file2 ...]'
print *, ''
print *, ' JT65 decode pre-recorded .WAV file(s)'
print *, ''
print *, 'OPTIONS:'
print *, ''
do i = 1, size (long_options)
call long_options(i) % print (6)
end do
go to 999
endif
call init_timer ('timer.out')
call timer('jt65 ',0)
ndecoded=0
do ifile=noffset+1,noffset+nremain
nfa=nlow
nfb=nhigh
minsync=0
call get_command_argument(ifile,optarg,narglen)
infile=optarg(:narglen)
call timer('read ',0)
call wav%read (infile)
i1=index(infile,'.wav')
if( i1 .eq. 0 ) i1=index(infile,'.WAV')
read(infile(i1-4:i1-1),*,err=998) nutc
npts=52*12000
read(unit=wav%lun) id2(1:npts)
close(unit=wav%lun)
call timer('read ',1)
dd(1:npts)=id2(1:npts)
dd(npts+1:)=0.
call test(dd,nutc,nfa,nfb,nfqso,ntol,nsubmode, &
n2pass,nrobust,ntrials,naggressive,ndepth, &
mycall,hiscall,hisgrid,nexp_decode)
! if(nft.gt.0) exit
enddo
call timer('jt65 ',1)
call timer('jt65 ',101)
! call four2a(a,-1,1,1,1) !Free the memory used for plans
! call filbig(a,-1,1,0.0,0,0,0,0,0) ! (ditto)
go to 999
998 print*,'Cannot read from file:'
print*,infile
999 continue
end program jt65