Index: /trunk/psLib/src/dataManip/psMatrixVectorArithmetic.c
===================================================================
--- /trunk/psLib/src/dataManip/psMatrixVectorArithmetic.c	(revision 1063)
+++ /trunk/psLib/src/dataManip/psMatrixVectorArithmetic.c	(revision 1064)
@@ -29,6 +29,6 @@
  *  @author Ross Harman, MHPCC
  *
- *  @version $Revision: 1.2 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-06-18 23:34:59 $
+ *  @version $Revision: 1.3 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-06-19 02:00:45 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -79,4 +79,19 @@
 #define MAX(A,B) (((A) > (B)) ? (A) : (B))
 
+#define VECTOR_SCALAR(OUT,IN1,OP,IN2,TYPE)                                                                   \
+{                                                                                                            \
+    int i = 0;                                                                                               \
+    int npt = 0;                                                                                             \
+    ps##TYPE *o = NULL;                                                                                      \
+    ps##TYPE *i1 = NULL;                                                                                     \
+    ps##TYPE *i2 = NULL;                                                                                     \
+    npt  = ((psVector*)IN1)->n;                                                                              \
+    o  = ((psVector*)OUT)->data.TYPE;                                                                        \
+    i1 = ((psVector*)IN1)->data.TYPE;                                                                        \
+    i2 = &((psScalar*)IN2)->data.TYPE;                                                                       \
+    for (i=0; i < npt; i++, o++, i1++) {                                                                     \
+        *o = OP;                                                                                             \
+    }                                                                                                        \
+}
 #define VECTOR_VECTOR(OUT,IN1,OP,IN2,TYPE)                                                                   \
 {                                                                                                            \