Get rid of unused variable ldecode77.

This commit is contained in:
Steve Franke 2018-11-05 14:40:55 -06:00
parent fd86194d07
commit ab34db7556
8 changed files with 5 additions and 13 deletions

View File

@ -134,8 +134,6 @@ public:
bool twoPass() const; bool twoPass() const;
bool bFox() const; bool bFox() const;
bool bHound() const; bool bHound() const;
bool bGenerate77() const;
bool bDecode77() const;
bool x2ToneSpacing() const; bool x2ToneSpacing() const;
bool x4ToneSpacing() const; bool x4ToneSpacing() const;
bool MyDx() const; bool MyDx() const;

View File

@ -44,7 +44,6 @@ extern struct dec_data {
bool lft8apon; bool lft8apon;
bool lapcqonly; bool lapcqonly;
bool ljt65apon; bool ljt65apon;
bool ldecode77;
int napwid; int napwid;
int ntxmode; int ntxmode;
int nmode; int nmode;

View File

@ -100,8 +100,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
params%nftx,newdat,params%nutc,params%nfa,params%nfb, & params%nftx,newdat,params%nutc,params%nfa,params%nfb, &
params%ndepth,ncontest,logical(params%nagain), & params%ndepth,ncontest,logical(params%nagain), &
logical(params%lft8apon),logical(params%lapcqonly), & logical(params%lft8apon),logical(params%lapcqonly), &
logical(params%ldecode77),params%napwid, & params%napwid,mycall,hiscall,hisgrid)
mycall,hiscall,hisgrid)
call timer('decft8 ',1) call timer('decft8 ',1)
if(nfox.gt.0) then if(nfox.gt.0) then
n30min=minval(n30fox(1:nfox)) n30min=minval(n30fox(1:nfox))

View File

@ -1,11 +1,10 @@
subroutine sync8(dd,nfa,nfb,syncmin,nfqso,ldecode77,maxcand,s,candidate, & subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,s,candidate, &
ncand,sbase) ncand,sbase)
include 'ft8_params.f90' include 'ft8_params.f90'
! Search over +/- 2.5s relative to 0.5s TX start time. ! Search over +/- 2.5s relative to 0.5s TX start time.
parameter (JZ=62) parameter (JZ=62)
complex cx(0:NH1) complex cx(0:NH1)
logical ldecode77
real s(NH1,NHSYM) real s(NH1,NHSYM)
real savg(NH1) real savg(NH1)
real sbase(NH1) real sbase(NH1)

View File

@ -33,7 +33,7 @@ module ft8_decode
contains contains
subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat, & subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat, &
nutc,nfa,nfb,ndepth,ncontest,nagain,lft8apon,lapcqonly,ldecode77, & nutc,nfa,nfb,ndepth,ncontest,nagain,lft8apon,lapcqonly, &
napwid,mycall12,hiscall12,hisgrid6) napwid,mycall12,hiscall12,hisgrid6)
! use wavhdr ! use wavhdr
use timer_module, only: timer use timer_module, only: timer
@ -47,7 +47,7 @@ contains
real sbase(NH1) real sbase(NH1)
real candidate(3,MAXCAND) real candidate(3,MAXCAND)
real dd(15*12000) real dd(15*12000)
logical, intent(in) :: lft8apon,lapcqonly,ldecode77,nagain logical, intent(in) :: lft8apon,lapcqonly,nagain
logical newdat,lsubtract,ldupe logical newdat,lsubtract,ldupe
character*12 mycall12,hiscall12,mycall12_0 character*12 mycall12,hiscall12,mycall12_0
character*6 hisgrid6 character*6 hisgrid6
@ -103,7 +103,7 @@ contains
endif endif
call timer('sync8 ',0) call timer('sync8 ',0)
maxc=MAXCAND maxc=MAXCAND
call sync8(dd,ifa,ifb,syncmin,nfqso,ldecode77,maxc,s,candidate, & call sync8(dd,ifa,ifb,syncmin,nfqso,maxc,s,candidate, &
ncand,sbase) ncand,sbase)
call timer('sync8 ',1) call timer('sync8 ',1)
do icand=1,ncand do icand=1,ncand

View File

@ -263,7 +263,6 @@ program jt9
shared_data%params%ndepth=ndepth shared_data%params%ndepth=ndepth
shared_data%params%lft8apon=.true. shared_data%params%lft8apon=.true.
shared_data%params%ljt65apon=.true. shared_data%params%ljt65apon=.true.
shared_data%params%ldecode77=.false.
shared_data%params%napwid=75 shared_data%params%napwid=75
shared_data%params%dttol=3. shared_data%params%dttol=3.

View File

@ -26,7 +26,6 @@
logical(c_bool) :: lft8apon logical(c_bool) :: lft8apon
logical(c_bool) :: lapcqonly logical(c_bool) :: lapcqonly
logical(c_bool) :: ljt65apon logical(c_bool) :: ljt65apon
logical(c_bool) :: ldecode77
integer(c_int) :: napwid integer(c_int) :: napwid
integer(c_int) :: ntxmode integer(c_int) :: ntxmode
integer(c_int) :: nmode integer(c_int) :: nmode

View File

@ -2770,7 +2770,6 @@ void MainWindow::decode() //decode()
dec_data.params.nexp_decode = static_cast<int> (m_config.special_op_id()); dec_data.params.nexp_decode = static_cast<int> (m_config.special_op_id());
if(m_config.single_decode()) dec_data.params.nexp_decode += 32; if(m_config.single_decode()) dec_data.params.nexp_decode += 32;
if(m_config.enable_VHF_features()) dec_data.params.nexp_decode += 64; if(m_config.enable_VHF_features()) dec_data.params.nexp_decode += 64;
dec_data.params.ldecode77 = true;
strncpy(dec_data.params.datetime, m_dateTime.toLatin1(), 20); strncpy(dec_data.params.datetime, m_dateTime.toLatin1(), 20);
strncpy(dec_data.params.mycall, (m_config.my_callsign()+" ").toLatin1(),12); strncpy(dec_data.params.mycall, (m_config.my_callsign()+" ").toLatin1(),12);