Changeset 2711 in Sophya for trunk/SophyaProg/Tests/tstdtable.cc

Timestamp:

May 9, 2005, 10:18:27 AM (20 years ago)

Author:

ansari

Message:

ajout argument niveau d'impression ds tstdtable.cc - Reza 9 Mai 2005

File:

• trunk/SophyaProg/Tests/tstdtable.cc (modified) (7 diffs)

trunk/SophyaProg/Tests/tstdtable.cc

@@ -12 +12 @@
 /*  Programme test performances des DataTables / cf G. Barrand    */
 /*  R. Ansari (LAL)  -   Avril 2005                    */
+
+static int prtlev = 1;  // niveau d'impression 
 
 void cre_rempli_table(BaseDataTable& dt, sa_size_t nl)
@@ -38 +40 @@
     rec[6] = (r_8)(6*k*M_PI);
     dt.AddLine(rec);    
-    if ((k%nl10)==0) 
+    if ( (prtlev > 1) && ((k%nl10)==0) )
       cout << "cre_rempli_table/Info fin remplissage ligne " << k << endl;
   }
   tm.Split("cre_rempli_table/fin remplissage");
   // Impression resume de la table :
-  cout << dt ;
+  if (prtlev > 0) cout << dt ;
   return;
 }
@@ -50 +52 @@
 {
   cout << " tstdtable/Info: lit_ck_table() - Table: " << endl; 
-  cout << dt;
+  if (prtlev > 0) cout << dt;
   if (dt.NEntry() < 1) {
     cout << " tstdtable/Error: Table vide ! " << endl;
@@ -61 +63 @@
     rec = dt.GetLineD(k);
     for(int i=0; i<7; i++) mean[i] += rec[i];
-    if ((k%nl10)==0) 
+    if ( (prtlev > 1) && ((k%nl10)==0) )
       cout << "li_ck_table/Info fin check ligne " << k << endl;
   }
@@ -67 +69 @@
   for(int i=0; i<7; i++) { 
     mean[i] /= wtot;
-    cout << " tstdtable/Info: Moyenne[" << i << "]= " << mean[i] << endl;
+    if (prtlev > 0)    
+      cout << " tstdtable/Info: Moyenne[" << i << "]= " << mean[i] << endl;
   }
   return;
@@ -76 +79 @@
   if (narg < 3) {
     cout << " tstdtable/Erreur: arguments manquants \n"
-         << " Usage: tstdtable r/w filename [mem/swap] [Nlines] [segsize]\n" 
+         << " Usage: tstdtable r/w filename [mem/swap] [Nlines] [segsize] [prtlev] \n" 
          << "  r : lecture depuis filename - calcule moyenne \n"
          << "  w : creation / ecriture ds filename \n"
          << "  NLines: Nombre de lignes de la table si w (defaut=10^6) \n"
-         << "  mem: Utilisation de DataTable (memoire) \n"
+         << "  mem: Utilisation de DataTable (memoire) = defaut \n"
          << "  swap: Utilisation de SwPPFDataTable (swap sur PPF) \n"
          << "  segsize: Taille de segment (defaut=1024) \n"
+         << "  prtlev: Niveau d'impression 0,1,2 (defaut=1) \n"
          << endl;
     return 1;
@@ -97 +101 @@
     if (narg > 4) nlines = atol(arg[4]);
     if (narg > 5) segsize = atol(arg[5]);
-    cout << "======== tstdtable: DataTable/G.Barrand test de performance I/O ========" << endl;
+    prtlev = 1;
+    if (narg > 6) prtlev = atoi(arg[6]);
+   cout << "======== tstdtable: DataTable/G.Barrand test de performance I/O ========" << endl;
     cout << " Operation= " << oper << " FileName= " << fname 
          << " (NLines= " << nlines << " Mem/Swap= " << msw << " )" << endl;