Silence compiler warnings.

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