[Boost-commit] svn:boost r48651 - in sandbox/boost/numeric/bindings: atlas lapack umfpack

Subject: [Boost-commit] svn:boost r48651 - in sandbox/boost/numeric/bindings: atlas lapack umfpack
From: thomas.klimpel_at_[hidden]
Date: 2008-09-07 07:10:02

Author: klimpel
Date: 2008-09-07 07:10:02 EDT (Sun, 07 Sep 2008)
New Revision: 48651
URL: http://svn.boost.org/trac/boost/changeset/48651

Log:
sync with git

Text files modified: 
   sandbox/boost/numeric/bindings/atlas/cblas_inc.hpp     |     2                                         
   sandbox/boost/numeric/bindings/atlas/clapack_inc.hpp   |     4 +-                                      
   sandbox/boost/numeric/bindings/lapack/lapack.h         |    70 +++++++++++++++++++++++++++++++++++++++ 
   sandbox/boost/numeric/bindings/lapack/lapack_names.h   |    21 ++++++++++-                             
   sandbox/boost/numeric/bindings/umfpack/umfpack_inc.hpp |     2                                         
   5 files changed, 91 insertions(+), 8 deletions(-)

Modified: sandbox/boost/numeric/bindings/atlas/cblas_inc.hpp
==============================================================================
--- sandbox/boost/numeric/bindings/atlas/cblas_inc.hpp	(original)
+++ sandbox/boost/numeric/bindings/atlas/cblas_inc.hpp	2008-09-07 07:10:02 EDT (Sun, 07 Sep 2008)
@@ -26,7 +26,7 @@
 #define BOOST_NUMERIC_BINDINGS_CBLAS_INC_H
 
 extern "C" {
-#  include <atlas/cblas.h> 
+#include <cblas.h> 
 }
 
 #endif 

Modified: sandbox/boost/numeric/bindings/atlas/clapack_inc.hpp
==============================================================================
--- sandbox/boost/numeric/bindings/atlas/clapack_inc.hpp	(original)
+++ sandbox/boost/numeric/bindings/atlas/clapack_inc.hpp	2008-09-07 07:10:02 EDT (Sun, 07 Sep 2008)
@@ -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 

Modified: sandbox/boost/numeric/bindings/lapack/lapack.h
==============================================================================
--- sandbox/boost/numeric/bindings/lapack/lapack.h	(original)
+++ sandbox/boost/numeric/bindings/lapack/lapack.h	2008-09-07 07:10:02 EDT (Sun, 07 Sep 2008)
@@ -331,6 +331,15 @@
                       dcomplex_t const* ap, int const* ipiv, 
                       dcomplex_t* b, int const* ldb, int* info);
 
+  /* banded */
+
+  void LAPACK_DGBTRF (int const* n, int const* m, int const* kl, int const* ku,
+                      double* ab, int const* ldab, int* ipiv, int* info);
+
+  void LAPACK_DGBTRS (char const* trans, int const* n, int const* kl, int const* ku, int const* nrhs, 
+                      double const* ab, int const* ldab, int const* ipiv, 
+                      double* b, int const* ldb, int* info);
+
 
   /**********************************************************************/
   /*                         eigenproblems                              */
@@ -394,7 +403,7 @@
                      dcomplex_t* work, const int * lwork, double* rwork,
                      int* info );
 
-  
+
   void LAPACK_SSYEVD( const char* jobz, const char* uplo, const int* n,
                       float* a, const int* lda, float* w,
                       float* work, const int* lwork,
@@ -478,6 +487,7 @@
                      dcomplex_t* t, const int * ldt, dcomplex_t* q, const int* ldq,
                      int* ifst, const int * ilst, int* info );
 
+
   /* Hessenberg matrices */
 
   void LAPACK_SHSEQR( const char* JOB, const char* COMPZ, const int* N, const int* ILO, const int* IHI, float* H, 
@@ -686,6 +696,64 @@
                       dcomplex_t* work, const int* lwork, const int* info);
 
 
+  /********************************************************************/
+  /*                          Least Squares                           */
+  /********************************************************************/
+
+  void LAPACK_SGELS(const char* trans, const int* m, const int* n, 
+					const int *nrhs, float* a, const int* lda,
+					float* b, const int* ldb, float* work,
+					const int* lwork, int* info);
+  void LAPACK_DGELS(const char* trans, const int* m, const int* n, 
+					const int *nrhs, double* a, const int* lda,
+					double* b, const int* ldb, double* work,
+					const int* lwork, int* info);
+  void LAPACK_CGELS(const char* trans, const int* m, const int* n, 
+					const int *nrhs, fcomplex_t* a, const int* lda,
+					fcomplex_t* b, const int* ldb, fcomplex_t* work,
+					const int* lwork, int* info);
+  void LAPACK_ZGELS(const char* trans, const int* m, const int* n, 
+					const int *nrhs, dcomplex_t* a, const int* lda,
+					dcomplex_t* b, const int* ldb, dcomplex_t* work,
+					const int* lwork, int* info);
+
+
+  void LAPACK_SGELSS(const int *m, const int *n, const int *nrhs,
+					 float *a, const int *lda, float *b, const int *ldb,
+					 float *s, const float *rcond, int *rank, float *work,
+					 const int *lwork, int *info);
+  void LAPACK_DGELSS(const int *m, const int *n, const int *nrhs,
+					 double *a, const int *lda, double *b, const int *ldb,
+					 double *s, const double *rcond, int *rank, double *work,
+					 const int *lwork, int *info);
+  void LAPACK_CGELSS(const int *m, const int *n, const int *nrhs,
+					 fcomplex_t *a, const int *lda, fcomplex_t *b, const int *ldb,
+					 float *s, const float *rcond, int *rank, fcomplex_t *work,
+					 const int *lwork, float *rwork, int *info);
+  void LAPACK_ZGELSS(const int *m, const int *n, const int *nrhs,
+					 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 *info);
+
+
+  void LAPACK_SGELSD(const int *m, const int *n, const int *nrhs,
+					 float *a, const int *lda, float *b, const int *ldb,
+					 float *s, const float *rcond, int *rank, float *work,
+					 const int *lwork, int *iwork, int *info);
+  void LAPACK_DGELSD(const int *m, const int *n, const int *nrhs,
+					 double *a, const int *lda, double *b, const int *ldb,
+					 double *s, const double *rcond, int *rank, double *work,
+					 const int *lwork, int *iwork, int *info);
+  void LAPACK_CGELSD(const int *m, const int *n, const int *nrhs,
+					 fcomplex_t *a, const int *lda, fcomplex_t *b, const int *ldb,
+					 float *s, const float *rcond, int *rank, fcomplex_t *work,
+					 const int *lwork, float *rwork, int *iwork, int *info);
+  void LAPACK_ZGELSD(const int *m, const int *n, const int *nrhs,
+					 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);
+
+
 
   /********************************************************************/
   /*                          auxiliary                               */

Modified: sandbox/boost/numeric/bindings/lapack/lapack_names.h
==============================================================================
--- sandbox/boost/numeric/bindings/lapack/lapack_names.h	(original)
+++ sandbox/boost/numeric/bindings/lapack/lapack_names.h	2008-09-07 07:10:02 EDT (Sun, 07 Sep 2008)
@@ -212,7 +212,6 @@
 #define LAPACK_CTREXC FORTRAN_ID( ctrexc )
 #define LAPACK_ZTREXC FORTRAN_ID( ztrexc )
 
-
 /********************************************/
 /* eigenproblems for Hessenberg matrices */ 
 
@@ -234,14 +233,12 @@
 #define LAPACK_CHBEVX FORTRAN_ID( chbevx )
 #define LAPACK_ZHBEVX FORTRAN_ID( zhbevx )
 
-
 /********************************************/
 /* eigenproblems for tridiagonal matrices */ 
 
 #define LAPACK_SSTEQR FORTRAN_ID( ssteqr )
 #define LAPACK_DSTEQR FORTRAN_ID( dsteqr )
 
-
 /********************************************/
 /* generalized eigenvalue/eigenvector */
 
@@ -290,6 +287,24 @@
 
 
 /********************************************/
+/* Least Squares */ 
+
+#define LAPACK_SGELS FORTRAN_ID( sgels )
+#define LAPACK_DGELS FORTRAN_ID( dgels )
+#define LAPACK_CGELS FORTRAN_ID( cgels )
+#define LAPACK_ZGELS FORTRAN_ID( zgels )
+
+#define LAPACK_SGELSS FORTRAN_ID( sgelss )
+#define LAPACK_DGELSS FORTRAN_ID( dgelss )
+#define LAPACK_CGELSS FORTRAN_ID( cgelss )
+#define LAPACK_ZGELSS FORTRAN_ID( zgelss )
+
+#define LAPACK_SGELSD FORTRAN_ID( sgelsd )
+#define LAPACK_DGELSD FORTRAN_ID( dgelsd )
+#define LAPACK_CGELSD FORTRAN_ID( cgelsd )
+#define LAPACK_ZGELSD FORTRAN_ID( zgelsd )
+
+/********************************************/
 /* auxiliary */ 
 
 #define LAPACK_ILAENV FORTRAN_ID( ilaenv )

Modified: sandbox/boost/numeric/bindings/umfpack/umfpack_inc.hpp
==============================================================================
--- sandbox/boost/numeric/bindings/umfpack/umfpack_inc.hpp	(original)
+++ sandbox/boost/numeric/bindings/umfpack/umfpack_inc.hpp	2008-09-07 07:10:02 EDT (Sun, 07 Sep 2008)
@@ -53,7 +53,7 @@
 #define BOOST_NUMERIC_BINDINGS_UMFPACK_INC_H
 
 extern "C" {
-#include <umfpack/umfpack.h> 
+#include <umfpack.h> 
 }
 
 #endif