From f7c02ec5877fd788ca7e59f043aac6bc8b123577 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 25 Jul 2018 15:19:57 -0400 Subject: [PATCH] Code cleanup: remove several unused dummy arguments. --- lib/decoder.f90 | 6 +++--- lib/ft8_decode.f90 | 9 +++++---- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 5bf223ed3..911f8b9ba 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -95,10 +95,10 @@ subroutine multimode_decoder(ss,id2,params,nfsample) newdat=params%newdat call my_ft8%decode(ft8_decoded,id2,params%nQSOProgress,params%nfqso, & params%nftx,newdat,params%nutc,params%nfa,params%nfb, & - params%nexp_decode,params%ndepth,logical(params%nagain), & + params%ndepth,logical(params%nagain), & logical(params%lft8apon),logical(params%lapcqonly), & - logical(params%ldecode77),params%napwid, & - mycall,mygrid,hiscall,hisgrid) + logical(params%ldecode77),params%napwid, & + mycall,hiscall,hisgrid) call timer('decft8 ',1) if(nfox.gt.0) then n30min=minval(n30fox(1:nfox)) diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90 index 7206350d3..fd9e30c44 100644 --- a/lib/ft8_decode.f90 +++ b/lib/ft8_decode.f90 @@ -33,8 +33,8 @@ module ft8_decode contains subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat, & - nutc,nfa,nfb,nexp_decode,ndepth,nagain,lft8apon,lapcqonly,ldecode77,napwid, & - mycall12,mygrid6,hiscall12,hisgrid6) + nutc,nfa,nfb,ndepth,nagain,lft8apon,lapcqonly,ldecode77,napwid, & + mycall12,hiscall12,hisgrid6) ! use wavhdr use timer_module, only: timer include 'ft8/ft8_params.f90' @@ -49,10 +49,11 @@ contains logical, intent(in) :: lft8apon,lapcqonly,ldecode77,nagain logical newdat,lsubtract,ldupe character*12 mycall12, hiscall12 - character*6 mygrid6,hisgrid6 + character*6 hisgrid6 integer*2 iwave(15*12000) integer apsym1(KK),apsym2(77) - character datetime*13,message*22,msg37*37 + character datetime*13,msg37*37 +! character message*22 character*37 allmessages(100) integer allsnrs(100) save s,dd