Index: trunk/Ohana/src/opihi/cmd.astro/rotcurve.c
===================================================================
--- trunk/Ohana/src/opihi/cmd.astro/rotcurve.c	(revision 19823)
+++ trunk/Ohana/src/opihi/cmd.astro/rotcurve.c	(revision 34088)
@@ -8,5 +8,5 @@
   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,5 +99,5 @@
       }
       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;