From 290dcd0b112a385b604e1f50d0f65324c5ab70c7 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 10 Mar 2023 09:11:01 -0500
Subject: [PATCH] Fix MAP65's list of arguments when calling map65_mmdec().
---
map65/libm65/q65b.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90
index 7cf455edf..1df35b82c 100644
--- a/map65/libm65/q65b.f90
+++ b/map65/libm65/q65b.f90
@@ -137,10 +137,11 @@ subroutine q65b(nutc,nqd,nxant,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
nfb=min(2500,1000+ntol)
endif
nsnr0=-99 !Default snr for no decode
+ ndpth=3
! NB: Frequency of ipk is now shifted to 1000 Hz.
call map65_mmdec(nutc,iwave,nqd,nsubmode,nfa,nfb,1000,ntol, &
- newdat,nagain,max_drift,mycall,hiscall,hisgrid)
+ newdat,nagain,max_drift,ndepth,mycall,hiscall0,hisgrid)
MHz=fcenter
freq0=MHz + 0.001d0*ikhz