Code cleanup: remove several unused dummy arguments.

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
+3 -3
View File
@@ -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))