Changeset 16139 for trunk/Ohana/src/libfits/table/F_get_column.c

Timestamp:

Jan 18, 2008, 2:52:14 PM (19 years ago)

Author:

eugene

Message:

return NULL if output var requested and entry not found

File:

• trunk/Ohana/src/libfits/table/F_get_column.c (modified) (6 diffs)

trunk/Ohana/src/libfits/table/F_get_column.c

@@ -1 +1 @@
 # include <ohana.h>
 # include <gfitsio.h>
-# define SWAP_BYTE \
-  tmp = Pin[0]; Pin[0] = Pin[1]; Pin[1] = tmp;
-# define SWAP_WORD \
+# define SWAP_BYTE { \
+  char tmp; \
+  tmp = Pin[0]; Pin[0] = Pin[1]; Pin[1] = tmp; }
+# define SWAP_WORD { \
+  char tmp; \
   tmp = Pin[0]; Pin[0] = Pin[3]; Pin[3] = tmp; \
-  tmp = Pin[1]; Pin[1] = Pin[2]; Pin[2] = tmp;
-# define SWAP_DBLE \
+  tmp = Pin[1]; Pin[1] = Pin[2]; Pin[2] = tmp; }
+# define SWAP_DBLE { \
+  char tmp; \
   tmp = Pin[0]; Pin[0] = Pin[7]; Pin[7] = tmp; \
   tmp = Pin[1]; Pin[1] = Pin[6]; Pin[6] = tmp; \
   tmp = Pin[2]; Pin[2] = Pin[5]; Pin[5] = tmp; \
-  tmp = Pin[3]; Pin[3] = Pin[4]; Pin[4] = tmp;
+  tmp = Pin[3]; Pin[3] = Pin[4]; Pin[4] = tmp; }
 
 /***********************/
@@ -43 +46 @@
   int i, N, Nfields, Nval, Nbytes, Nx, Ny, Nstart, Nv, Nb;
   char tlabel[80], field[80], format[80], type[16], tmpline[16];
-  char *Pin, *Pout, *array, tmp;
+  char *Pin, *Pout, *array;
   double Bscale, Bzero;
-  int I;
 
   if (label == (char *) NULL) return (FALSE);
@@ -105 +107 @@
     for (i = 0; i < Nval*Ny; i++, Pin+=Nbytes, Pout+=Nbytes) {
 # ifdef BYTE_SWAP
-      I = i*Nbytes;
       SWAP_BYTE;
 # endif
@@ -114 +115 @@
     for (i = 0; i < Nval*Ny; i++, Pin+=Nbytes, Pout+=Nbytes) {
 # ifdef BYTE_SWAP
-      I = i*Nbytes;
       SWAP_WORD;
 # endif
@@ -123 +123 @@
     for (i = 0; i < Nval*Ny; i++, Pin+=Nbytes, Pout+=Nbytes) {
 # ifdef BYTE_SWAP
-      I = i*Nbytes;
       SWAP_WORD;
 # endif
@@ -132 +131 @@
     for (i = 0; i < Nval*Ny; i++, Pin+=Nbytes, Pout+=Nbytes) {
 # ifdef BYTE_SWAP
-      I = i*Nbytes;
       SWAP_DBLE;
 # endif