Changeset 2218 for trunk/psLib/src/math/psConstants.h

Timestamp:

Oct 27, 2004, 11:25:52 AM (22 years ago)

Author:

gusciora

Message:

Added parameter checking for psFunctions.c.

File:

• trunk/psLib/src/math/psConstants.h (modified) (3 diffs)

trunk/psLib/src/math/psConstants.h

@@ -6 +6 @@
  *  @author GLG, MHPCC
  *
- *  @version $Revision: 1.25 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-10-27 21:06:30 $
+ *  @version $Revision: 1.26 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-10-27 21:25:52 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -36 +36 @@
 }
 
+#define PS_FLOAT_COMPARE(NAME1, NAME2, RVAL) \
+if ((NAME1 - NAME2) < -FLT_EPSILON) { \
+    psError(__func__,"%s is less than %s.", #NAME1, #NAME2); \
+    return(RVAL); \
+}
+
 
 
@@ -54 +60 @@
 }
 
+#define PS_PTR_CHECK_SIZE_EQUAL(PTR1, PTR2, RVAL) \
+if (PTR1->n != PTR2->n) { \
+    psError(__func__,"ptr %s has size %d, ptr %s has size %d.", #PTR1, PTR1->n, #PTR2, PTR2->n); \
+    return(RVAL); \
+}
+
+#define PS_PTR_CHECK_TYPE_EQUAL(PTR1, PTR2, RVAL) \
+if (PTR1->type.type != PTR2->type.type) { \
+    psError(__func__,"ptr %s has type %d, ptr %s has type %d.", #PTR1, PTR1->type.type, #PTR2, PTR2->type.type); \
+    return(RVAL); \
+}