mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-22 12:23:37 -05:00
Pass more parameters to fst240_decode().
This commit is contained in:
parent
133c32cb41
commit
83fddb1f57
@ -193,7 +193,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
|
||||
call my_fst240%decode(fst240_decoded,id2,params%nutc, &
|
||||
params%nQSOProgress,params%nfqso,params%nfa,params%nfb, &
|
||||
params%nsubmode,params%ndepth,params%ntr,params%nexp_decode, &
|
||||
params%ntol)
|
||||
params%ntol,params%nzhsym,params%emedelay, &
|
||||
logical(params%lapcqonly),params%napwid,mycall,hiscall)
|
||||
call timer('dec240 ',1)
|
||||
go to 800
|
||||
endif
|
||||
|
@ -27,7 +27,8 @@ module fst240_decode
|
||||
contains
|
||||
|
||||
subroutine decode(this,callback,iwave,nutc,nQSOProgress,nfqso, &
|
||||
nfa,nfb,nsubmode,ndeep,ntrperiod,nexp_decode,ntol)
|
||||
nfa,nfb,nsubmode,ndeep,ntrperiod,nexp_decode,ntol,nzhsym, &
|
||||
emedelay,lapcqonly,napwid,mycall,hiscall)
|
||||
|
||||
use timer_module, only: timer
|
||||
use packjt77
|
||||
@ -38,6 +39,7 @@ contains
|
||||
character*37 decodes(100)
|
||||
character*37 msg
|
||||
character*77 c77
|
||||
character*12 mycall,hiscall
|
||||
complex, allocatable :: c2(:)
|
||||
complex, allocatable :: cframe(:)
|
||||
complex, allocatable :: c_bigfft(:) !Complex waveform
|
||||
@ -46,6 +48,7 @@ contains
|
||||
real candidates(100,4)
|
||||
real bitmetrics(320,4)
|
||||
real s4(0:3,NN)
|
||||
logical lapcqonly
|
||||
integer itone(NN)
|
||||
integer hmod
|
||||
integer*1 apmask(240),cw(240)
|
||||
@ -58,6 +61,9 @@ contains
|
||||
1,0,0,1,0,1,1,0,0,0,0,1,0,0,0,1,0,1,0,0,1,1,1,1,0,0,1,0,1, &
|
||||
0,1,0,1,0,1,1,0,1,1,1,1,1,0,0,0,1,0,1/
|
||||
|
||||
write(*,3001) nzhsym,emedelay,lapcqonly,napwid,mycall,hiscall
|
||||
3001 format(i4,f6.1,L3,i3,2x,2a12)
|
||||
|
||||
this%callback => callback
|
||||
hmod=2**nsubmode
|
||||
if(nfqso+nqsoprogress.eq.-999) return
|
||||
|
Loading…
Reference in New Issue
Block a user