Changeset 3412

Timestamp:

Mar 12, 2005, 10:25:14 AM (21 years ago)

Author:

eugene

Message:

adding FITS tables to imclean

Location:

trunk/Ohana/src/imclean

Files:

• Makefile (modified) (1 diff)
• include/imclean.h (modified) (2 diffs)
• src/args.c (modified) (1 diff)
• src/imclean.c (modified) (1 diff)
• src/wfits.c (added)

trunk/Ohana/src/imclean/Makefile

@@ -24 +24 @@
 $(SRC)/find_trails.$(ARCH).o    $(SRC)/find_line.$(ARCH).o \
 $(SRC)/LoadStarsDophot.$(ARCH).o $(SRC)/wstars.$(ARCH).o        \
-$(SRC)/LoadStarsSex.$(ARCH).o   $(SRC)/LoadStarsChad.$(ARCH).o  
+$(SRC)/LoadStarsSex.$(ARCH).o   $(SRC)/LoadStarsChad.$(ARCH).o  \
+$(SRC)/wfits.$(ARCH).o
 
 default: $(PROGRAM)

trunk/Ohana/src/imclean/include/imclean.h

@@ -5 +5 @@
 
 int    MODE;
+int    FITS_OUTPUT;
 int    VERBOSE;
 int    RESET;
@@ -38 +39 @@
   double fx, fy, df;
   double Mgal, Map;
+} StarsOld;
+
+typedef struct {
+  float X;
+  float Y;
+  float M;
+  float dM;
+  float Mgal;
+  float Map;
+  float sky;
+  float fx;
+  float fy;
+  float df;
+  char  dophot;
+  char  dummy[3];
 } Stars;
 

trunk/Ohana/src/imclean/src/args.c

@@ -21 +21 @@
   if ((N = get_argument (argc, argv, "-v"))) {
     VERBOSE = TRUE;
+    remove_argument (N, &argc, argv);
+  }
+  FITS_OUTPUT = FALSE;
+  if ((N = get_argument (argc, argv, "-fits"))) {
+    FITS_OUTPUT = TRUE;
     remove_argument (N, &argc, argv);
   }

trunk/Ohana/src/imclean/src/imclean.c

@@ -38 +38 @@
   fix_total (stars, Nstars, &header);
 
-  wstars (argv[3], stars, Nstars, &header); 
+  if (FITS_OUTPUT) {
+    wfits (argv[3], stars, Nstars, &header); 
+  } else {
+    wstars (argv[3], stars, Nstars, &header); 
+  }
 
   fprintf (stderr, "SUCCESS\n");