Changeset 20839 for branches/eam_branch_20081124/Ohana/src/opihi/cmd.astro/biassub.c

Timestamp:

Nov 25, 2008, 4:51:39 PM (18 years ago)

Author:

eugene

Message:

convert opihi vectors to double type, add option for int type as well

File:

• branches/eam_branch_20081124/Ohana/src/opihi/cmd.astro/biassub.c (modified) (3 diffs)

branches/eam_branch_20081124/Ohana/src/opihi/cmd.astro/biassub.c

@@ -5 +5 @@
   int i, j, k, N, dir, nlong, nwide, start;
   int sx, sy, nx, ny, NX, NY, NoVector, Nval;
-  float *V, *DV, dV, *vect, *segment, val;
+  float *V, dV, *segment, val;
+  opihi_flt *DV, *vect;
   Vector *xvec, *yvec;
   Buffer *buf;
@@ -54 +55 @@
   }
 
-  ALLOCATE (vect, float, nlong);
+  ALLOCATE (vect, opihi_flt, nlong);
   ALLOCATE (segment, float, nwide);
 
@@ -91 +92 @@
   if (!NoVector) {
     xvec[0].Nelements = yvec[0].Nelements = nlong;
-    REALLOCATE (xvec[0].elements, float, nlong);
-    REALLOCATE (yvec[0].elements, float, nlong);
+    REALLOCATE (xvec[0].elements.Flt, opihi_flt, nlong);
+    REALLOCATE (yvec[0].elements.Flt, opihi_flt, nlong);
     for (i = 0; i < nlong; i++) {
-      xvec[0].elements[i] = i + start;
-      yvec[0].elements[i] = vect[i];
+      xvec[0].elements.Flt[i] = i + start;
+      yvec[0].elements.Flt[i] = vect[i];
     }
   }