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.