w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-31 05:02:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Code cleanup: remove several unused dummy arguments.

Browse Source
This commit is contained in:
Joe Taylor 2018-07-25 15:19:57 -04:00
parent 7ff366abe3
commit f7c02ec587
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/decoder.f90
View File

@ -95,10 +95,10 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
newdat=params%newdat newdat=params%newdat
call my_ft8%decode(ft8_decoded,id2,params%nQSOProgress,params%nfqso, & call my_ft8%decode(ft8_decoded,id2,params%nQSOProgress,params%nfqso, &
params%nftx,newdat,params%nutc,params%nfa,params%nfb, & 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%lft8apon),logical(params%lapcqonly), &
logical(params%ldecode77),params%napwid, & logical(params%ldecode77),params%napwid, &
mycall,mygrid,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))

9
lib/ft8_decode.f90
View File

@ -33,8 +33,8 @@ 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,nexp_decode,ndepth,nagain,lft8apon,lapcqonly,ldecode77,napwid, & nutc,nfa,nfb,ndepth,nagain,lft8apon,lapcqonly,ldecode77,napwid, &
mycall12,mygrid6,hiscall12,hisgrid6) mycall12,hiscall12,hisgrid6)
! use wavhdr ! use wavhdr
use timer_module, only: timer use timer_module, only: timer
include 'ft8/ft8_params.f90' include 'ft8/ft8_params.f90'
@ -49,10 +49,11 @@ contains
logical, intent(in) :: lft8apon,lapcqonly,ldecode77,nagain logical, intent(in) :: lft8apon,lapcqonly,ldecode77,nagain
logical newdat,lsubtract,ldupe logical newdat,lsubtract,ldupe
character*12 mycall12, hiscall12 character*12 mycall12, hiscall12
character*6 mygrid6,hisgrid6 character*6 hisgrid6
integer*2 iwave(15*12000) integer*2 iwave(15*12000)
integer apsym1(KK),apsym2(77) integer apsym1(KK),apsym2(77)
character datetime*13,message*22,msg37*37 character datetime*13,msg37*37
! character message*22
character*37 allmessages(100) character*37 allmessages(100)
integer allsnrs(100) integer allsnrs(100)
save s,dd save s,dd