From 0a076e0455a01c38062e0ba33f7ea71f0d1f35a7 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 19 Mar 2020 11:00:21 -0400 Subject: [PATCH] Silence compiler warnings. --- lib/bpdecode128_90.f90 | 1 + lib/decode65a.f90 | 6 ++---- lib/decode65b.f90 | 5 ++--- lib/decoder.f90 | 2 +- lib/extract.f90 | 3 +-- lib/ft8_decode.f90 | 4 +--- lib/jt65_decode.f90 | 4 ++-- 7 files changed, 10 insertions(+), 15 deletions(-) diff --git a/lib/bpdecode128_90.f90 b/lib/bpdecode128_90.f90 index c48ba1fa8..9e018dc7a 100644 --- a/lib/bpdecode128_90.f90 +++ b/lib/bpdecode128_90.f90 @@ -33,6 +33,7 @@ subroutine bpdecode128_90(llr,apmask,maxiterations,message77,cw,nharderror,iter) enddo ncnt=0 + nclast=0 do iter=0,maxiterations diff --git a/lib/decode65a.f90 b/lib/decode65a.f90 index c41136a5e..777031e69 100644 --- a/lib/decode65a.f90 +++ b/lib/decode65a.f90 @@ -1,7 +1,6 @@ subroutine decode65a(dd,npts,newdat,nqd,f0,nflip,mode65,ntrials, & naggressive,ndepth,ntol,mycall,hiscall,hisgrid,nQSOProgress, & - ljt65apon, nexp_decode, & - bVHF,sync2,a,dt,nft,nspecial,qual,nhist,nsmo,decoded) + ljt65apon,bVHF,sync2,a,dt,nft,nspecial,qual,nhist,nsmo,decoded) ! Apply AFC corrections to a candidate JT65 signal, then decode it. @@ -125,8 +124,7 @@ subroutine decode65a(dd,npts,newdat,nqd,f0,nflip,mode65,ntrials, & enddo nadd=ismo !### ??? ### call decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth, & - mycall,hiscall,hisgrid,nQSOProgress,ljt65apon,nexp_decode, & - nqd,nft,qual, & + mycall,hiscall,hisgrid,nQSOProgress,ljt65apon,nqd,nft,qual, & nhist,decoded) if(nft.eq.1) then diff --git a/lib/decode65b.f90 b/lib/decode65b.f90 index 215b6bacd..2be808145 100644 --- a/lib/decode65b.f90 +++ b/lib/decode65b.f90 @@ -1,6 +1,5 @@ subroutine decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth, & - mycall,hiscall,hisgrid,nQSOProgress,ljt65apon,nexp_decode,nqd, & - nft,qual, & + mycall,hiscall,hisgrid,nQSOProgress,ljt65apon,nqd,nft,qual, & nhist,decoded) use jt65_mod @@ -21,7 +20,7 @@ subroutine decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth, & enddo call extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip,mycall, & - hiscall,hisgrid,nQSOProgress,ljt65apon,nexp_decode,ncount, & + hiscall,hisgrid,nQSOProgress,ljt65apon,ncount, & nhist,decoded,ltext,nft,qual) ! Suppress "birdie messages" and other garbage decodes: diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 9afb02b6b..d6b32fc73 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -114,7 +114,7 @@ subroutine multimode_decoder(ipc1,ss,id2,params,nfsample) params%nftx,newdat,params%nutc,params%nfa,params%nfb, & params%nzhsym,params%ndepth,ncontest,logical(params%nagain), & logical(params%lft8apon),logical(params%lapcqonly), & - params%napwid,mycall,hiscall,hisgrid,params%ndiskdat) + params%napwid,mycall,hiscall,params%ndiskdat) call timer('decft8 ',1) if(nfox.gt.0) then n30min=minval(n30fox(1:nfox)) diff --git a/lib/extract.f90 b/lib/extract.f90 index 78da285f7..197448fe5 100644 --- a/lib/extract.f90 +++ b/lib/extract.f90 @@ -1,7 +1,6 @@ subroutine extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip, & mycall_12,hiscall_12,hisgrid,nQSOProgress,ljt65apon, & - nexp_decode,ncount, & - nhist,decoded,ltext,nft,qual) + ncount,nhist,decoded,ltext,nft,qual) ! Input: ! s3 64-point spectra for each of 63 data symbols diff --git a/lib/ft8_decode.f90 b/lib/ft8_decode.f90 index 260d34740..c1cfb82f5 100644 --- a/lib/ft8_decode.f90 +++ b/lib/ft8_decode.f90 @@ -34,7 +34,7 @@ contains subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat, & nutc,nfa,nfb,nzhsym,ndepth,ncontest,nagain,lft8apon,lapcqonly, & - napwid,mycall12,hiscall12,hisgrid6,ldiskdat) + napwid,mycall12,hiscall12,ldiskdat) use iso_c_binding, only: c_bool, c_int use timer_module, only: timer use shmem, only: shmem_lock, shmem_unlock @@ -54,7 +54,6 @@ contains logical*1 ldiskdat logical lsubtracted(MAX_EARLY) character*12 mycall12,hiscall12 - character*6 hisgrid6 integer*2 iwave(15*12000) integer apsym2(58),aph10(10) character datetime*13,msg37*37 @@ -66,7 +65,6 @@ contains real f1_save(MAX_EARLY) real xdt_save(MAX_EARLY) integer(c_int) :: ihsym - logical(c_bool) :: ok save s,dd,dd1,ndec_early,itone_save,f1_save,xdt_save,lsubtracted diff --git a/lib/jt65_decode.f90 b/lib/jt65_decode.f90 index f3d08e01c..bd198dab9 100644 --- a/lib/jt65_decode.f90 +++ b/lib/jt65_decode.f90 @@ -233,7 +233,7 @@ contains nspecial=0 call decode65a(dd,npts,first_time,nqd,freq,nflip,mode65,nvec, & naggressive,ndepth,ntol,mycall,hiscall,hisgrid,nQSOProgress, & - ljt65apon,nexp_decode,bVHF,sync2,a,dtx,nft,nspecial,qual, & + ljt65apon,bVHF,sync2,a,dtx,nft,nspecial,qual, & nhist,nsmo,decoded) if(nspecial.eq.2) decoded='RO' if(nspecial.eq.3) decoded='RRR' @@ -486,7 +486,7 @@ contains nadd=nsum*ismo call extract(s3c,nadd,mode65,ntrials,naggressive,ndepth,nflip,mycall, & - hiscall,hisgrid,nQSOProgress,ljt65apon,nexp_decode,ncount,nhist, & + hiscall,hisgrid,nQSOProgress,ljt65apon,ncount,nhist, & avemsg,ltext,nftt,qual) if(nftt.eq.1) then nsmo=ismo