From 3446b45b2b4b85438b89dd6280ef1d34b3efc38e Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Tue, 17 Sep 2024 13:44:10 -0500 Subject: [PATCH] This fixes the all-zeroes SNR issue on MacOS. --- lib/mskrtd.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/mskrtd.f90 b/lib/mskrtd.f90 index d79165639..b81e7f8a0 100644 --- a/lib/mskrtd.f90 +++ b/lib/mskrtd.f90 @@ -74,15 +74,15 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,hiscall, & ! dxcall13=hiscall//' ' mycall13=' ' dxcall13=' ' - mycall13(1:12)=mycall - dxcall13(1:12)=hiscall + mycall13(1:12)=mycall(1:12) + dxcall13(1:12)=hiscall(1:12) first=.false. endif fc=nrxfreq ! Reset if mycall or dxcall changes - if(mycall13(1:12).ne.mycall .or. dxcall13(1:12).ne.hiscall) first=.true. + if(mycall13(1:12).ne.mycall(1:12) .or. dxcall13(1:12).ne.hiscall(1:12)) first=.true. ! Dupe checking setup if(nutc00.ne.nutc0 .or. tsec.lt.tsec0) then ! reset dupe checker