From 6c6838fb27442f16d7eea48e9522972f24266578 Mon Sep 17 00:00:00 2001
From: FrankThomasTveter <f.t.tveter@gmail.com>
Date: Thu, 28 Apr 2022 15:52:37 +0200
Subject: [PATCH] Fixed undefined value.

---
 astro/src/astro/event.F | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/astro/src/astro/event.F b/astro/src/astro/event.F
index 736d49e..ada5780 100644
--- a/astro/src/astro/event.F
+++ b/astro/src/astro/event.F
@@ -59,6 +59,7 @@ subroutine event(s1000,   ! query string
       real :: sec1,sec2,dsec1,dsec2,sec,cpuStart,cpuStop
       logical :: debug, silent, bdeb
       data bdeb /.false./
+      real, parameter :: undef =1.7E38
       integer :: cost
 C
 C      bdeb=.true.
@@ -528,7 +529,7 @@ subroutine execute_event()
             call jd2date(repJD(jj),yy,mm,dd,hh,mi,sec)
             call chop0(rep250(jj),250)
             lenr=length(rep250(jj),250,10)
-            if (nint(repVal(jj)).ne.-99999) then
+            if (nint(repVal(jj)).ne.-99999.and.repVal(jj).ne.undef) then
                val50=getVal50(repVal(jj))
                call chop0(val50,50)
                lenv=length(val50,50,10)