Changeset 16040 for trunk/Ohana/src/opihi/dvo/lcurve.c

Timestamp:

Jan 8, 2008, 12:50:52 PM (19 years ago)

Author:

eugene

Message:

replaced sort functions drived from press with sort macros derived from gsl

File:

• trunk/Ohana/src/opihi/dvo/lcurve.c (modified) (4 diffs)

trunk/Ohana/src/opihi/dvo/lcurve.c

@@ -5 +5 @@
   char string[128], *p;
   double Ra, Dec, Radius, Radius2, r;
-  float *RA, *DEC;
+  double *RA, *DEC;
   int kapa, TimeFormat;
   int Nstars, found, AutoLimits, ErrorBars, GalMag, AbsPhot, SaveVectors;
@@ -86 +86 @@
 
   Nstars = catalog.Naverage;
-  ALLOCATE (RA, float, Nstars);
-  ALLOCATE (DEC, float, Nstars);
+  ALLOCATE (RA, double, Nstars);
+  ALLOCATE (DEC, double, Nstars);
   ALLOCATE (N1, int, Nstars);
 
@@ -98 +98 @@
   }
   /* sort list by DEC */
-  if (Nstars > 1) sort_lists (DEC, RA, N1, Nstars);
+  if (Nstars > 1) sort_coords_index (DEC, RA, N1, Nstars);
   /* at this point, RA, DEC, and N1 are sorted by DEC.  
      catalog.average[N1[i]].R = RA[i] */
@@ -142 +142 @@
   
   if (ErrorBars)
-    sortthree (Xvec.elements, Yvec.elements, dYvec.elements, N);
+    fsortthree (Xvec.elements, Yvec.elements, dYvec.elements, N);
   else
     fsortpair (Xvec.elements, Yvec.elements, N);