Changeset 7080 for trunk/Ohana/src/misc/src/applyscat.c

Timestamp:

May 5, 2006, 5:44:26 PM (20 years ago)

Author:

eugene

Message:

big move: fits_ to gfits_; minor updates to relphot

File:

• trunk/Ohana/src/misc/src/applyscat.c (modified) (5 diffs)

trunk/Ohana/src/misc/src/applyscat.c

@@ -20 +20 @@
 
   /* read smp header */
-  if (!fits_read_header (argv[1], &header)) {
+  if (!gfits_read_header (argv[1], &header)) {
     fprintf (stderr, "ERROR: can't find image file %s\n", argv[1]);
     exit (1);
@@ -34 +34 @@
 
   /* find expected number of stars */
-  fits_scan (&header, "NSTARS", "%d", 1, &Nstar);
+  gfits_scan (&header, "NSTARS", "%d", 1, &Nstar);
   if (Nstar == 0) {
     fprintf (stderr, "ERROR: can't get NSTARS from header\n");
@@ -60 +60 @@
   }
 
-  if (!fits_read_matrix (argv[2], &matrix)) {
+  if (!gfits_read_matrix (argv[2], &matrix)) {
     fprintf (stderr, "ERROR: can't open scatter image file %s\n", argv[2]);
     exit (1);
@@ -79 +79 @@
     x = stars[i].X;
     y = stars[i].Y;
-    ratio = fits_get_matrix_value (&matrix, x, y);
+    ratio = gfits_get_matrix_value (&matrix, x, y);
     dmag = -2.5*log10(ratio);
     dmag = (dmag > +1.0) ? 0.0 : dmag;
@@ -93 +93 @@
 
   /* write smp header */
-  if (!fits_write_header (argv[3], &header)) {
+  if (!gfits_write_header (argv[3], &header)) {
     fprintf (stderr, "ERROR: can't write output file header %s\n", argv[3]);
     exit (1);