Changeset 4864 for trunk/Ohana/src/libautocode/def/autocode.c

Timestamp:

Aug 23, 2005, 8:55:22 PM (21 years ago)

Author:

eugene

Message:

converted to the libohana/dvo_image I/O routines; improvements in fits_db.c

File:

• trunk/Ohana/src/libautocode/def/autocode.c (modified) (2 diffs)

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

@@ -27 +27 @@
 
 /*** add test of EXTNAME and header-defined columns? ***/
-$STRUCT *fits_table_get_$STRUCT (FTable *ftable, int *Ndata) {
+/* return internal structure representation */
+$STRUCT *fits_table_get_$STRUCT (FTable *ftable, int *Ndata, int *swapped) {
 
   $STRUCT *data;
@@ -33 +34 @@
   *Ndata = ftable[0].header[0].Naxis[1];
   data = ($STRUCT *) ftable[0].buffer;
-  fits_convert_$STRUCT (data, sizeof ($STRUCT), *Ndata);
-  
+  if ((swapped == NULL) || (*swapped == FALSE)) {
+    fits_convert_$STRUCT (data, sizeof ($STRUCT), *Ndata);
+    if (swapped != NULL) *swapped = TRUE;
+  }
   return (data);
 }