Silence compiler warnings.

This commit is contained in:
Joe Taylor
2020-03-19 10:43:45 -04:00
parent 430a413f95
commit 4fa3ee3437
5 changed files with 8 additions and 6 deletions
+1 -1
View File
@@ -159,7 +159,7 @@ subroutine multimode_decoder(ipc1,ss,id2,params,nfsample)
if(params%nmode.eq.5) then
call timer('decft4 ',0)
call my_ft4%decode(ft4_decoded,id2,params%nQSOProgress,params%nfqso, &
params%nutc,params%nfa,params%nfb,params%ndepth, &
params%nfa,params%nfb,params%ndepth, &
logical(params%lapcqonly),ncontest,mycall,hiscall)
call timer('decft4 ',1)
go to 800