Changeset 20873 for branches/eam_branch_20081124/Ohana/src/opihi/lib.shell/VectorOps.c

Timestamp:

Dec 2, 2008, 6:24:28 PM (18 years ago)

Author:

eugene

Message:

fixes for interger-type vectors; finish imextract upgrade

File:

• branches/eam_branch_20081124/Ohana/src/opihi/lib.shell/VectorOps.c (modified) (1 diff)

branches/eam_branch_20081124/Ohana/src/opihi/lib.shell/VectorOps.c

@@ -187 +187 @@
 }
 
+// SetVector (vecx, OPIHI_FLT, MAX (Npts, 1));
+int SetVector (Vector *vec, char type, int Nelements) {
+
+  vec[0].Nelements = Nelements;
+  if (type == OPIHI_FLT) {
+    ALLOCATE (vec[0].elements.Flt, opihi_flt, Nelements);
+    vec[0].type = OPIHI_FLT;
+  } else {
+    ALLOCATE (vec[0].elements.Int, opihi_int, Nelements);
+    vec[0].type = OPIHI_INT;
+  }
+  return TRUE;
+}
+
 // recast the vector to the specified type
 int CastVector (Vector *vec, char type) {