Changeset 2845 in Sophya for trunk/SophyaProg/Tests/tnfits.cc

Timestamp:

Nov 21, 2005, 9:31:32 AM (20 years ago)

Author:

ansari

Message:

modifs test nouveau fits suite codage I/O colonnes string et complex - Reza 21/11/2005

File:

• trunk/SophyaProg/Tests/tnfits.cc (modified) (3 diffs)

trunk/SophyaProg/Tests/tnfits.cc

@@ -82 +82 @@
       float data[100];
       double data2[100];
+      string sdata[100];
+      MuTyV mtv;
       for(int kk=0; kk<100; kk++) { 
         data[kk] = kk/5.;
         data2[kk] = cos(data[kk]);
+        mtv = kk;
+        sdata[kk] = "Str_KK=";
+        sdata[kk] += (string)(mtv);
       }
       cout << " CurrHDU-2 : " << fiosc.CurrentHDU() 
@@ -99 +104 @@
       ttype.push_back("Col1");
       ttype.push_back("Col2");
+      ttype.push_back("Col3");
       tform.push_back("E");
       tform.push_back("D");
+      tform.push_back("18A");
+      tunit.push_back("");
       tunit.push_back("");
       tunit.push_back("");
@@ -118 +126 @@
       FitsBlockRW<float>::WriteColumnData(fiosc, 1, 1, 1, data, 100);
       FitsBlockRW<double>::WriteColumnData(fiosc, 2, 1, 1, data2, 100);
-      
+      FitsBlockRW<string>::WriteColumnData(fiosc, 3, 1, 1, sdata, 100);
+            
       // Ecriture entete
       DVList  dvl;