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

Subject: [Boost-commit] svn:boost r58892 - sandbox/numeric_bindings/libs/numeric/bindings/lapack/test
From: rutger_at_[hidden]
Date: 2010-01-11 06:28:06

Author: rutger
Date: 2010-01-11 06:28:06 EST (Mon, 11 Jan 2010)
New Revision: 58892
URL: http://svn.boost.org/trac/boost/changeset/58892

Log:
integer type of gesv depends on lapack backend

Text files modified: 
   sandbox/numeric_bindings/libs/numeric/bindings/lapack/test/ublas_gesv.cc |    11 +++++++++--                             
   1 files changed, 9 insertions(+), 2 deletions(-)

Modified: sandbox/numeric_bindings/libs/numeric/bindings/lapack/test/ublas_gesv.cc
==============================================================================
--- sandbox/numeric_bindings/libs/numeric/bindings/lapack/test/ublas_gesv.cc	(original)
+++ sandbox/numeric_bindings/libs/numeric/bindings/lapack/test/ublas_gesv.cc	2010-01-11 06:28:06 EST (Mon, 11 Jan 2010)
@@ -22,6 +22,13 @@
 typedef ublas::matrix<double, ublas::column_major> m_t;
 typedef ublas::matrix<cmpx_t, ublas::column_major> cm_t;
 
+#if defined BOOST_NUMERIC_BINDINGS_LAPACK_CLAPACK
+typedef int integer_t;
+#else
+typedef fortran_int_t integer_t;
+#endif
+
+
 int main() {
 
   cout << endl; 
@@ -33,7 +40,7 @@
   size_t nrhs = 2; 
   m_t x (n, nrhs), b (n, nrhs);  // b -- right-hand side matrix
 
-  std::vector< fortran_int_t > ipiv (n);  // pivot vector
+  std::vector< integer_t > ipiv (n);  // pivot vector
 
   init_symm (a); 
   //     [n   n-1 n-2  ... 1]
@@ -68,7 +75,7 @@
   cout << endl; 
   cout << "complex system:" << endl << endl; 
   cm_t ca (3, 3), cb (3, 1), cx (3, 1);
-  std::vector< fortran_int_t > ipiv2 (3); 
+  std::vector< integer_t > ipiv2 (3); 
 
   ca (0, 0) = cmpx_t (3, 0);
   ca (0, 1) = cmpx_t (4, 2);