Changeset 1554 in Sophya for trunk/SophyaLib/TArray/tmatrix.cc

Timestamp:

Jun 27, 2001, 12:43:57 PM (24 years ago)

Author:

ansari

Message:

Oubli changement de l'interface TMatrix<T>::Print() - Reza 27/6/2001

File:

• trunk/SophyaLib/TArray/tmatrix.cc (modified) (3 diffs)

trunk/SophyaLib/TArray/tmatrix.cc

@@ -1 @@
-// $Id: tmatrix.cc,v 1.19 2001-06-18 14:47:10 ansari Exp $
+// $Id: tmatrix.cc,v 1.20 2001-06-27 10:43:56 ansari Exp $
 //                         C.Magneville          04/99
 #include "machdefs.h"
@@ -348 +348 @@
 //! Print matrix
 /*!
+  \param os : output stream
   \param maxprt : maximum numer of print
   \param si : if true,  display attached DvList
+  \param ascd : if true, suppresses the display of line numbers,
+  suitable for ascii dump format.
   \sa SetMaxPrint
  */
 template <class T>
-void TMatrix<T>::Print(ostream& os, int_4 maxprt, bool si) const
+void TMatrix<T>::Print(ostream& os, int_4 maxprt, bool si, bool ascd) const
 {
   if (maxprt < 0)  maxprt = max_nprt_;
@@ -361 +364 @@
   sa_size_t kc,kr;  
   for(kr=0; kr<size_[marowi_]; kr++) {
-    if ( (size_[marowi_] > 1) && (size_[macoli_] > 10) ) cout << "----- Ligne Line= " << kr << endl;
+    if ( (size_[marowi_] > 1) && (size_[macoli_] > 10) && ascd) cout << "----- Line= " << kr << endl;
     for(kc=0; kc<size_[macoli_]; kc++) {
-      if(kc > 0) os << ", ";  
+      if(kc > 0) os << " ";  
       os << (*this)(kr, kc);   npr++; 
       if (npr >= (sa_size_t) maxprt) {