Changeset 4689 for trunk/Ohana/src/opihi/cmd.astro

Timestamp:

Jul 31, 2005, 1:04:22 PM (21 years ago)

Author:

eugene

Message:

cleanups so -Wall -Werror succeed, some .h reorgs

Location:

trunk/Ohana/src/opihi/cmd.astro

Files:

• biassub.c (modified) (1 diff)
• drizzle.c (modified) (1 diff)
• getvel.c (modified) (2 diffs)
• imfit-Sgauss.c (modified) (1 diff)
• imfit.c (modified) (2 diffs)
• medianmap.c (modified) (1 diff)
• region.c (modified) (1 diff)
• spec.c (modified) (1 diff)

trunk/Ohana/src/opihi/cmd.astro/biassub.c

@@ -9 +9 @@
   Buffer *buf;
 
+  xvec = yvec = NULL;
   NoVector = TRUE;
   if ((N = get_argument (argc, argv, "-v"))) {

trunk/Ohana/src/opihi/cmd.astro/drizzle.c

@@ -175 +175 @@
   double N, r, d;
 
+  Xin = Yin = 0;
   N = x = y = x2 = y2 = xy = X = Y = Xx = Xy = Yx = Yy = 0;
 

trunk/Ohana/src/opihi/cmd.astro/getvel.c

@@ -3 +3 @@
 int getvel (int argc, char **argv) {
   
-  int i, X, n, Ncurve;
+  int i, n, Ncurve;
   int nx, ny;
   double L, V, Vo, dV, Bo, dB;
@@ -45 +45 @@
   while (L >= 360) {L -= 360.0;}
   while (L < 0.0)  {L += 360.0;}
-  fprintf (stderr, "L: %f (%d)\n", L, X);
+  fprintf (stderr, "L: %f\n", L);
 
   cl = cos (L*RAD_DEG);

trunk/Ohana/src/opihi/cmd.astro/imfit-Sgauss.c

@@ -46 +46 @@
 
   float X, Y, px1, py1, px2, py2;
-  float z1, z2, r, q1, q2, f, f1, f2;
+  float z1, z2, r, q1, q2, f;
 
   X = x - par[0];

trunk/Ohana/src/opihi/cmd.astro/imfit.c

@@ -6 +6 @@
   int sx, sy, nx, ny, Nx, Ny;
   float chisq, ochisq, dchisq, Gain, RDnoise, SatThreshold;
-  float *x, *y, *z, *dz, *V, *parmin, *parmax;
-  char line[64];
+  float *x, *y, *z, *dz, *V;
   Buffer *buf;
 
@@ -123 +122 @@
   ochisq = mrq2dinit (x, y, z, dz, Npts, par, Npar, fitfunc, VERBOSE);
   dchisq = ochisq;
+  chisq  = ochisq;
   for (i = 0; (i < 25) && ((dchisq <= 0.0) || (dchisq > 0.01*(Npts - Npar))); i++) {
     chisq = mrq2dmin (x, y, z, dz, Npts, par, Npar, fitfunc, VERBOSE);

trunk/Ohana/src/opihi/cmd.astro/medianmap.c

@@ -11 +11 @@
   Buffer *in, *out;
 
+  IgnoreValue = 0;
   Ignore = FALSE;
   if ((N = get_argument (argc, argv, "-ignore"))) {

trunk/Ohana/src/opihi/cmd.astro/region.c

@@ -3 +3 @@
 int region (int argc, char **argv) {
   
-  char buffer[65], buffer2[35], string[256];
+  char buffer[65], string[256];
   double Ra, Dec, Radius;
   double dx, dy;
-  int status, N;
+  int N, Ngraph, Xgraph;
   Graphdata graphmode;
-  int Ngraph, Xgraph;
 
   Ngraph = 0;

trunk/Ohana/src/opihi/cmd.astro/spec.c

@@ -91 +91 @@
     }
     fsort (buffer, Nring);
-    for (Npts = sky = 0, i = 0.25*Nring; i < 0.75*Nring; i++, Npts += 1.0) {
+    for (Npts = sky = sky2 = 0, i = 0.25*Nring; i < 0.75*Nring; i++, Npts += 1.0) {
       sky += buffer[i];
       sky2 += buffer[i]*buffer[i];