Index: trunk/psLib/src/dataManip/psConstants.h
===================================================================
--- trunk/psLib/src/dataManip/psConstants.h	(revision 2230)
+++ trunk/psLib/src/dataManip/psConstants.h	(revision 2261)
@@ -6,6 +6,6 @@
  *  @author GLG, MHPCC
  *
- *  @version $Revision: 1.31 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-10-28 23:03:11 $
+ *  @version $Revision: 1.32 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-11-02 01:52:43 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -225,5 +225,9 @@
 } \
 
-
+#define PS_POLY_CHECK_TYPE(NAME, TYPE, RVAL) \
+if (NAME->type != TYPE) { \
+    psError(__func__,"Unallowable operation: polynomial %s has wrong type.", #NAME); \
+    return(RVAL); \
+} \
 
 /*****************************************************************************