Changeset 20936 for trunk/Ohana/src/opihi/cmd.data/svd.c

Timestamp:

Dec 7, 2008, 3:31:01 PM (18 years ago)

Author:

eugene

Message:

big update from eam_branch_20081124 with updates to Opihi math

File:

• trunk/Ohana/src/opihi/cmd.data/svd.c (modified) (2 diffs)

trunk/Ohana/src/opihi/cmd.data/svd.c

@@ -4 +4 @@
   
   int i, Nx, Ny, status;
-  float *in, *out, *A, *U, *W, *V;
+  float *in, *out, *A, *U, *V;
+  Buffer *Ma, *Mu, *Mv;
   Vector *Vw;
-  Buffer *Ma, *Mu, *Mv;
+  opihi_flt *W;
 
   if (argc != 6) goto usage;
@@ -42 +43 @@
 
   /* w is Nx */
-  Vw[0].Nelements = Nx;
-  REALLOCATE (Vw[0].elements, float, Nx);
+  ResetVector (Vw, OPIHI_FLT, Nx);
 
   /* pointers to the various arrays */
   A = (float *) Ma[0].matrix.buffer;
   U = (float *) Mu[0].matrix.buffer;
-  W = (float *) Vw[0].elements;
   V = (float *) Mv[0].matrix.buffer;
+  W = Vw[0].elements.Flt;
 
   /* copy A to U (svdcmp replaces A with U) */