Changeset 4019

Timestamp:

May 24, 2005, 6:18:38 AM (21 years ago)

Author:

eugene

Message:

adding the image structure

Location:

trunk/Ohana/src/libautocode

Files:

• Makefile (modified) (2 diffs)
• def/autocode.c (modified) (1 diff)
• def/image.d (added)
• def/spectrum-ascii.d (modified) (1 diff)
• generate (modified) (1 diff)

trunk/Ohana/src/libautocode/Makefile

@@ -29 +29 @@
 # remember to add entries here to libohana/Makefile:AOBJ as well
 LIBOBJ = \
+$(SRC)/image.$(ARCH).o \
 $(SRC)/regimage.$(ARCH).o \
 $(SRC)/detreg.$(ARCH).o \
@@ -38 +39 @@
 
 LIBINC = \
+$(INC)/image.h \
 $(INC)/regimage.h \
 $(INC)/detreg.h \

trunk/Ohana/src/libautocode/def/autocode.c

@@ -59 +59 @@
   return (TRUE);
 }
+
+int fits_table_mkheader_$STRUCT (Header *header) {
+
+  /* create table header */
+  fits_create_table_header (header, "$TYPE", "$EXTNAME");
+
+  /* define table layout */
+  /** TABLE DEFINITION **/
+
+  return (TRUE);
+}

trunk/Ohana/src/libautocode/def/spectrum-ascii.d

@@ -28 +28 @@
 FIELD state,      STATE,      int[2],      raw/wav/flx/etc,       
 FIELD flag,       FLAG,       int[3],      status flags,          
+
+FIELD obstime,    START_TIME, char[20],    start time of measurement, yyyy/mm/dd,hh:mm:ss
+FIELD filter,     FILTER,     char[10],    filter and camera name    
+FIELD ZP,         ZP_OBS,     float[8.4],  measured zero point,       mag
+FIELD dZP,        ZP_ERR,     float[7.4],  error on zero point,       mag
+FIELD ra,         RA,         float[11.6], RA (J2000),                dec. degrees
+FIELD dec,        DEC,        float[11.6], DEC (J2000),               dec. degrees
+FIELD airmass,    C_AIRMASS,  float[7.3],  airmass coeff,             mag per airmass 
+FIELD sky,        SKY,        float[7.1],  median sky flux,           counts
+FIELD Nstar,      NSTAR,      int[6],      Number of stars in image,  stars

trunk/Ohana/src/libautocode/generate

@@ -185 +185 @@
         }
         # this is a patch for old photreg tables: provide a fix for the tables
+        # some photreg tables were not byteswapped for certain columns
         if ($type eq "rawshort")  {
             $N +=2;