Boost logo

Boost-Commit :

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


Boost-Commit list run by bdawes at acm.org, david.abrahams at rcn.com, gregod at cs.rpi.edu, cpdaniel at pacbell.net, john at johnmaddock.co.uk