From 63bc2a64959b65e9f0f570ca2ef693974616bb53 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 12 Dec 2022 17:05:54 -0500 Subject: [PATCH] Two more compiler warnings... --- q65w/libq65/decode0.f90 | 5 ++--- q65w/libq65/q65wa.f90 | 5 ++--- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/q65w/libq65/decode0.f90 b/q65w/libq65/decode0.f90 index 542b8ca6d..14b2e75f3 100644 --- a/q65w/libq65/decode0.f90 +++ b/q65w/libq65/decode0.f90 @@ -48,9 +48,8 @@ subroutine decode0(dd,ss,savg) call timer('q65wa ',0) call q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, & - mousedf,mousefqso,nagain,ndecdone,nfshift,max_drift, & - nfcal,nsum,nxant,mycall, & - hiscall,hisgrid,nhsym,nfsample, & + mousedf,mousefqso,nagain,ndecdone,nfshift,max_drift, & + nfcal,nsum,mycall,hiscall,hisgrid,nhsym,nfsample, & ndiskdat,nmode,ndop00) call timer('q65wa ',1) flush(6) diff --git a/q65w/libq65/q65wa.f90 b/q65w/libq65/q65wa.f90 index 6b2dbdbe4..273081b41 100644 --- a/q65w/libq65/q65wa.f90 +++ b/q65w/libq65/q65wa.f90 @@ -1,7 +1,6 @@ -subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, & +subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, & mousedf,mousefqso,nagain,ndecdone,nfshift,max_drift, & - nfcal,nsum,nxant,mycall, & - hiscall,hisgrid,nhsym,nfsample, & + nfcal,nsum,mycall,hiscall,hisgrid,nhsym,nfsample, & ndiskdat,nmode,ndop00) ! Processes timf2 data from Linrad to find and decode JT65 and Q65 signals.