Changeset 2752 in Sophya for trunk/SophyaLib/TArray/tarray.cc
- Timestamp:
- May 23, 2005, 6:18:17 PM (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SophyaLib/TArray/tarray.cc
r2615 r2752 7 7 #include <stdlib.h> 8 8 #include <math.h> 9 #include <iomanip> 10 9 11 #include "pexceptions.h" 10 12 #include "tarray.h" … … 1303 1305 if (maxprt < 0) maxprt = max_nprt_; 1304 1306 sa_size_t npr = 0; 1307 // keep stream's io flags 1308 ios_base::fmtflags ioflg = os.flags(); 1309 os << right ; 1310 1305 1311 Show(os, si); 1306 1312 if (ndim_ < 1) return; 1313 1314 // Calcul de la largeur d'impression pour chaque element 1315 int fprtw = os.precision()+7; 1316 int prtw = 5; 1317 1318 if ( (typeid(T) == typeid( int_4 )) || (typeid(T) == typeid( uint_4 )) ) prtw = 8; 1319 else if ( (typeid(T) == typeid( int_8 )) || (typeid(T) == typeid( uint_8 )) ) prtw = 11; 1320 else if ( typeid(T) == typeid( r_4 ) ) prtw = fprtw; 1321 else if ( typeid(T) == typeid( r_8 ) ) prtw = fprtw; 1322 else if ( typeid(T) == typeid(complex<r_4>) ) prtw = fprtw; 1323 else if ( typeid(T) == typeid(complex<r_8>) ) prtw = fprtw; 1324 1325 1307 1326 sa_size_t k0,k1,k2,k3,k4; 1308 1327 for(k4=0; k4<size_[4]; k4++) { … … 1320 1339 for(k0=0; k0<size_[0]; k0++) { 1321 1340 if(k0 > 0) os << " "; 1322 os << Elem(k0, k1, k2, k3, k4); npr++;1341 os << setw(prtw) << Elem(k0, k1, k2, k3, k4); npr++; 1323 1342 if (npr >= (sa_size_t) maxprt) { 1324 1343 if (npr < totsize_) os << "\n .... " << endl; return; … … 1331 1350 } 1332 1351 os << endl; 1352 os.flags(ioflg); // reset stream io flags 1333 1353 } 1334 1354
Note:
See TracChangeset
for help on using the changeset viewer.