Changeset 34088 for trunk/Ohana/src/opihi/lib.data/svdcmp.c

Timestamp:

Jun 26, 2012, 11:46:01 AM (14 years ago)

Author:

eugene

Message:

updates for pedantic gcc, mods to relphot average mags to handle GPC1 stacks

File:

• trunk/Ohana/src/opihi/lib.data/svdcmp.c (modified) (3 diffs)

trunk/Ohana/src/opihi/lib.data/svdcmp.c

@@ -14 +14 @@
 int svdcmp (float *a, opihi_flt *w, float *v, int Nx, int Ny) {
 
-  int flag, i, its, j, jj, k, l, nm, status;
+  int flag, i, its, j, jj, k, l, nm;
   float c, f, h, s, x, y, z;
   float anorm=0.0, g = 0.0, scale = 0.0;
@@ -111 +111 @@
   }
 
-  status = 1;
+  // int status = 1;
   for (k = Nx - 1; k >= 0; k--) {
     for (its = 0; its < 30; its++) {
@@ -152 +152 @@
         break;
       }
-      if (its == 29) status = 0;
+      // if (its == 29) status = 0;
       x = w[l];
       nm = k-1;