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

From: thomas.klimpel_at_[hidden]
Date: 2008-07-06 15:53:01

Author: klimpel
Date: 2008-07-06 15:53:01 EDT (Sun, 06 Jul 2008)
New Revision: 47141
URL: http://svn.boost.org/trac/boost/changeset/47141

Log:
execute all available lapack regression tests

Text files modified: 
   sandbox/libs/numeric/bindings/lapack/test/Jamfile.v2           |    10 +++++-----                              
   sandbox/libs/numeric/bindings/lapack/test/ublas_getrf_getrs.cc |    13 +++++++++----                           
   sandbox/libs/numeric/bindings/lapack/test/ublas_spsv.cc        |    13 +++++++++----                           
   sandbox/libs/numeric/bindings/lapack/test/ublas_sptrf_sptrs.cc |    13 +++++++++----                           
   sandbox/libs/numeric/bindings/lapack/test/ublas_sysv.cc        |    13 +++++++++----                           
   sandbox/libs/numeric/bindings/lapack/test/ublas_sytrf_sytrs.cc |    13 +++++++++----                           
   6 files changed, 50 insertions(+), 25 deletions(-)

Modified: sandbox/libs/numeric/bindings/lapack/test/Jamfile.v2
==============================================================================
--- sandbox/libs/numeric/bindings/lapack/test/Jamfile.v2	(original)
+++ sandbox/libs/numeric/bindings/lapack/test/Jamfile.v2	2008-07-06 15:53:01 EDT (Sun, 06 Jul 2008)
@@ -40,15 +40,15 @@
     [ run ublas_hpsv.cc ]
     [ run ublas_posv.cc ]
     [ run ublas_ppsv.cc ]
-    [ link ublas_spsv.cc ]
-    [ link ublas_sysv.cc ]
+    [ run ublas_spsv.cc : 20 ]
+    [ run ublas_sysv.cc : 20 ]
 
-    [ link ublas_getrf_getrs.cc ]
+    [ run ublas_getrf_getrs.cc : 20 ]
     [ run ublas_hetrf_hetrs.cc ]
     [ run ublas_hptrf_hptrs.cc ]
     [ run ublas_potrf_potrs.cc ]
     [ run ublas_pptrf_pptrs.cc ]
-    [ link ublas_sptrf_sptrs.cc ]
-    [ link ublas_sytrf_sytrs.cc ]
+    [ run ublas_sptrf_sptrs.cc : 20 ]
+    [ run ublas_sytrf_sytrs.cc : 20 ]
 ;
 

Modified: sandbox/libs/numeric/bindings/lapack/test/ublas_getrf_getrs.cc
==============================================================================
--- sandbox/libs/numeric/bindings/lapack/test/ublas_getrf_getrs.cc	(original)
+++ sandbox/libs/numeric/bindings/lapack/test/ublas_getrf_getrs.cc	2008-07-06 15:53:01 EDT (Sun, 06 Jul 2008)
@@ -25,13 +25,18 @@
 typedef ublas::matrix<cmpx, ublas::column_major> cm_t;
 
 
-int main() {
+int main (int argc, char **argv) {
+  size_t n = 0;
+  if (argc > 1) {
+    n = atoi(argv [1]);
+  }
 
   cout << endl; 
 
-  size_t n;
-  cout << "n -> ";
-  cin >> n; 
+  if (n <= 0) {
+    cout << "n -> ";
+    cin >> n; 
+  }
   if (n < 5) {
     n = 5;
     cout << "min n = 5" << endl; 

Modified: sandbox/libs/numeric/bindings/lapack/test/ublas_spsv.cc
==============================================================================
--- sandbox/libs/numeric/bindings/lapack/test/ublas_spsv.cc	(original)
+++ sandbox/libs/numeric/bindings/lapack/test/ublas_spsv.cc	2008-07-06 15:53:01 EDT (Sun, 06 Jul 2008)
@@ -44,15 +44,20 @@
       m (i, j) = m (j, i) = 1 + j - i; 
 }
 
-int main() {
+int main (int argc, char **argv) {
+  size_t n = 0;
+  if (argc > 1) {
+    n = atoi(argv [1]);
+  }
 
   cout << endl; 
 
   cout << "real symmetric\n" << endl; 
 
-  size_t n;
-  cout << "n -> ";
-  cin >> n;
+  if (n <= 0) {
+    cout << "n -> ";
+    cin >> n;
+  }
   if (n < 5) n = 5; 
   cout << "min n = 5" << endl << endl; 
   size_t nrhs = 2; 

Modified: sandbox/libs/numeric/bindings/lapack/test/ublas_sptrf_sptrs.cc
==============================================================================
--- sandbox/libs/numeric/bindings/lapack/test/ublas_sptrf_sptrs.cc	(original)
+++ sandbox/libs/numeric/bindings/lapack/test/ublas_sptrf_sptrs.cc	2008-07-06 15:53:01 EDT (Sun, 06 Jul 2008)
@@ -44,15 +44,20 @@
       m (i, j) = m (j, i) = 1 + j - i; 
 }
 
-int main() {
+int main (int argc, char **argv) {
+  size_t n = 0;
+  if (argc > 1) {
+    n = atoi(argv [1]);
+  }
 
   cout << endl; 
 
   cout << "real symmetric\n" << endl; 
 
-  size_t n;
-  cout << "n -> ";
-  cin >> n;
+  if (n <= 0) {
+    cout << "n -> ";
+    cin >> n;
+  }
   if (n < 5) n = 5; 
   cout << "min n = 5" << endl << endl; 
   size_t nrhs = 2; 

Modified: sandbox/libs/numeric/bindings/lapack/test/ublas_sysv.cc
==============================================================================
--- sandbox/libs/numeric/bindings/lapack/test/ublas_sysv.cc	(original)
+++ sandbox/libs/numeric/bindings/lapack/test/ublas_sysv.cc	2008-07-06 15:53:01 EDT (Sun, 06 Jul 2008)
@@ -40,16 +40,21 @@
       m (i, j) = m (j, i) = 1 + j - i; 
 }
 
-int main() {
+int main (int argc, char **argv) {
+  size_t n = 0;
+  if (argc > 1) {
+    n = atoi(argv [1]);
+  }
 
   cout << endl; 
 
   // symmetric 
   cout << "real symmetric\n" << endl; 
 
-  size_t n;
-  cout << "n -> ";
-  cin >> n;
+  if (n <= 0) {
+    cout << "n -> ";
+    cin >> n;
+  }
   if (n < 5) n = 5; 
   cout << "min n = 5" << endl << endl; 
   size_t nrhs = 2; 

Modified: sandbox/libs/numeric/bindings/lapack/test/ublas_sytrf_sytrs.cc
==============================================================================
--- sandbox/libs/numeric/bindings/lapack/test/ublas_sytrf_sytrs.cc	(original)
+++ sandbox/libs/numeric/bindings/lapack/test/ublas_sytrf_sytrs.cc	2008-07-06 15:53:01 EDT (Sun, 06 Jul 2008)
@@ -40,16 +40,21 @@
       m (i, j) = m (j, i) = 1 + j - i; 
 }
 
-int main() {
+int main (int argc, char **argv) {
+  size_t n = 0;
+  if (argc > 1) {
+    n = atoi(argv [1]);
+  }
 
   cout << endl; 
 
   // symmetric 
   cout << "real symmetric\n" << endl; 
 
-  size_t n;
-  cout << "n -> ";
-  cin >> n;
+  if (n <= 0) {
+    cout << "n -> ";
+    cin >> n;
+  }
   if (n < 5) n = 5; 
   cout << "min n = 5" << endl << endl; 
   size_t nrhs = 2;