Changeset 38325 for branches/eam_branches/ohana.20150429/src/libfits/table/F_set_column.c

Timestamp:

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

Author:

eugene

Message:

add var and var64 types to set_column

File:

• branches/eam_branches/ohana.20150429/src/libfits/table/F_set_column.c (modified) (1 diff)

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;