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

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

@@ -10 +10 @@
   double Ra, Dec, Radius, Radius2, r, dec0, dec1;
   double Mcat, Mrel;
-  float *RA, *DEC;
+  double *RA, *DEC;
   int i, j, k, m, N, *N1, Nsecfilt, NPTS, QUIET, FULL_OUTPUT;
   int Nstars, found, GetMeasures, Nlo, Nhi;
@@ -93 +93 @@
 
   Nstars = catalog.Naverage;
-  ALLOCATE (RA, float, Nstars);
-  ALLOCATE (DEC, float, Nstars);
+  ALLOCATE (RA, double, Nstars);
+  ALLOCATE (DEC, double, Nstars);
   ALLOCATE (N1, int, Nstars);
 
@@ -105 +105 @@
   }
   /* 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] */
@@ -308 +308 @@
   }
 
-  isort_pair (codeNumber, sequence, Nsecfilt);
+  isortpair (codeNumber, sequence, Nsecfilt);
   free (codeNumber);
 }