Changeset 7080 for trunk/Ohana/src/opihi/cmd.astro/rotcurve.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/opihi/cmd.astro/rotcurve.c (modified) (1 diff)

trunk/Ohana/src/opihi/cmd.astro/rotcurve.c

@@ -52 +52 @@
 
   /* we expect the input image to have units of velocity, lattitude, and longitude */
-  fits_scan (&in[0].header, "CRVAL1", "%lf", 1, &Vo);
-  fits_scan (&in[0].header, "CDELT1", "%lf", 1, &dV);
-  fits_scan (&in[0].header, "CRPIX1", "%lf", 1, &xo);
-  fits_scan (&in[0].header, "CRVAL2", "%lf", 1, &Bo);
-  fits_scan (&in[0].header, "CDELT2", "%lf", 1, &dB);
-  fits_scan (&in[0].header, "CRPIX2", "%lf", 1, &yo);
-  fits_scan (&in[0].header, "CRVAL3", "%lf", 1, &L);
+  gfits_scan (&in[0].header, "CRVAL1", "%lf", 1, &Vo);
+  gfits_scan (&in[0].header, "CDELT1", "%lf", 1, &dV);
+  gfits_scan (&in[0].header, "CRPIX1", "%lf", 1, &xo);
+  gfits_scan (&in[0].header, "CRVAL2", "%lf", 1, &Bo);
+  gfits_scan (&in[0].header, "CDELT2", "%lf", 1, &dB);
+  gfits_scan (&in[0].header, "CRPIX2", "%lf", 1, &yo);
+  gfits_scan (&in[0].header, "CRVAL3", "%lf", 1, &L);
   Vo *= 0.001;
   dV *= 0.001;
 
   /* we expect the output image to have units of longitude and distance */
-  fits_scan (&out[0].header, "CRVAL1", "%lf", 1, &Lo);
-  fits_scan (&out[0].header, "CDELT1", "%lf", 1, &dL);
-  fits_scan (&out[0].header, "CRPIX1", "%lf", 1, &Xo);
-  fits_scan (&out[0].header, "CRVAL2", "%lf", 1, &Do);
-  fits_scan (&out[0].header, "CDELT2", "%lf", 1, &dD);
-  fits_scan (&out[0].header, "CRPIX2", "%lf", 1, &Yo);
+  gfits_scan (&out[0].header, "CRVAL1", "%lf", 1, &Lo);
+  gfits_scan (&out[0].header, "CDELT1", "%lf", 1, &dL);
+  gfits_scan (&out[0].header, "CRPIX1", "%lf", 1, &Xo);
+  gfits_scan (&out[0].header, "CRVAL2", "%lf", 1, &Do);
+  gfits_scan (&out[0].header, "CDELT2", "%lf", 1, &dD);
+  gfits_scan (&out[0].header, "CRPIX2", "%lf", 1, &Yo);
 
   while (L >= 360) {L -= 360.0;}