IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Aug 21, 2005, 2:54:58 PM (21 years ago)
Author:
eugene
Message:

minor edits

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Ohana/src/opihi/dvo/cmatch.c

    r4844 r4852  
    33int cmatch (int argc, char **argv) {
    44 
    5   FILE *f;
    65  Catalog catalog1, catalog2;
    7   int i, Nbytes, nbytes, Nitems, nitems;
    8   char *tbuffer, filename[128];
    9   int nstar, NSTARS;
    10   double R, D, M, radius;
     6  char filename[128];
     7  double radius;
    118  char catdir[256], gscdir[256];
    129  Vector *rvec, *dvec, *mvec, *drvec, *ddvec, *dmvec;
     
    1411  VarConfig ("GSCDIR", "%s", gscdir);
    1512  VarConfig ("CATDIR", "%s", catdir);
    16   if (VarConfig ("CATMODE", "%s", catalog.catmode) == NULL)
    17     strcpy (catalog.catmode, "RAW");
     13  if (VarConfig ("CATMODE", "%s", catalog1.catmode) == NULL)
     14    strcpy (catalog1.catmode, "RAW");
    1815     
    1916  if (argc != 9) {
     
    3936  sprintf (filename, "%s/%s", catdir, argv[1]);
    4037  catalog1.filename = filename;
    41   switch (lock_catalog (&catalog, LCK_SOFT)) {
     38  switch (lock_catalog (&catalog1, LCK_SOFT)) {
    4239  case 2:
    43     unlock_catalog (&catalog);
     40    unlock_catalog (&catalog1);
    4441  case 0:
    4542    return (FALSE);
    4643  }
    47   if (!load_catalog (&catalog, LOAD_AVES | LOAD_MEAS | LOAD_SECF, TRUE)) {
    48     unlock_catalog (&catalog);
     44  if (!load_catalog (&catalog1, LOAD_AVES | LOAD_MEAS | LOAD_SECF, TRUE)) {
     45    unlock_catalog (&catalog1);
    4946    return (FALSE);
    5047  }
    51   unlock_catalog (&catalog);
     48  unlock_catalog (&catalog1);
    5249  fprintf (stderr, "read %d stars from phot catalog file %s\n", catalog1.Naverage, filename);
    5350
     51  /* this is for loading from a text file, presumably hstgsc or usno
     52     replace this with references to the ra and dec vectors?
    5453  nstar = 0;
    5554  NSTARS = DNSTARS;
     
    7675  catalog2.Naverage = nstar;
    7776  fclose (f);
     77  */
    7878
    7979  /* sort data in order of RA */
Note: See TracChangeset for help on using the changeset viewer.