Changeset 34088 for trunk/Ohana/src/opihi/cmd.astro/rotcurve.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

Location:

trunk/Ohana/src/opihi/cmd.astro

Files:

• . (modified) (1 prop)
• rotcurve.c (modified) (2 diffs)

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

@@ -8 +8 @@
   double L, dL, Lo, V, Vo, dV, Bo, dB, Do, dD;
   double xo, yo, Xo, Yo;
-  double sl, cl, wo, Ro, Rs, wr, r, fr, d, min;
+  double sl, cl, wo, Ro, Rs, wr, r, d, min;
   double R[100], T[100], W[100];
   FILE *f;
@@ -99 +99 @@
       }
       r = (wr - W[n]) *  (R[n-1] - R[n]) / (W[n-1] - W[n]) + R[n];
-      fr = (Ro/r);
+      // fr = (Ro/r);
       if (r < fabs(Rs)) { /* can't be on rotation curve */
         continue;