From 867d2fe1d925a92493553a6d69055d5f0c2ca9f6 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 17 Jul 2024 16:36:47 -0400
Subject: [PATCH] Correct for UTC wrap-around in setting Hound 'Age'. Max Age
= 99.
---
lib/decoder.f90 | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 8ae4e166a..3080bdbfc 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -194,14 +194,15 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
nsnrfox(j)=nsnrfox(i)
nfreqfox(j)=nfreqfox(i)
n30fox(j)=n
- nage=n30-n
+ nage=min(99,mod(n30-n+288000,2880))
if(len(trim(g2fox(j))).eq.4) then
call azdist(mygrid,g2fox(j)//' ',0.d0,nAz,nEl,nDmiles, &
nDkm,nHotAz,nHotABetter)
else
nDkm=9999
endif
- write(19,1004) c2fox(j),g2fox(j),nsnrfox(j),nfreqfox(j),nDkm,nage
+ write(19,1004) c2fox(j),g2fox(j),nsnrfox(j),nfreqfox(j), &
+ nDkm,nage
1004 format(a12,1x,a4,i5,i6,i7,i3)
endif
enddo