Changeset 36398

Timestamp:

Dec 13, 2013, 10:31:05 AM (13 years ago)

Author:

eugene

Message:

make Coords.ctype consistently use the CTYPE2 value; cdensify generates WCS keywords

Location:

branches/eam_branches/ipp-20131211/Ohana/src

Files:

• addstar/src/GetFileMode.c (modified) (1 diff)
• addstar/src/LoadDataPMM.c (modified) (1 diff)
• addstar/src/ReadStarsSDSS.c (modified) (1 diff)
• addstar/src/fakeimage.c (modified) (2 diffs)
• addstar/src/find_matches.c (modified) (1 diff)
• addstar/src/find_matches_closest.c (modified) (1 diff)
• addstar/src/find_matches_closest_refstars.c (modified) (1 diff)
• addstar/src/find_matches_refstars.c (modified) (1 diff)
• addstar/src/loadsupercos_plates.c (modified) (1 diff)
• addstar/src/sky_tessalation.c (modified) (1 diff)
• dvomerge/src/merge_catalogs_old.c (modified) (1 diff)
• fixcat/src/gcatstats.c (modified) (1 diff)
• gastro/src/gstars.c (modified) (1 diff)
• gastro2/src/coordtest.c (modified) (1 diff)
• gastro2/src/gstars2.c (modified) (1 diff)
• getstar/src/GetFileMode.c (modified) (1 diff)
• getstar/src/MatchImages.c (modified) (2 diffs)
• kapa2/src/Graphs.c (modified) (1 diff)
• kapa2/src/Image.c (modified) (1 diff)
• libdvo/src/ImageMetadataSelection.c (modified) (2 diffs)
• libdvo/src/ImageSelection.c (modified) (1 diff)
• libdvo/src/coordops.c (modified) (2 diffs)
• libkapa/src/KapaWindow.c (modified) (1 diff)
• markrock/src/gcatstats.c (modified) (1 diff)
• markstar/src/gcatstats.c (modified) (1 diff)
• mosastro/src/warptest.c (modified) (1 diff)
• opihi/cmd.astro/cdensify.c (modified) (3 diffs)
• opihi/cmd.astro/fitplx.c (modified) (1 diff)
• opihi/cmd.astro/region.c (modified) (1 diff)
• opihi/dvo/find_matches.c (modified) (1 diff)
• opihi/dvo/gimages.c (modified) (1 diff)
• opihi/dvo/showtile.c (modified) (1 diff)
• opihi/dvo/simage.c (modified) (1 diff)
• photdbc/src/find_images.c (modified) (1 diff)
• photdbc/src/join_stars.c (modified) (1 diff)
• relastro/src/UpdateObjects.c (modified) (1 diff)
• relastro/src/high_speed_objects.c (modified) (1 diff)
• relastro/src/hpm_objects.c (modified) (1 diff)
• relastro/src/select_images.c (modified) (1 diff)
• relastro/src/testparallax.c (modified) (1 diff)
• relphot/src/MosaicOps.c (modified) (1 diff)
• relphot/src/select_images.c (modified) (2 diffs)
• uniphot/src/find_image_sgroups.c (modified) (1 diff)
• uniphot/src/update_dvo_uniphot.c (modified) (1 diff)

branches/eam_branches/ipp-20131211/Ohana/src/addstar/src/GetFileMode.c

@@ -12 +12 @@
   gfits_scan_alt (header, "SIMPLE", "%t", 1, &simple);
   int haveNaxis = gfits_scan (header, "NAXIS",  "%d", 1, &Naxis);
-  int haveCTYPE = gfits_scan (header, "CTYPE1", "%s", 1, ctype);
+  int haveCTYPE = gfits_scan (header, "CTYPE2", "%s", 1, ctype);
 
   gfits_scan_alt (header, "EXTEND", "%t", 1, &extend);

branches/eam_branches/ipp-20131211/Ohana/src/addstar/src/LoadDataPMM.c

@@ -193 +193 @@
 
     // XXX for now, we define a totally fake coordinate system centered on the plate center
-    strcpy (image[0].coords.ctype, "RA---TAN");
+    strcpy (image[0].coords.ctype, "DEC--TAN");
     
     image[0].coords.crval1  = pmm_get_ra (RA);

branches/eam_branches/ipp-20131211/Ohana/src/addstar/src/ReadStarsSDSS.c

@@ -201 +201 @@
     
     // XXX for now, we define a totally fake coordinate system centered on the first listed star
-    strcpy (images[N].coords.ctype, "RA---TAN");
+    strcpy (images[N].coords.ctype, "DEC--TAN");
     
     images[N].coords.crval1 = stars[0].average.R;

branches/eam_branches/ipp-20131211/Ohana/src/addstar/src/fakeimage.c

@@ -34 +34 @@
 
   /* create a mosaic distortion structure */
-  strcpy (MOSAIC.ctype, "RA---DIS");
+  strcpy (MOSAIC.ctype, "DEC--DIS");
   MOSAIC.crval1 = FAKE_RA;
   MOSAIC.crval2 = FAKE_DEC;
@@ -86 +86 @@
     strcpy (image[i+1].name, name);
 
-    strcpy (image[i+1].coords.ctype, "RA---WRP");
+    strcpy (image[i+1].coords.ctype, "DEC--WRP");
     
     image[i+1].coords.crval1 = dX*pixscale;

branches/eam_branches/ipp-20131211/Ohana/src/addstar/src/find_matches.c

@@ -65 +65 @@
   tcoords.pc1_2 = tcoords.pc2_1 = 0.0;
   tcoords.Npolyterms = 1;
-  strcpy (tcoords.ctype, "RA---ARC");
+  strcpy (tcoords.ctype, "DEC--ARC");
 
   /* build spatial index (RA sort) referencing input array sequence */

branches/eam_branches/ipp-20131211/Ohana/src/addstar/src/find_matches_closest.c

@@ -64 +64 @@
   tcoords.pc1_2 = tcoords.pc2_1 = 0.0;
   tcoords.Npolyterms = 1;
-  strcpy (tcoords.ctype, "RA---ARC");
+  strcpy (tcoords.ctype, "DEC--ARC");
 
   /* build spatial index (RA sort) referencing input array sequence */

branches/eam_branches/ipp-20131211/Ohana/src/addstar/src/find_matches_closest_refstars.c

@@ -59 +59 @@
   tcoords.pc1_2 = tcoords.pc2_1 = 0.0;
   tcoords.Npolyterms = 0;
-  strcpy (tcoords.ctype, "RA---ARC");
+  strcpy (tcoords.ctype, "DEC--ARC");
   
   /* build spatial index (RA sort) referencing input array sequence */

branches/eam_branches/ipp-20131211/Ohana/src/addstar/src/find_matches_refstars.c

@@ -57 +57 @@
   tcoords.pc1_1 = tcoords.pc2_2 = 1.0;
   tcoords.pc1_2 = tcoords.pc2_1 = 0.0;
-  strcpy (tcoords.ctype, "RA---ZEA");
+  strcpy (tcoords.ctype, "DEC--ZEA");
   tcoords.Npolyterms = 0;
   

branches/eam_branches/ipp-20131211/Ohana/src/addstar/src/loadsupercos_plates.c

@@ -118 +118 @@
 
     // for now, we define a fake coordinate system based on the boresite center
-    strcpy (image[Nimage].coords.ctype, "RA---TAN");
+    strcpy (image[Nimage].coords.ctype, "DEC--TAN");
     
     image[Nimage].coords.crval1 = RAo;

branches/eam_branches/ipp-20131211/Ohana/src/addstar/src/sky_tessalation.c

@@ -1106 +1106 @@
   refcoords[0].Npolyterms = 0;
   memset (refcoords[0].polyterms, 0, 14*sizeof(float));
-  strcpy (refcoords[0].ctype, "RA---TAN");
+  strcpy (refcoords[0].ctype, "DEC--TAN");
   return (TRUE);
 }

branches/eam_branches/ipp-20131211/Ohana/src/dvomerge/src/merge_catalogs_old.c

@@ -76 +76 @@
   tcoords.pc1_2 = tcoords.pc2_1 = 0.0;
   tcoords.Npolyterms = 1;
-  strcpy (tcoords.ctype, "RA---ARC");
+  strcpy (tcoords.ctype, "DEC--ARC");
 
   if (VERBOSE) fprintf (stderr, "merging %s into %s\n", input[0].filename, output[0].filename);

branches/eam_branches/ipp-20131211/Ohana/src/fixcat/src/gcatstats.c

@@ -52 +52 @@
   catstats[0].coords.pc1_1 = catstats[0].coords.pc2_2 = 1.0;
   catstats[0].coords.pc1_2 = catstats[0].coords.pc2_1 = 0.0;
-  strcpy (catstats[0].coords.ctype, "RA---TAN");
+  strcpy (catstats[0].coords.ctype, "DEC--TAN");
 
   X1 = catstats[0].X;

branches/eam_branches/ipp-20131211/Ohana/src/gastro/src/gstars.c

@@ -79 +79 @@
   if (!strcasecmp (ROUGH_ASTROMETRY, "config")) {
     /* default values for coords */
-    strcpy (coords[0].ctype, "RA---TAN");
+    strcpy (coords[0].ctype, "DEC--TAN");
     coords[0].pc1_1 = CCD_PC1_1; coords[0].pc1_2 = CCD_PC1_2;
     coords[0].pc2_1 = CCD_PC2_1; coords[0].pc2_2 = CCD_PC2_2;

branches/eam_branches/ipp-20131211/Ohana/src/gastro2/src/coordtest.c

@@ -85 +85 @@
   fit_eval ();
 
-  strcpy (coords.ctype, "RA---PLY");
+  strcpy (coords.ctype, "DEC--PLY");
   coords.crval1 = 0.0;
   coords.crval2 = 0.0;

branches/eam_branches/ipp-20131211/Ohana/src/gastro2/src/gstars2.c

@@ -28 +28 @@
 
   /* default values for coords */
-  strcpy (Target[0].coords.ctype, "RA---TAN");
+  strcpy (Target[0].coords.ctype, "DEC--TAN");
   Target[0].coords.pc1_1 = CCD_PC1_1; Target[0].coords.pc1_2 = CCD_PC1_2;
   Target[0].coords.pc2_1 = CCD_PC2_1; Target[0].coords.pc2_2 = CCD_PC2_2;

branches/eam_branches/ipp-20131211/Ohana/src/getstar/src/GetFileMode.c

@@ -10 +10 @@
   gfits_scan_alt (header, "SIMPLE", "%t", 1, &simple);
   haveNaxis = gfits_scan (header, "NAXIS",  "%d", 1, &Naxis);
-  haveCTYPE = gfits_scan (header, "CTYPE1", "%s", 1, ctype);
+  haveCTYPE = gfits_scan (header, "CTYPE2", "%s", 1, ctype);
 
   gfits_scan_alt (header, "EXTEND", "%t", 1, &extend);

branches/eam_branches/ipp-20131211/Ohana/src/getstar/src/MatchImages.c

@@ -36 +36 @@
     tcoords.pc1_2 = tcoords.pc2_1 = 0.0;
     tcoords.Npolyterms = 1;
-    strcpy (tcoords.ctype, "RA---TAN");
+    strcpy (tcoords.ctype, "DEC--TAN");
     /* register so image->sky conversions below have correct mosaic */
   } else {
@@ -44 +44 @@
     tcoords.pc1_2 = tcoords.pc2_1 = 0.0;
     tcoords.Npolyterms = 1;
-    strcpy (tcoords.ctype, "RA---TAN");
+    strcpy (tcoords.ctype, "DEC--TAN");
   }
 

branches/eam_branches/ipp-20131211/Ohana/src/kapa2/src/Graphs.c

@@ -64 +64 @@
   graph[0].data.coords.crpix2 = 0.0;
   graph[0].data.coords.cdelt1 = graph[0].data.coords.cdelt2 = 1.0;
-  strcpy (graph[0].data.coords.ctype, "RA---LIN");
+  strcpy (graph[0].data.coords.ctype, "DEC--LIN");
   strcpy (graph[0].data.axis, "2222");
   strcpy (graph[0].data.ticks, "2222");

branches/eam_branches/ipp-20131211/Ohana/src/kapa2/src/Image.c

@@ -18 +18 @@
   channel->coords.crpix2 = 0.0;
   channel->coords.cdelt1 = channel->coords.cdelt2 = 1.0;
-  strcpy (channel->coords.ctype, "RA---LIN");
+  strcpy (channel->coords.ctype, "DEC--LIN");
   channel->coords.Npolyterms = 0;
 

branches/eam_branches/ipp-20131211/Ohana/src/libdvo/src/ImageMetadataSelection.c

@@ -18 +18 @@
   field.pc1_2  = field.pc2_1  = 0.0;
   field.Npolyterms = 0;
-  strcpy (field.ctype, "RA---SIN");
+  strcpy (field.ctype, "DEC--SIN");
 
   /* mosaic defines a frame with 0,0 at the mosaic center, and 1 arcsec / pixel */
@@ -26 +26 @@
   mosaic.pc1_2  = mosaic.pc2_1  = 0.0;
   mosaic.Npolyterms = 0;
-  strcpy (mosaic.ctype, "RA---SIN");
+  strcpy (mosaic.ctype, "DEC--SIN");
 
   if ((image = ImageMetadataLoad (filename, &Nimage)) == NULL) return (FALSE);

branches/eam_branches/ipp-20131211/Ohana/src/libdvo/src/ImageSelection.c

@@ -28 +28 @@
       mosaic.pc1_2  = mosaic.pc2_1  = 0.0;
       mosaic.Npolyterms = 0;
-      strcpy (mosaic.ctype, "RA---SIN");
+      strcpy (mosaic.ctype, "DEC--SIN");
   }
 

branches/eam_branches/ipp-20131211/Ohana/src/libdvo/src/coordops.c

@@ -1 +1 @@
 # include <dvo.h>
+
+/* note that Coords.ctype carries the DEC (ctype2) value */
 
 static Coords mosaic;
@@ -621 +623 @@
 
   /* modifications to the ctype? */
+  /* note that Coords.ctype carries the DEC (ctype2) value */
   OldAIPS = FALSE;
   gfits_modify (header, "CTYPE2",   "%s",  1, coords[0].ctype);

branches/eam_branches/ipp-20131211/Ohana/src/libkapa/src/KapaWindow.c

@@ -100 +100 @@
   graphdata[0].coords.pc1_1 = graphdata[0].coords.pc2_2 = 1.0;
   graphdata[0].coords.pc1_2 = graphdata[0].coords.pc2_1 = 0.0;
-  strcpy (graphdata[0].coords.ctype, "RA---LIN");
+  strcpy (graphdata[0].coords.ctype, "DEC--LIN");
   graphdata[0].coords.crval1 = 0.0;
   graphdata[0].coords.crval2 = 0.0;

branches/eam_branches/ipp-20131211/Ohana/src/markrock/src/gcatstats.c

@@ -40 +40 @@
   catstats[0].coords.pc1_1 = catstats[0].coords.pc2_2 = 1.0;
   catstats[0].coords.pc1_2 = catstats[0].coords.pc2_1 = 0.0;
-  strcpy (catstats[0].coords.ctype, "RA---TAN");
+  strcpy (catstats[0].coords.ctype, "DEC--TAN");
 
   X1 = catstats[0].X;

branches/eam_branches/ipp-20131211/Ohana/src/markstar/src/gcatstats.c

@@ -50 +50 @@
   catstats[0].coords.pc1_1 = catstats[0].coords.pc2_2 = 1.0;
   catstats[0].coords.pc1_2 = catstats[0].coords.pc2_1 = 0.0;
-  strcpy (catstats[0].coords.ctype, "RA---TAN");
+  strcpy (catstats[0].coords.ctype, "DEC--TAN");
 
   X1 = catstats[0].X;

branches/eam_branches/ipp-20131211/Ohana/src/mosastro/src/warptest.c

@@ -15 +15 @@
 
   /* bore site center guess */
-  sprintf (coords.ctype, "RA---%s", argv[1]);
+  sprintf (coords.ctype, "DEC--%s", argv[1]);
   coords.crval1 = 0.0;
   coords.crval2 = 0.0;

branches/eam_branches/ipp-20131211/Ohana/src/opihi/cmd.astro/cdensify.c

@@ -76 +76 @@
   Ny = (Ymax - Ymin) / dY + 1;
   
+  Coords newcoords = graphmode.coords;
+  newcoords.cdelt1 *= dX;
+  newcoords.cdelt2 *= dY;
+  newcoords.crpix1 = (newcoords.crpix1 - Xmin) / dX;
+  newcoords.crpix2 = (newcoords.crpix2 - Ymin) / dY;
+
   gfits_free_matrix (&bf[0].matrix);
   gfits_free_header (&bf[0].header);
   CreateBuffer (bf, Nx, Ny, -32, 0.0, 1.0);
   strcpy (bf[0].file, "(empty)");
+  PutCoords (&newcoords, &bf[0].header);
   
   float scalescale = scale*scale;
@@ -96 +103 @@
   coords.pc1_2  = coords.pc2_1  = 0.0;
   coords.Npolyterms = 0;
-  strcpy (coords.ctype, "RA---TAN");
+  strcpy (coords.ctype, "DEC--TAN");
 
   r = vr[0].elements.Flt;
@@ -113 +120 @@
         Xb = (x - Xmin) / dX;
         Yb = (y - Ymin) / dY;
+
+        RD_to_XY (&x, &y, rn, *d, &newcoords);
+        Xb = (int) x;
+        Yb = (int) y;
         if (Xb >= Nx) continue;
         if (Yb >= Ny) continue;

branches/eam_branches/ipp-20131211/Ohana/src/opihi/cmd.astro/fitplx.c

@@ -112 +112 @@
   coords.pc1_2  = coords.pc2_1 = 0.0;
   coords.Npolyterms = 1;
-  strcpy (coords.ctype, "RA---SIN");
+  strcpy (coords.ctype, "DEC--SIN");
 
   double *X, *Y, *t, *pX, *pY, *dX, *dY;

branches/eam_branches/ipp-20131211/Ohana/src/opihi/cmd.astro/region.c

@@ -80 +80 @@
   if (!ohana_str_to_radec (&Ra, &Dec, argv[1], argv[2])) return (FALSE);
   Radius = atof (argv[3]);
-  strcpy (graphmode.coords.ctype, "RA---TAN");
+  strcpy (graphmode.coords.ctype, "DEC--TAN");
   if (argc == 5) {
     if (!strcasecmp (argv[4], "TAN")) 
-      strcpy (graphmode.coords.ctype, "RA---TAN");
+      strcpy (graphmode.coords.ctype, "DEC--TAN");
     if (!strcasecmp (argv[4], "SIN")) 
-      strcpy (graphmode.coords.ctype, "RA---SIN");
+      strcpy (graphmode.coords.ctype, "DEC--SIN");
     if (!strcasecmp (argv[4], "ARC")) 
-      strcpy (graphmode.coords.ctype, "RA---ARC");
+      strcpy (graphmode.coords.ctype, "DEC--ARC");
     if (!strcasecmp (argv[4], "STG")) 
-      strcpy (graphmode.coords.ctype, "RA---STG");
+      strcpy (graphmode.coords.ctype, "DEC--STG");
     if (!strcasecmp (argv[4], "ZEA"))
-      strcpy (graphmode.coords.ctype, "RA---ZEA");
+      strcpy (graphmode.coords.ctype, "DEC--ZEA");
     if (!strcasecmp (argv[4], "AIT")) 
-      strcpy (graphmode.coords.ctype, "RA---AIT");
+      strcpy (graphmode.coords.ctype, "DEC--AIT");
     if (!strcasecmp (argv[4], "GLS")) 
-      strcpy (graphmode.coords.ctype, "RA---GLS");
+      strcpy (graphmode.coords.ctype, "DEC--GLS");
     if (!strcasecmp (argv[4], "PAR")) 
-      strcpy (graphmode.coords.ctype, "RA---PAR");
+      strcpy (graphmode.coords.ctype, "DEC--PAR");
   }
 

branches/eam_branches/ipp-20131211/Ohana/src/opihi/dvo/find_matches.c

@@ -50 +50 @@
   tcoords.pc1_2 = tcoords.pc2_1 = 0.0;
   tcoords.Npolyterms = 1;
-  strcpy (tcoords.ctype, "RA---ARC");
+  strcpy (tcoords.ctype, "DEC--ARC");
 
   // this region includes a boundary layer of size RADIUS

branches/eam_branches/ipp-20131211/Ohana/src/opihi/dvo/gimages.c

@@ -136 +136 @@
       local.pc2_1 = local.pc1_2 = 0.0;
       local.Npolyterms = 1;
-      strcpy (local.ctype, "RA---TAN");
+      strcpy (local.ctype, "DEC--TAN");
 
       if (typehash == DistortImage) {

branches/eam_branches/ipp-20131211/Ohana/src/opihi/dvo/showtile.c

@@ -34 +34 @@
   coords.pc1_2  = coords.pc2_1  = 0.0;
   coords.Npolyterms = 0;
-  strcpy (coords.ctype, "RA---TAN");
+  strcpy (coords.ctype, "DEC--TAN");
   
   /* fill in top-left region */

branches/eam_branches/ipp-20131211/Ohana/src/opihi/dvo/simage.c

@@ -43 +43 @@
   /* get astrometry information */
   strcpy (coords.ctype, "NONE");
-  gfits_scan (&header, "CTYPE1",   "%s",  1, coords.ctype);
-  if (strcmp (coords.ctype, "RA---PLY")) {
+  gfits_scan (&header, "CTYPE2",   "%s",  1, coords.ctype);
+  if (strcmp (coords.ctype, "DEC--PLY")) {
     gprint (GP_ERR, "ERROR: wrong astrometric info in header\n");
     return (FALSE);

branches/eam_branches/ipp-20131211/Ohana/src/photdbc/src/find_images.c

@@ -25 +25 @@
   tcoords.pc1_1  = tcoords.pc2_2 = 1.0;
   tcoords.pc1_2  = tcoords.pc2_1 = 0.0;
-  strcpy (tcoords.ctype, "RA---TAN");
+  strcpy (tcoords.ctype, "DEC--TAN");
 
   timage = gfits_table_get_Image (&db[0].ftable, &Ntimage, &db[0].swapped);

branches/eam_branches/ipp-20131211/Ohana/src/photdbc/src/join_stars.c

@@ -57 +57 @@
   tcoords.pc1_2  = tcoords.pc2_1 = 0.0;
   tcoords.Npolyterms = 0;
-  strcpy (tcoords.ctype, "RA---TAN");
+  strcpy (tcoords.ctype, "DEC--TAN");
   
   /* project & sort coordinates in local linear frame */

branches/eam_branches/ipp-20131211/Ohana/src/relastro/src/UpdateObjects.c

@@ -67 +67 @@
   coords.pc1_2  = coords.pc2_1 = 0.0;
   coords.Npolyterms = 1;
-  strcpy (coords.ctype, "RA---SIN");
+  strcpy (coords.ctype, "DEC--SIN");
 
   XVERB = FALSE;

branches/eam_branches/ipp-20131211/Ohana/src/relastro/src/high_speed_objects.c

@@ -161 +161 @@
   tcoords.pc1_2 = tcoords.pc2_1 = 0.0;
   tcoords.Npolyterms = 1;
-  strcpy (tcoords.ctype, "RA---ARC");
+  strcpy (tcoords.ctype, "DEC--ARC");
 
   /* build spatial index (RA sort) referencing input array sequence */

branches/eam_branches/ipp-20131211/Ohana/src/relastro/src/hpm_objects.c

@@ -138 +138 @@
   tcoords.pc1_2 = tcoords.pc2_1 = 0.0;
   tcoords.Npolyterms = 1;
-  strcpy (tcoords.ctype, "RA---ARC");
+  strcpy (tcoords.ctype, "DEC--ARC");
 
   /* build spatial index (RA sort) referencing input array sequence */

branches/eam_branches/ipp-20131211/Ohana/src/relastro/src/select_images.c

@@ -57 +57 @@
   tcoords.pc1_1  = tcoords.pc2_2 = 1.0;
   tcoords.pc1_2  = tcoords.pc2_1 = 0.0;
-  strcpy (tcoords.ctype, "RA---TAN");
+  strcpy (tcoords.ctype, "DEC--TAN");
 
   ALLOCATE (skycoords, SkyRegionCoords, skylist[0].Nregions);

branches/eam_branches/ipp-20131211/Ohana/src/relastro/src/testparallax.c

@@ -57 +57 @@
   coords.pc1_2  = coords.pc2_1 = 0.0;
   coords.Npolyterms = 1;
-  strcpy (coords.ctype, "RA---SIN");
+  strcpy (coords.ctype, "DEC--SIN");
 
   // use one point as a local reference

branches/eam_branches/ipp-20131211/Ohana/src/relphot/src/MosaicOps.c

@@ -412 +412 @@
     }
     dS /= MosaicN_Image[i];
-    strcpy (mosaic[i].coords.ctype, "RA---TAN");
+    strcpy (mosaic[i].coords.ctype, "DEC--TAN");
     mosaic[i].coords.crval1 = Rmin;
     mosaic[i].coords.crval2 = Dmin;

branches/eam_branches/ipp-20131211/Ohana/src/relphot/src/select_images.c

@@ -40 +40 @@
   tcoords.pc1_1  = tcoords.pc2_2 = 1.0;
   tcoords.pc1_2  = tcoords.pc2_1 = 0.0;
-  strcpy (tcoords.ctype, "RA---TAN");
+  strcpy (tcoords.ctype, "DEC--TAN");
 
   double RminSkyRegion = region[0].Rmin;
@@ -412 +412 @@
   tcoords.Npolyterms = 0;
   memset (tcoords.polyterms, 0, 14*sizeof(float));
-  strcpy (tcoords.ctype, "RA---TAN");
+  strcpy (tcoords.ctype, "DEC--TAN");
 
   /* compare with each region file */

branches/eam_branches/ipp-20131211/Ohana/src/uniphot/src/find_image_sgroups.c

@@ -22 +22 @@
   coords.pc1_1 = coords.pc2_2 = 1.0;
   coords.pc1_2 = coords.pc2_1 = 0.0;
-  strcpy (coords.ctype, "RA---TAN");
+  strcpy (coords.ctype, "DEC--TAN");
   
   Ngroup = 0;

branches/eam_branches/ipp-20131211/Ohana/src/uniphot/src/update_dvo_uniphot.c

@@ -61 +61 @@
   coords.pc1_1 = coords.pc2_2 = 1.0;
   coords.pc1_2 = coords.pc2_1 = 0.0;
-  strcpy (coords.ctype, "RA---TAN");
+  strcpy (coords.ctype, "DEC--TAN");
   
   for (i = 0; i < pglob.gl_pathc; i++) {