Changeset 39640 for trunk/Ohana/src/opihi/lib.shell/VectorOps.c

Timestamp:

Jul 28, 2016, 2:14:52 PM (10 years ago)

Author:

eugene

Message:

new api to set vector value en-masse; fix the fit1d_irls mean calculation

File:

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

trunk/Ohana/src/opihi/lib.shell/VectorOps.c

@@ -229 +229 @@
   } else {
     REALLOCATE (vec[0].elements.Int, opihi_int, MAX(1, Nelements));
+    vec[0].type = OPIHI_INT;
+  }
+  return TRUE;
+}
+
+int SetVectorValues (Vector *vec, void *data, char type, int Nelements) {
+
+  // a vector can only have >= 0 elements
+  vec[0].Nelements = MAX(Nelements,0);
+  if (type == OPIHI_FLT) {
+    free (vec[0].elements.Flt);
+    vec[0].elements.Flt = (opihi_flt *) data;
+    vec[0].type = OPIHI_FLT;
+  } else {
+    free (vec[0].elements.Int);
+    vec[0].elements.Int = (opihi_int *) data;
     vec[0].type = OPIHI_INT;
   }