Index: /trunk/psLib/src/collections/psVector.c
===================================================================
--- /trunk/psLib/src/collections/psVector.c	(revision 1301)
+++ /trunk/psLib/src/collections/psVector.c	(revision 1302)
@@ -8,6 +8,6 @@
  *  @author Ross Harman, MHPCC
  *
- *  @version $Revision: 1.14 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-07-15 23:52:33 $
+ *  @version $Revision: 1.15 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-07-27 23:25:19 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -181,4 +181,10 @@
     }
 
+    if(inType != outVector->type.type) {
+        psError(__func__, " : Line %d - Input and output vectors are not same type: in=%d out=%d\n", __LINE__,
+                inType, outVector->type.type);
+        return outVector;
+    }
+
     if(inN == 0) {
         psError(__func__, " : Line %d - No elements in use for input vector\n", __LINE__);
Index: /trunk/psLib/src/mathtypes/psVector.c
===================================================================
--- /trunk/psLib/src/mathtypes/psVector.c	(revision 1301)
+++ /trunk/psLib/src/mathtypes/psVector.c	(revision 1302)
@@ -8,6 +8,6 @@
  *  @author Ross Harman, MHPCC
  *
- *  @version $Revision: 1.14 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-07-15 23:52:33 $
+ *  @version $Revision: 1.15 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-07-27 23:25:19 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -181,4 +181,10 @@
     }
 
+    if(inType != outVector->type.type) {
+        psError(__func__, " : Line %d - Input and output vectors are not same type: in=%d out=%d\n", __LINE__,
+                inType, outVector->type.type);
+        return outVector;
+    }
+
     if(inN == 0) {
         psError(__func__, " : Line %d - No elements in use for input vector\n", __LINE__);