Changeset 38325

Timestamp:

May 26, 2015, 4:28:35 PM (11 years ago)

Author:

eugene

Message:

add var and var64 types to set_column

Location:

branches/eam_branches/ohana.20150429/src/libfits/table

Files:

• F_get_column.c (modified) (1 diff)
• F_set_column.c (modified) (1 diff)

branches/eam_branches/ohana.20150429/src/libfits/table/F_get_column.c

@@ -133 +133 @@
     }
   }
+
+  // check that we supplied a valid type
 
   *Ncol = Nval;

branches/eam_branches/ohana.20150429/src/libfits/table/F_set_column.c

@@ -137 +137 @@
     for (i = 0; i < Nval*Nrow; i++, Pin+=Nbytes, Pout+=Nbytes) {
       *(double *)Pout = (*(double *)Pin - Bzero) / Bscale;
+# ifdef BYTE_SWAP
+      SWAP_DBLE;
+# endif
+    }
+  }
+
+  if (!strcmp (type, "var")) {
+    for (i = 0; i < Nval*Nrow; i++, Pin+=Nbytes, Pout+=Nbytes) {
+      *(int *)Pout = *(int *)Pin;
+# ifdef BYTE_SWAP
+      SWAP_WORD;
+# endif
+    }
+  }
+
+  if (!strcmp (type, "var64")) {
+    for (i = 0; i < Nval*Nrow; i++, Pin+=Nbytes, Pout+=Nbytes) {
+      *(int *)Pout = *(int *)Pin;
 # ifdef BYTE_SWAP
       SWAP_DBLE;