From a67444ea1e2ccd5f9cedf726dbd2c35fbfd5294c Mon Sep 17 00:00:00 2001
From: Ralph Lange <Ralph.Lange@bessy.de>
Date: Fri, 20 Jul 2001 17:36:41 +0000
Subject: [PATCH] Fixed HPUX 11 problem: isnan() is a macro.

---
 src/libCom/calc/sCalcPerform.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/libCom/calc/sCalcPerform.c b/src/libCom/calc/sCalcPerform.c
index 41aa7cef0..7a9afab23 100644
--- a/src/libCom/calc/sCalcPerform.c
+++ b/src/libCom/calc/sCalcPerform.c
@@ -72,6 +72,7 @@
 
 static double	local_random(void);
 
+#ifndef isnan
 static int isnan(double d)
 {
 	union { long l[2]; double d; } u;
@@ -80,6 +81,8 @@ static int isnan(double d)
 	if (u.l[1] || (u.l[0] & 0x000fffff)) return(1);
 	return(0);
 }
+#endif
+
 #define myNINT(a) ((int)((a) >= 0 ? (a)+0.5 : (a)-0.5))
 #ifndef PI
 #define PI 3.141592654