[Boost-commit] svn:boost r46603 - sandbox/libs/numeric/bindings/lapack/test

From: thomas.klimpel_at_[hidden]
Date: 2008-06-22 06:39:36

Author: klimpel
Date: 2008-06-22 06:39:36 EDT (Sun, 22 Jun 2008)
New Revision: 46603
URL: http://svn.boost.org/trac/boost/changeset/46603

Log:
 Modified to include xPPTRI by Kian Ming A. Chai (14 May 2008)

Text files modified: 
   sandbox/libs/numeric/bindings/lapack/test/ublas_pptrf_pptrs.cc |    16 ++++++++++++++++                        
   1 files changed, 16 insertions(+), 0 deletions(-)

Modified: sandbox/libs/numeric/bindings/lapack/test/ublas_pptrf_pptrs.cc
==============================================================================
--- sandbox/libs/numeric/bindings/lapack/test/ublas_pptrf_pptrs.cc	(original)
+++ sandbox/libs/numeric/bindings/lapack/test/ublas_pptrf_pptrs.cc	2008-06-22 06:39:36 EDT (Sun, 22 Jun 2008)
@@ -72,15 +72,23 @@
 
   int ierr = lapack::pptrf (sal);  
   if (!ierr) {
+    symml_t isal (sal);
     lapack::pptrs (sal, bl); 
     print_m (bl, "xl"); 
+    cout << endl; 
+    lapack::pptri (isal);
+    print_m (isal, "isal");
   }
   cout << endl; 
 
   ierr = lapack::pptrf (sau);  
   if (!ierr) {
+    symmu_t isau (sau);
     lapack::pptrs (sau, bu); 
     print_m (bu, "xu"); 
+    cout << endl; 
+    lapack::pptri (isau);
+    print_m (isau, "isau");
   }
   cout << endl; 
 
@@ -126,8 +134,12 @@
   
   ierr = lapack::pptrf (hal); 
   if (ierr == 0) {
+    herml_t ihal (hal);
     lapack::pptrs (hal, cbl2); 
     print_m (cbl2, "cxl"); 
+    cout << endl; 
+    lapack::pptri (ihal);
+    print_m (ihal, "ihal");
   }
   else 
     cout << "matrix is not positive definite: ierr = " 
@@ -136,8 +148,12 @@
 
   ierr = lapack::pptrf (hau); 
   if (ierr == 0) {
+    hermu_t ihau (hau);
     ierr = lapack::pptrs (hau, cbu2); 
     print_m (cbu2, "cxu"); 
+    cout << endl; 
+    lapack::pptri (ihau);
+    print_m (ihau, "ihau");
   }
   else 
     cout << "matrix is not positive definite: ierr = "