Changeset 20839 for branches/eam_branch_20081124/Ohana/src/opihi/cmd.data/cut.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.data/cut.c (modified) (4 diffs)

branches/eam_branch_20081124/Ohana/src/opihi/cmd.data/cut.c

@@ -49 +49 @@
     /* create output vectors */
     xvec[0].Nelements = yvec[0].Nelements = nx;
-    REALLOCATE (xvec[0].elements, float, MAX (nx, 1));
-    REALLOCATE (yvec[0].elements, float, MAX (nx, 1));
-    bzero (yvec[0].elements, nx*sizeof(float));
+    REALLOCATE (xvec[0].elements.Flt, opihi_flt, MAX (nx, 1));
+    REALLOCATE (yvec[0].elements.Flt, opihi_flt, MAX (nx, 1));
+    bzero (yvec[0].elements.Flt, nx*sizeof(opihi_flt));
     for (i = 0; i < nx; i++) {
-      xvec[0].elements[i] = i + sx; 
+      xvec[0].elements.Flt[i] = i + sx; 
     }
     ALLOCATE (Vbuf, float, MAX (ny, 1));
@@ -74 +74 @@
         if (Mode == MEAN) { value /= ny; }
       }
-      yvec[0].elements[i] = value;
+      yvec[0].elements.Flt[i] = value;
     }
     free (Vbuf);
@@ -82 +82 @@
   case 'Y':
     xvec[0].Nelements = yvec[0].Nelements = ny;
-    REALLOCATE (xvec[0].elements, float, ny);
-    REALLOCATE (yvec[0].elements, float, ny);
-    bzero (yvec[0].elements, ny*sizeof(float));
+    REALLOCATE (xvec[0].elements.Flt, opihi_flt, ny);
+    REALLOCATE (yvec[0].elements.Flt, opihi_flt, ny);
+    bzero (yvec[0].elements.Flt, ny*sizeof(opihi_flt));
     for (i = 0; i < ny; i++) {
-      xvec[0].elements[i] = i + sy; 
+      xvec[0].elements.Flt[i] = i + sy; 
     }
     ALLOCATE (Vbuf, float, MAX (nx, 1));
@@ -107 +107 @@
         if (Mode == MEAN) { value /= nx; }
       }
-      yvec[0].elements[i] = value;
+      yvec[0].elements.Flt[i] = value;
     }
     free (Vbuf);