Changeset 16040 for trunk/Ohana/src/opihi/dvo/lightcurve.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/lightcurve.c (modified) (4 diffs)

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

@@ -4 +4 @@
   
   double Ra, Dec, Radius, Radius2, r;
-  float *RA, *DEC;
+  double *RA, *DEC;
   int Nstars, found, PhotCodeSelect;
   int i, j, k, m, N, NPTS, Nsecfilt, RELPHOT, *N1, TimeFormat;
@@ -69 +69 @@
 
   Nstars = catalog.Naverage;
-  ALLOCATE (RA, float, Nstars);
-  ALLOCATE (DEC, float, Nstars);
+  ALLOCATE (RA, double, Nstars);
+  ALLOCATE (DEC, double, Nstars);
   ALLOCATE (N1, int, Nstars);
 
@@ -81 +81 @@
   }
   /* 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] */
@@ -134 +134 @@
     }
   }
-  sortthree (tvec[0].elements, mvec[0].elements, dmvec[0].elements, N);
+  fsortthree (tvec[0].elements, mvec[0].elements, dmvec[0].elements, N);
   tvec[0].Nelements = mvec[0].Nelements = dmvec[0].Nelements = N;