Changeset 1712 in Sophya for trunk/ArchTOIPipe/Kernel/fitstoiwtr.cc

Timestamp:

Oct 19, 2001, 4:43:25 PM (24 years ago)

Author:

aubourg

Message:

pb flags uint_8/long

File:

• trunk/ArchTOIPipe/Kernel/fitstoiwtr.cc (modified) (1 diff)

trunk/ArchTOIPipe/Kernel/fitstoiwtr.cc

@@ -141 +141 @@
         fits_write_col_dbl(fptr, p.first+1, fitsLine, 1, 1, tabdata+i, &fstatus);
         if (p.second) {
-          fits_write_col_lng(fptr, p.first+2, fitsLine, 1, 1, tabflagl+i, &fstatus);
+          long f = tabflag[i];
+          fits_write_col_lng(fptr, p.first+2, fitsLine, 1, 1, &f, &fstatus);
+          //      fits_write_col_lng(fptr, p.first+2, fitsLine, 1, 1, tabflagl+i, &fstatus);
         } 
         if (fstatus != 0) {