Apply Thomas's sync patch.

inducer · Nov 12, 2008 · e340757 · e340757
1 parent 6c9c9fd
commit e340757
Show file tree

Hide file tree

Showing 4 changed files with 57 additions and 4 deletions.
diff --git a/boost/numeric/bindings/atlas/cblas_inc.hpp b/boost/numeric/bindings/atlas/cblas_inc.hpp
@@ -26,7 +26,7 @@
 #define BOOST_NUMERIC_BINDINGS_CBLAS_INC_H
 
 extern "C" {
-#  include <atlas/cblas.h> 
+#include <cblas.h> 
 }
 
 #endif 
diff --git a/boost/numeric/bindings/atlas/clapack_inc.hpp b/boost/numeric/bindings/atlas/clapack_inc.hpp
@@ -27,8 +27,8 @@
 
 extern "C" {
 /* see footnote [2] in libs/numeric/bindings/lapack/doc/index.html */ 
-/* #include <atlas/atlas_enum.h> */
-#include <atlas/clapack.h> 
+/* #include <atlas_enum.h> */
+#include <clapack.h> 
 }
 
 #endif 
diff --git a/boost/numeric/bindings/lapack/lapack.h b/boost/numeric/bindings/lapack/lapack.h
@@ -74,6 +74,7 @@ extern "C" {
 		      fcomplex_t* work, int const* lwork, int* info);
   void LAPACK_ZGETRI (int const* n, dcomplex_t* a, int const* lda,	int const* ipiv, 
 		      dcomplex_t* work, int const* lwork, int* info);
+
   /* symmetric/Hermitian positive definite */
 
   void LAPACK_SPOSV (char const* uplo, int const* n, int const* nrhs, 
@@ -148,6 +149,40 @@ extern "C" {
   void LAPACK_ZPPTRI (char const* uplo, int const* n, 
                       dcomplex_t* ap, int* info);
 
+  /* symmetric/Hermitian positive definite tridiagonal */
+
+  void LAPACK_SPTSV (int const* N, int const* NRHS, float* D, float* E
+                    , float* B, int const* LDB, int* INFO
+                    );
+  void LAPACK_DPTSV (int const* N, int const* NRHS, double* D, double* E
+                    , double* B, int const* LDB, int* INFO
+                    );
+  void LAPACK_CPTSV (int const* N, int const* NRHS, float* D, fcomplex_t* E
+                    , fcomplex_t* B, int const* LDB, int* INFO
+                    );
+  void LAPACK_ZPTSV (int const* N, int const* NRHS, double* D, dcomplex_t* E
+                    , dcomplex_t* B, int const* LDB, int* INFO
+                    );
+
+  void LAPACK_SPTTRF ( int const* n, float* d, float* e, int* info);
+  void LAPACK_DPTTRF ( int const* n, double* d, double* e, int* info);
+  void LAPACK_CPTTRF ( int const* n, float* d, fcomplex_t* e, int* info);
+  void LAPACK_ZPTTRF ( int const* n, double* d, dcomplex_t* e, int* info);
+
+  void LAPACK_SPTTRS ( int const* n, int const* nrhs, 
+                      float const* d, float const* e,
+                      float* b, int const* ldb, int* info);
+  void LAPACK_DPTTRS ( int const* n, int const* nrhs, 
+                      double const* d, double const* e,
+                      double* b, int const* ldb, int* info);
+  void LAPACK_CPTTRS (char const* uplo, int const* n, int const* nrhs,
+                      float const* d, fcomplex_t const* e,
+                      fcomplex_t* b, int const* ldb, int* info);
+  void LAPACK_ZPTTRS (char const* uplo, int const* n, int const* nrhs,
+                      double const* d, dcomplex_t const* e,
+                      dcomplex_t* b, int const* ldb, int* info);
+
+
 
   /* symmetric/Hermitian indefinite and complex symmetric */
 
@@ -288,6 +323,7 @@ extern "C" {
 		      int const* ipiv, fcomplex_t* work, int* info);
   void LAPACK_ZSPTRI (char const* uplo, int const* n, dcomplex_t const* ap, 
 		      int const* ipiv, dcomplex_t* work, int* info);
+
   void LAPACK_CHPTRS (char const* uplo, int const* n, int const* nrhs,
                       fcomplex_t const* ap, int const* ipiv, 
                       fcomplex_t* b, int const* ldb, int* info);
@@ -414,6 +450,7 @@ extern "C" {
                       dcomplex_t* work, const int* lwork, double* rwork,
                       int* iwork, int* ifail, int* info);
 
+
   void LAPACK_CTREVC( const char* side, const char* howmny, const logical_t* select, const int *n,
                      fcomplex_t* t, const int * ldt, fcomplex_t* vl, const int* ldvl,
 		     fcomplex_t* vr, const int * ldvr, const int * nm, int* m, fcomplex_t* work,
@@ -716,7 +753,7 @@ extern "C" {
 					 dcomplex_t *a, const int *lda, dcomplex_t *b, const int *ldb,
 					 double *s, const double *rcond, int *rank, dcomplex_t *work,
 					 const int *lwork, double *rwork, int *iwork, int *info);
-  
+
 
 
   /********************************************************************/

diff --git a/boost/numeric/bindings/lapack/lapack_names.h b/boost/numeric/bindings/lapack/lapack_names.h
@@ -67,6 +67,22 @@
 #define LAPACK_CPOTRI FORTRAN_ID( cpotri )
 #define LAPACK_ZPOTRI FORTRAN_ID( zpotri )
 
+/* symmetric/Hermitian positive definite tridiagonal */
+
+#define LAPACK_SPTSV FORTRAN_ID( sptsv )
+#define LAPACK_DPTSV FORTRAN_ID( dptsv )
+#define LAPACK_CPTSV FORTRAN_ID( cptsv )
+#define LAPACK_ZPTSV FORTRAN_ID( zptsv )
+
+#define LAPACK_SPTTRF FORTRAN_ID( spttrf )
+#define LAPACK_DPTTRF FORTRAN_ID( dpttrf )
+#define LAPACK_CPTTRF FORTRAN_ID( cpttrf )
+#define LAPACK_ZPTTRF FORTRAN_ID( zpttrf )
+
+#define LAPACK_SPTTRS FORTRAN_ID( spttrs )
+#define LAPACK_DPTTRS FORTRAN_ID( dpttrs )
+#define LAPACK_CPTTRS FORTRAN_ID( cpttrs )
+#define LAPACK_ZPTTRS FORTRAN_ID( zpttrs )
 
 /* symmetric/Hermitian positive definite in packed storage */