Changeset 1143 in Sophya for trunk/SophyaExt/FitsIOServer/fitsxntuple.cc

Timestamp:

Aug 25, 2000, 5:52:48 PM (25 years ago)

Author:

ansari

Message:

normalisation des DVList

File:

• trunk/SophyaExt/FitsIOServer/fitsxntuple.cc (modified) (3 diffs)

trunk/SophyaExt/FitsIOServer/fitsxntuple.cc

@@ -142 +142 @@
   delete [] ColName;
 
-    r_8* dligne;
-    r_4* fligne;
-    int_4* iligne;
+    double* dligne;
+    float* fligne;
+    int* iligne;
     char** cligne;
 
-  if (DfitsCol.size()>0) dligne = new r_8[DfitsCol.size()];
+  if (DfitsCol.size()>0) dligne = new double[DfitsCol.size()];
   else dligne=NULL;
-  if (FfitsCol.size()>0) fligne = new r_4[FfitsCol.size()];
+  if (FfitsCol.size()>0) fligne = new float[FfitsCol.size()];
   else fligne=NULL;
-  if (IfitsCol.size()>0) iligne = new int_4[IfitsCol.size()];
+  if (IfitsCol.size()>0) iligne = new int[IfitsCol.size()];
   else iligne=NULL;
   if (SfitsCol.size()>0) 
@@ -176 +176 @@
     {
       is.GetBinTabLine(numLigne, dligne, fligne, iligne, cligne );
-      dobj_->Fill(dligne, fligne, iligne, cligne);    
+      dobj_->Fill((r_8*)dligne, (r_4*)fligne, (int_4*)iligne, cligne);    
     }
     delete [] dligne;
@@ -202 +202 @@
   // extension name
   char* extname = "XNTuple_Binary_tbl"; 
-  dvl.Print();
   char** Noms = new char*[ncols];   
   int k;