w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Silence compiler warnings.

Browse Source
This commit is contained in:
Joe Taylor 2020-03-19 11:00:21 -04:00
parent 4fa3ee3437
commit 0a076e0455
7 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/bpdecode128_90.f90
View File

@ -33,6 +33,7 @@ subroutine bpdecode128_90(llr,apmask,maxiterations,message77,cw,nharderror,iter)
enddo enddo
ncnt=0 ncnt=0
nclast=0
do iter=0,maxiterations do iter=0,maxiterations

6
lib/decode65a.f90
View File

@ -1,7 +1,6 @@
subroutine decode65a(dd,npts,newdat,nqd,f0,nflip,mode65,ntrials, & subroutine decode65a(dd,npts,newdat,nqd,f0,nflip,mode65,ntrials, &
naggressive,ndepth,ntol,mycall,hiscall,hisgrid,nQSOProgress, & naggressive,ndepth,ntol,mycall,hiscall,hisgrid,nQSOProgress, &
ljt65apon, nexp_decode, & ljt65apon,bVHF,sync2,a,dt,nft,nspecial,qual,nhist,nsmo,decoded)
bVHF,sync2,a,dt,nft,nspecial,qual,nhist,nsmo,decoded)
! Apply AFC corrections to a candidate JT65 signal, then decode it. ! 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 enddo
nadd=ismo !### ??? ### nadd=ismo !### ??? ###
call decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth, & call decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth, &
mycall,hiscall,hisgrid,nQSOProgress,ljt65apon,nexp_decode, & mycall,hiscall,hisgrid,nQSOProgress,ljt65apon,nqd,nft,qual, &
nqd,nft,qual, &
nhist,decoded) nhist,decoded)
if(nft.eq.1) then if(nft.eq.1) then

5
lib/decode65b.f90
View File

@ -1,6 +1,5 @@
subroutine decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth, & subroutine decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth, &
mycall,hiscall,hisgrid,nQSOProgress,ljt65apon,nexp_decode,nqd, & mycall,hiscall,hisgrid,nQSOProgress,ljt65apon,nqd,nft,qual, &
nft,qual, &
nhist,decoded) nhist,decoded)
use jt65_mod use jt65_mod
@ -21,7 +20,7 @@ subroutine decode65b(s2,nflip,nadd,mode65,ntrials,naggressive,ndepth, &
enddo enddo
call extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip,mycall, & 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) nhist,decoded,ltext,nft,qual)
! Suppress "birdie messages" and other garbage decodes: ! Suppress "birdie messages" and other garbage decodes:

2
lib/decoder.f90
View File

@ -114,7 +114,7 @@ subroutine multimode_decoder(ipc1,ss,id2,params,nfsample)
params%nftx,newdat,params%nutc,params%nfa,params%nfb, & params%nftx,newdat,params%nutc,params%nfa,params%nfb, &
params%nzhsym,params%ndepth,ncontest,logical(params%nagain), & params%nzhsym,params%ndepth,ncontest,logical(params%nagain), &
logical(params%lft8apon),logical(params%lapcqonly), & logical(params%lft8apon),logical(params%lapcqonly), &
params%napwid,mycall,hiscall,hisgrid,params%ndiskdat) params%napwid,mycall,hiscall,params%ndiskdat)
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))

3
lib/extract.f90
View File

@ -1,7 +1,6 @@
subroutine extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip, & subroutine extract(s3,nadd,mode65,ntrials,naggressive,ndepth,nflip, &
mycall_12,hiscall_12,hisgrid,nQSOProgress,ljt65apon, & mycall_12,hiscall_12,hisgrid,nQSOProgress,ljt65apon, &
nexp_decode,ncount, & ncount,nhist,decoded,ltext,nft,qual)
nhist,decoded,ltext,nft,qual)
! Input: ! Input:
! s3 64-point spectra for each of 63 data symbols ! s3 64-point spectra for each of 63 data symbols

4
lib/ft8_decode.f90
View File

@ -34,7 +34,7 @@ contains
subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat, & subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat, &
nutc,nfa,nfb,nzhsym,ndepth,ncontest,nagain,lft8apon,lapcqonly, & 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 iso_c_binding, only: c_bool, c_int
use timer_module, only: timer use timer_module, only: timer
use shmem, only: shmem_lock, shmem_unlock use shmem, only: shmem_lock, shmem_unlock
@ -54,7 +54,6 @@ contains
logical*1 ldiskdat logical*1 ldiskdat
logical lsubtracted(MAX_EARLY) logical lsubtracted(MAX_EARLY)
character*12 mycall12,hiscall12 character*12 mycall12,hiscall12
character*6 hisgrid6
integer*2 iwave(15*12000) integer*2 iwave(15*12000)
integer apsym2(58),aph10(10) integer apsym2(58),aph10(10)
character datetime*13,msg37*37 character datetime*13,msg37*37
@ -66,7 +65,6 @@ contains
real f1_save(MAX_EARLY) real f1_save(MAX_EARLY)
real xdt_save(MAX_EARLY) real xdt_save(MAX_EARLY)
integer(c_int) :: ihsym integer(c_int) :: ihsym
logical(c_bool) :: ok
save s,dd,dd1,ndec_early,itone_save,f1_save,xdt_save,lsubtracted save s,dd,dd1,ndec_early,itone_save,f1_save,xdt_save,lsubtracted

4
lib/jt65_decode.f90
View File

@ -233,7 +233,7 @@ contains
nspecial=0 nspecial=0
call decode65a(dd,npts,first_time,nqd,freq,nflip,mode65,nvec, & call decode65a(dd,npts,first_time,nqd,freq,nflip,mode65,nvec, &
naggressive,ndepth,ntol,mycall,hiscall,hisgrid,nQSOProgress, & 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) nhist,nsmo,decoded)
if(nspecial.eq.2) decoded='RO' if(nspecial.eq.2) decoded='RO'
if(nspecial.eq.3) decoded='RRR' if(nspecial.eq.3) decoded='RRR'
@ -486,7 +486,7 @@ contains
nadd=nsum*ismo nadd=nsum*ismo
call extract(s3c,nadd,mode65,ntrials,naggressive,ndepth,nflip,mycall, & 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) avemsg,ltext,nftt,qual)
if(nftt.eq.1) then if(nftt.eq.1) then
nsmo=ismo nsmo=ismo