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

Timestamp:

Apr 11, 2001, 12:01:44 PM (24 years ago)

Author:

ansari

Message:

1) Fin de passage des flags en int_8
2) TOIRegularWindow mis ds un fichier spare , Reza 11/4/2001

File:

• trunk/ArchTOIPipe/Kernel/fitstoiwtr.cc (modified) (5 diffs)

trunk/ArchTOIPipe/Kernel/fitstoiwtr.cc

@@ -56 +56 @@
   char** colunits = new (char*[ncols]);
 
-  colnames[0] = "samplenum";
+  colnames[0] = "sampleNum";
   coltypes[0] = "1D";
   colunits[0] = "integer";
@@ -79 +79 @@
       cout << " Column[" << j+1 << "] -Flag- Name=" << coln[ck] << endl;
       ck++;
-      coltypes[j+2] = "1D";
-      colunits[j+2] = "IntFlag";
+      coltypes[j+2] = "1J";
+      colunits[j+2] = "Int_8Flag";
     }
   }
@@ -102 +102 @@
 
   double* tabdata = new double[ndata];
-  double* tabflag = new double[ndata]; // ? pas integer ?? $CHECK$ - Reza
+  long* tabflag = new long[ndata]; // ? pas int_8 ?? $CHECK$ - Reza
   bool* tabck = new bool[ndata];
   int i;
   for(i=0; i<ndata; i++) {
     tabdata[i] = -9.e19;  // $CHECK$ - Reza valeur par defaut !
-    tabflag[i] = -9.e19;  // $CHECK$ - Reza valeur par defaut !
+    tabflag[i] = 0;       // $CHECK$ - Reza valeur par defaut !
     tabck[i] = checkInputTOIIndex(i);
   } 
@@ -115 +115 @@
     //  cout << " DBG-A-FitsWriter::run()" << sn << endl;
     try {
-      int_4 out_flg;
+      int_8 out_flg;
       double out_val;
       for (i=0; i<ndata; i++) {
@@ -133 +133 @@
         if (outFlags) {
           fits_write_col_dbl(fptr, 2*i+2, fitsLine, 1, 1, tabdata+i, &fstatus);
-          fits_write_col_dbl(fptr, 2*i+3, fitsLine, 1, 1, tabflag+i, &fstatus);
+          fits_write_col_lng(fptr, 2*i+3, fitsLine, 1, 1, tabflag+i, &fstatus);
         } else {
           fits_write_col_dbl(fptr, i+2, fitsLine, 1, 1, tabdata+i, &fstatus);