mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-01 08:07:10 -04:00
f9699cdf44
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6749 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
79 lines
2.0 KiB
Fortran
79 lines
2.0 KiB
Fortran
program msk144d
|
|
|
|
! Test the msk144 decoder for WSJT-X
|
|
|
|
use options
|
|
use timer_module, only: timer
|
|
use timer_impl, only: init_timer
|
|
use readwav
|
|
|
|
character c,mode
|
|
character*80 line(100)
|
|
character*512 pchk_file
|
|
logical :: display_help=.false.
|
|
type(wav_header) :: wav
|
|
integer*2 id2(15*12000)
|
|
character*80 infile
|
|
character(len=500) optarg
|
|
|
|
type (option) :: long_options(2) = [ &
|
|
option ('help',.false.,'h','Display this help message',''), &
|
|
option ('ntrials',.true.,'n','number of trials, default TRIALS=10000','TRIALS') &
|
|
]
|
|
do
|
|
call getopt('hn:',long_options,c,optarg,narglen,nstat,noffset,nremain,.true.)
|
|
if( nstat .ne. 0 ) then
|
|
exit
|
|
end if
|
|
select case (c)
|
|
case ('h')
|
|
display_help = .true.
|
|
case ('n')
|
|
read (optarg(:narglen), *) ntrials
|
|
end select
|
|
end do
|
|
|
|
if(display_help .or. nstat.lt.0 .or. nremain.lt.1) then
|
|
print *, ''
|
|
print *, 'Usage: msk144d [OPTIONS] file1 [file2 ...]'
|
|
print *, ''
|
|
print *, ' msk144 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)
|
|
|
|
pchk_file='./peg-128-80-reg3.pchk'
|
|
ndecoded=0
|
|
do ifile=noffset+1,noffset+nremain
|
|
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-6:i1-1),*,err=998) nutc
|
|
npts=15*12000
|
|
read(unit=wav%lun) id2(1:npts)
|
|
close(unit=wav%lun)
|
|
call timer('read ',1)
|
|
call msk144_decode(id2,npts,nutc,1,pchk_file,line)
|
|
enddo
|
|
|
|
call timer('msk144 ',1)
|
|
call timer('msk144 ',101)
|
|
go to 999
|
|
|
|
998 print*,'Cannot read from file:'
|
|
print*,infile
|
|
|
|
999 continue
|
|
end program msk144d
|