Boost logo

Boost-Commit :

Subject: [Boost-commit] svn:boost r56268 - in sandbox/numeric_bindings/boost/numeric/bindings/lapack: computational detail driver
From: rutger_at_[hidden]
Date: 2009-09-17 07:43:33


Author: rutger
Date: 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
New Revision: 56268
URL: http://svn.boost.org/trac/boost/changeset/56268

Log:
LAPACK bindings sync

Text files modified:
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/bdsdc.hpp | 30
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/bdsqr.hpp | 60
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbbrd.hpp | 78
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbcon.hpp | 94
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbequ.hpp | 52
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbrfs.hpp | 122
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbtrf.hpp | 32
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbtrs.hpp | 46
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebak.hpp | 36
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebal.hpp | 22
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebrd.hpp | 28
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gecon.hpp | 76
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geequ.hpp | 34
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gehrd.hpp | 40
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gelqf.hpp | 28
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqlf.hpp | 28
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqp3.hpp | 30
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqrf.hpp | 24
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gerfs.hpp | 114
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gerqf.hpp | 24
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getrf.hpp | 16
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getri.hpp | 41
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getrs.hpp | 37
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggbak.hpp | 50
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggbal.hpp | 36
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gghrd.hpp | 44
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggqrf.hpp | 32
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggrqf.hpp | 32
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggsvp.hpp | 130
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gtrfs.hpp | 113
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gttrs.hpp | 46
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hbgst.hpp | 52
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hbtrd.hpp | 34
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hecon.hpp | 50
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hegst.hpp | 22
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/herfs.hpp | 64
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrd.hpp | 12
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrf.hpp | 12
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetri.hpp | 23
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrs.hpp | 24
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hgeqz.hpp | 90
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hprfs.hpp | 62
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hptrs.hpp | 23
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hsein.hpp | 139
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hseqr.hpp | 76
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/labrd.hpp | 26
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/lacon.hpp | 30
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/laebz.hpp | 110
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/larz.hpp | 93
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrd.hpp | 30
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrs.hpp | 36
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrz.hpp | 20
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/opgtr.hpp | 33
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/opmtr.hpp | 47
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgbr.hpp | 45
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orghr.hpp | 41
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orglq.hpp | 42
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgql.hpp | 42
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgqr.hpp | 42
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgrq.hpp | 42
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgtr.hpp | 27
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormbr.hpp | 53
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormhr.hpp | 54
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormlq.hpp | 49
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormql.hpp | 49
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormqr.hpp | 49
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormrq.hpp | 49
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormrz.hpp | 46
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormtr.hpp | 44
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbcon.hpp | 74
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbequ.hpp | 30
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbrfs.hpp | 108
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbstf.hpp | 20
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbtrf.hpp | 20
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbtrs.hpp | 35
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pftrs.hpp | 36
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pocon.hpp | 70
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/poequ.hpp | 21
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/porfs.hpp | 91
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potrf.hpp | 16
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potri.hpp | 16
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potrs.hpp | 30
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pprfs.hpp | 101
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pptrs.hpp | 29
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pteqr.hpp | 36
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ptrfs.hpp | 111
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pttrs.hpp | 38
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sbgst.hpp | 50
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sbtrd.hpp | 34
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sprfs.hpp | 108
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sptrs.hpp | 35
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stebz.hpp | 86
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stedc.hpp | 48
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stegr.hpp | 126
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stein.hpp | 96
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stemr.hpp | 128
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/steqr.hpp | 32
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sterf.hpp | 8
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sycon.hpp | 80
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sygst.hpp | 20
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/syrfs.hpp | 111
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrd.hpp | 12
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrf.hpp | 24
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytri.hpp | 39
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrs.hpp | 37
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbcon.hpp | 74
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbrfs.hpp | 119
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbtrs.hpp | 44
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgevc.hpp | 117
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgexc.hpp | 78
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgsen.hpp | 112
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgsja.hpp | 120
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgsna.hpp | 126
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgsyl.hpp | 136
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tprfs.hpp | 106
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tptri.hpp | 12
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tptrs.hpp | 35
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/trcon.hpp | 72
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/trevc.hpp | 112
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/trexc.hpp | 44
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/trrfs.hpp | 102
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/trsen.hpp | 40
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/trsna.hpp | 118
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/trsyl.hpp | 60
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/trtri.hpp | 20
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/trtrs.hpp | 36
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tzrzf.hpp | 24
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ungbr.hpp | 47
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/unghr.hpp | 43
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/unglq.hpp | 44
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ungql.hpp | 44
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ungqr.hpp | 44
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ungrq.hpp | 44
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ungtr.hpp | 31
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/unmbr.hpp | 56
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/unmhr.hpp | 58
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/unmlq.hpp | 51
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/unmql.hpp | 51
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/unmqr.hpp | 51
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/unmrq.hpp | 51
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/unmrz.hpp | 49
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/unmtr.hpp | 46
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/upgtr.hpp | 37
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/upmtr.hpp | 45
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/detail/lapack.h | 5496 ++++++++++++++++++++--------------------
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/cgesv.hpp | 38
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/cposv.hpp | 35
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gbsv.hpp | 36
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gbsvx.hpp | 84
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gees.hpp | 60
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/geesx.hpp | 96
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/geev.hpp | 64
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/geevx.hpp | 90
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gegv.hpp | 62
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gels.hpp | 52
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gelsd.hpp | 114
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gelss.hpp | 66
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gelsy.hpp | 66
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gesdd.hpp | 66
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gesv.hpp | 24
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gesvd.hpp | 60
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gesvx.hpp | 60
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gges.hpp | 82
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/ggesx.hpp | 112
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/ggev.hpp | 62
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/ggevx.hpp | 102
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/ggglm.hpp | 40
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gglse.hpp | 40
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/ggsvd.hpp | 78
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gtsv.hpp | 20
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/gtsvx.hpp | 151
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hbev.hpp | 36
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hbevd.hpp | 46
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hbevx.hpp | 90
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hbgv.hpp | 40
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hbgvd.hpp | 50
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hbgvx.hpp | 98
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/heev.hpp | 26
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/heevd.hpp | 32
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/heevr.hpp | 84
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/heevx.hpp | 80
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hegv.hpp | 40
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hegvd.hpp | 50
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hegvx.hpp | 94
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hesv.hpp | 16
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hesvx.hpp | 52
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hpev.hpp | 22
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hpevd.hpp | 32
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hpevx.hpp | 76
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hpgv.hpp | 36
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hpgvd.hpp | 46
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hpgvx.hpp | 90
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hpsv.hpp | 12
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/hpsvx.hpp | 69
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/lacgv.hpp | 14
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/lalsd.hpp | 96
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/largv.hpp | 40
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/pbsv.hpp | 28
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/pbsvx.hpp | 84
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/posv.hpp | 24
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/posvx.hpp | 60
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/ppsv.hpp | 20
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/ppsvx.hpp | 56
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/ptsv.hpp | 22
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/ptsvx.hpp | 100
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sbev.hpp | 34
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sbevd.hpp | 50
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sbevx.hpp | 88
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sbgv.hpp | 38
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sbgvd.hpp | 44
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sbgvx.hpp | 94
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sgesv.hpp | 30
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/spev.hpp | 20
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/spevd.hpp | 28
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/spevx.hpp | 70
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/spgv.hpp | 34
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/spgvd.hpp | 40
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/spgvx.hpp | 84
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sposv.hpp | 30
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/spsv.hpp | 24
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/spsvx.hpp | 86
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/stev.hpp | 20
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/stevd.hpp | 26
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/stevr.hpp | 82
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/stevx.hpp | 74
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/syev.hpp | 24
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/syevd.hpp | 26
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/syevr.hpp | 78
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/syevx.hpp | 76
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sygv.hpp | 36
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sygvd.hpp | 42
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sygvx.hpp | 90
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sysv.hpp | 32
   sandbox/numeric_bindings/boost/numeric/bindings/lapack/driver/sysvx.hpp | 91
   234 files changed, 9328 insertions(+), 8992 deletions(-)

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/bdsdc.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/bdsdc.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/bdsdc.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,16 +33,16 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void bdsdc( char const uplo, char const compq, integer_t const n,
- float* d, float* e, float* u, integer_t const ldu, float* vt,
- integer_t const ldvt, float* q, integer_t* iq, float* work,
+ inline void bdsdc( const char uplo, const char compq, const integer_t n,
+ float* d, float* e, float* u, const integer_t ldu, float* vt,
+ const integer_t ldvt, float* q, integer_t* iq, float* work,
             integer_t* iwork, integer_t& info ) {
         LAPACK_SBDSDC( &uplo, &compq, &n, d, e, u, &ldu, vt, &ldvt, q, iq,
                 work, iwork, &info );
     }
- inline void bdsdc( char const uplo, char const compq, integer_t const n,
- double* d, double* e, double* u, integer_t const ldu, double* vt,
- integer_t const ldvt, double* q, integer_t* iq, double* work,
+ inline void bdsdc( const char uplo, const char compq, const integer_t n,
+ double* d, double* e, double* u, const integer_t ldu, double* vt,
+ const integer_t ldvt, double* q, integer_t* iq, double* work,
             integer_t* iwork, integer_t& info ) {
         LAPACK_DBDSDC( &uplo, &compq, &n, d, e, u, &ldu, vt, &ldvt, q, iq,
                 work, iwork, &info );
@@ -60,7 +60,7 @@
     template< typename VectorD, typename VectorE, typename MatrixU,
             typename MatrixVT, typename VectorQ, typename VectorIQ,
             typename WORK, typename IWORK >
- static void invoke( char const uplo, char const compq, integer_t const n,
+ static void invoke( const char uplo, const char compq, const integer_t n,
             VectorD& d, VectorE& e, MatrixU& u, MatrixVT& vt, VectorQ& q,
             VectorIQ& iq, integer_t& info, detail::workspace2< WORK,
             IWORK > work ) {
@@ -96,7 +96,7 @@
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixU,
             typename MatrixVT, typename VectorQ, typename VectorIQ >
- static void invoke( char const uplo, char const compq, integer_t const n,
+ static void invoke( const char uplo, const char compq, const integer_t n,
             VectorD& d, VectorE& e, MatrixU& u, MatrixVT& vt, VectorQ& q,
             VectorIQ& iq, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( compq,
@@ -109,14 +109,14 @@
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixU,
             typename MatrixVT, typename VectorQ, typename VectorIQ >
- static void invoke( char const uplo, char const compq, integer_t const n,
+ static void invoke( const char uplo, const char compq, const integer_t n,
             VectorD& d, VectorE& e, MatrixU& u, MatrixVT& vt, VectorQ& q,
             VectorIQ& iq, integer_t& info, optimal_workspace work ) {
         invoke( uplo, compq, n, d, e, u, vt, q, iq, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( char const compq, integer_t const n ) {
+ static integer_t min_size_work( const char compq, const integer_t n ) {
         switch ( compq ) {
             case 'N': return 4*n;
             case 'P': return 6*n;
@@ -124,7 +124,7 @@
         }
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return 8*n;
     }
 };
@@ -134,8 +134,8 @@
 template< typename VectorD, typename VectorE, typename MatrixU,
         typename MatrixVT, typename VectorQ, typename VectorIQ,
         typename Workspace >
-inline integer_t bdsdc( char const uplo, char const compq,
- integer_t const n, VectorD& d, VectorE& e, MatrixU& u, MatrixVT& vt,
+inline integer_t bdsdc( const char uplo, const char compq,
+ const integer_t n, VectorD& d, VectorE& e, MatrixU& u, MatrixVT& vt,
         VectorQ& q, VectorIQ& iq, Workspace work ) {
     typedef typename traits::vector_traits< VectorD >::value_type value_type;
     integer_t info(0);
@@ -147,8 +147,8 @@
 // template function to call bdsdc, default workspace type
 template< typename VectorD, typename VectorE, typename MatrixU,
         typename MatrixVT, typename VectorQ, typename VectorIQ >
-inline integer_t bdsdc( char const uplo, char const compq,
- integer_t const n, VectorD& d, VectorE& e, MatrixU& u, MatrixVT& vt,
+inline integer_t bdsdc( const char uplo, const char compq,
+ const integer_t n, VectorD& d, VectorE& e, MatrixU& u, MatrixVT& vt,
         VectorQ& q, VectorIQ& iq ) {
     typedef typename traits::vector_traits< VectorD >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/bdsqr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/bdsqr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/bdsqr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,36 +36,36 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void bdsqr( char const uplo, integer_t const n,
- integer_t const ncvt, integer_t const nru, integer_t const ncc,
- float* d, float* e, float* vt, integer_t const ldvt, float* u,
- integer_t const ldu, float* c, integer_t const ldc, float* work,
+ inline void bdsqr( const char uplo, const integer_t n,
+ const integer_t ncvt, const integer_t nru, const integer_t ncc,
+ float* d, float* e, float* vt, const integer_t ldvt, float* u,
+ const integer_t ldu, float* c, const integer_t ldc, float* work,
             integer_t& info ) {
         LAPACK_SBDSQR( &uplo, &n, &ncvt, &nru, &ncc, d, e, vt, &ldvt, u, &ldu,
                 c, &ldc, work, &info );
     }
- inline void bdsqr( char const uplo, integer_t const n,
- integer_t const ncvt, integer_t const nru, integer_t const ncc,
- double* d, double* e, double* vt, integer_t const ldvt, double* u,
- integer_t const ldu, double* c, integer_t const ldc, double* work,
+ inline void bdsqr( const char uplo, const integer_t n,
+ const integer_t ncvt, const integer_t nru, const integer_t ncc,
+ double* d, double* e, double* vt, const integer_t ldvt, double* u,
+ const integer_t ldu, double* c, const integer_t ldc, double* work,
             integer_t& info ) {
         LAPACK_DBDSQR( &uplo, &n, &ncvt, &nru, &ncc, d, e, vt, &ldvt, u, &ldu,
                 c, &ldc, work, &info );
     }
- inline void bdsqr( char const uplo, integer_t const n,
- integer_t const ncvt, integer_t const nru, integer_t const ncc,
- float* d, float* e, traits::complex_f* vt, integer_t const ldvt,
- traits::complex_f* u, integer_t const ldu, traits::complex_f* c,
- integer_t const ldc, float* rwork, integer_t& info ) {
+ inline void bdsqr( const char uplo, const integer_t n,
+ const integer_t ncvt, const integer_t nru, const integer_t ncc,
+ float* d, float* e, traits::complex_f* vt, const integer_t ldvt,
+ traits::complex_f* u, const integer_t ldu, traits::complex_f* c,
+ const integer_t ldc, float* rwork, integer_t& info ) {
         LAPACK_CBDSQR( &uplo, &n, &ncvt, &nru, &ncc, d, e,
                 traits::complex_ptr(vt), &ldvt, traits::complex_ptr(u), &ldu,
                 traits::complex_ptr(c), &ldc, rwork, &info );
     }
- inline void bdsqr( char const uplo, integer_t const n,
- integer_t const ncvt, integer_t const nru, integer_t const ncc,
- double* d, double* e, traits::complex_d* vt, integer_t const ldvt,
- traits::complex_d* u, integer_t const ldu, traits::complex_d* c,
- integer_t const ldc, double* rwork, integer_t& info ) {
+ inline void bdsqr( const char uplo, const integer_t n,
+ const integer_t ncvt, const integer_t nru, const integer_t ncc,
+ double* d, double* e, traits::complex_d* vt, const integer_t ldvt,
+ traits::complex_d* u, const integer_t ldu, traits::complex_d* c,
+ const integer_t ldc, double* rwork, integer_t& info ) {
         LAPACK_ZBDSQR( &uplo, &n, &ncvt, &nru, &ncc, d, e,
                 traits::complex_ptr(vt), &ldvt, traits::complex_ptr(u), &ldu,
                 traits::complex_ptr(c), &ldc, rwork, &info );
@@ -86,7 +86,7 @@
     // user-defined workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixVT,
             typename MatrixU, typename MatrixC, typename WORK >
- static void invoke( char const uplo, integer_t const n, VectorD& d,
+ static void invoke( const char uplo, const integer_t n, VectorD& d,
             VectorE& e, MatrixVT& vt, MatrixU& u, MatrixC& c, integer_t& info,
             detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -123,7 +123,7 @@
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixVT,
             typename MatrixU, typename MatrixC >
- static void invoke( char const uplo, integer_t const n, VectorD& d,
+ static void invoke( const char uplo, const integer_t n, VectorD& d,
             VectorE& e, MatrixVT& vt, MatrixU& u, MatrixC& c, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n,
@@ -135,14 +135,14 @@
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixVT,
             typename MatrixU, typename MatrixC >
- static void invoke( char const uplo, integer_t const n, VectorD& d,
+ static void invoke( const char uplo, const integer_t n, VectorD& d,
             VectorE& e, MatrixVT& vt, MatrixU& u, MatrixC& c, integer_t& info,
             optimal_workspace work ) {
         invoke( uplo, n, d, e, vt, u, c, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n, integer_t const ncvt,
- integer_t const nru, integer_t const ncc ) {
+ static integer_t min_size_work( const integer_t n, const integer_t ncvt,
+ const integer_t nru, const integer_t ncc ) {
         if ( ncvt == 0 && nru == 0 && ncc == 0 )
             return 2*n;
         else
@@ -160,7 +160,7 @@
     // user-defined workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixVT,
             typename MatrixU, typename MatrixC, typename RWORK >
- static void invoke( char const uplo, integer_t const n, VectorD& d,
+ static void invoke( const char uplo, const integer_t n, VectorD& d,
             VectorE& e, MatrixVT& vt, MatrixU& u, MatrixC& c, integer_t& info,
             detail::workspace1< RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -194,7 +194,7 @@
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixVT,
             typename MatrixU, typename MatrixC >
- static void invoke( char const uplo, integer_t const n, VectorD& d,
+ static void invoke( const char uplo, const integer_t n, VectorD& d,
             VectorE& e, MatrixVT& vt, MatrixU& u, MatrixC& c, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n,
@@ -206,14 +206,14 @@
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixVT,
             typename MatrixU, typename MatrixC >
- static void invoke( char const uplo, integer_t const n, VectorD& d,
+ static void invoke( const char uplo, const integer_t n, VectorD& d,
             VectorE& e, MatrixVT& vt, MatrixU& u, MatrixC& c, integer_t& info,
             optimal_workspace work ) {
         invoke( uplo, n, d, e, vt, u, c, info, minimal_workspace() );
     }
 
- static integer_t min_size_rwork( integer_t const n, integer_t const ncvt,
- integer_t const nru, integer_t const ncc ) {
+ static integer_t min_size_rwork( const integer_t n, const integer_t ncvt,
+ const integer_t nru, const integer_t ncc ) {
         if ( ncvt == 0 && nru == 0 && ncc == 0 )
             return 2*n;
         else
@@ -225,7 +225,7 @@
 // template function to call bdsqr
 template< typename VectorD, typename VectorE, typename MatrixVT,
         typename MatrixU, typename MatrixC, typename Workspace >
-inline integer_t bdsqr( char const uplo, integer_t const n, VectorD& d,
+inline integer_t bdsqr( const char uplo, const integer_t n, VectorD& d,
         VectorE& e, MatrixVT& vt, MatrixU& u, MatrixC& c, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixVT >::value_type value_type;
     integer_t info(0);
@@ -237,7 +237,7 @@
 // template function to call bdsqr, default workspace type
 template< typename VectorD, typename VectorE, typename MatrixVT,
         typename MatrixU, typename MatrixC >
-inline integer_t bdsqr( char const uplo, integer_t const n, VectorD& d,
+inline integer_t bdsqr( const char uplo, const integer_t n, VectorD& d,
         VectorE& e, MatrixVT& vt, MatrixU& u, MatrixC& c ) {
     typedef typename traits::matrix_traits< MatrixVT >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbbrd.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbbrd.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbbrd.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,38 +36,38 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gbbrd( char const vect, integer_t const m, integer_t const n,
- integer_t const ncc, integer_t const kl, integer_t const ku,
- float* ab, integer_t const ldab, float* d, float* e, float* q,
- integer_t const ldq, float* pt, integer_t const ldpt, float* c,
- integer_t const ldc, float* work, integer_t& info ) {
+ inline void gbbrd( const char vect, const integer_t m, const integer_t n,
+ const integer_t ncc, const integer_t kl, const integer_t ku,
+ float* ab, const integer_t ldab, float* d, float* e, float* q,
+ const integer_t ldq, float* pt, const integer_t ldpt, float* c,
+ const integer_t ldc, float* work, integer_t& info ) {
         LAPACK_SGBBRD( &vect, &m, &n, &ncc, &kl, &ku, ab, &ldab, d, e, q,
                 &ldq, pt, &ldpt, c, &ldc, work, &info );
     }
- inline void gbbrd( char const vect, integer_t const m, integer_t const n,
- integer_t const ncc, integer_t const kl, integer_t const ku,
- double* ab, integer_t const ldab, double* d, double* e, double* q,
- integer_t const ldq, double* pt, integer_t const ldpt, double* c,
- integer_t const ldc, double* work, integer_t& info ) {
+ inline void gbbrd( const char vect, const integer_t m, const integer_t n,
+ const integer_t ncc, const integer_t kl, const integer_t ku,
+ double* ab, const integer_t ldab, double* d, double* e, double* q,
+ const integer_t ldq, double* pt, const integer_t ldpt, double* c,
+ const integer_t ldc, double* work, integer_t& info ) {
         LAPACK_DGBBRD( &vect, &m, &n, &ncc, &kl, &ku, ab, &ldab, d, e, q,
                 &ldq, pt, &ldpt, c, &ldc, work, &info );
     }
- inline void gbbrd( char const vect, integer_t const m, integer_t const n,
- integer_t const ncc, integer_t const kl, integer_t const ku,
- traits::complex_f* ab, integer_t const ldab, float* d, float* e,
- traits::complex_f* q, integer_t const ldq, traits::complex_f* pt,
- integer_t const ldpt, traits::complex_f* c, integer_t const ldc,
+ inline void gbbrd( const char vect, const integer_t m, const integer_t n,
+ const integer_t ncc, const integer_t kl, const integer_t ku,
+ traits::complex_f* ab, const integer_t ldab, float* d, float* e,
+ traits::complex_f* q, const integer_t ldq, traits::complex_f* pt,
+ const integer_t ldpt, traits::complex_f* c, const integer_t ldc,
             traits::complex_f* work, float* rwork, integer_t& info ) {
         LAPACK_CGBBRD( &vect, &m, &n, &ncc, &kl, &ku, traits::complex_ptr(ab),
                 &ldab, d, e, traits::complex_ptr(q), &ldq,
                 traits::complex_ptr(pt), &ldpt, traits::complex_ptr(c), &ldc,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void gbbrd( char const vect, integer_t const m, integer_t const n,
- integer_t const ncc, integer_t const kl, integer_t const ku,
- traits::complex_d* ab, integer_t const ldab, double* d, double* e,
- traits::complex_d* q, integer_t const ldq, traits::complex_d* pt,
- integer_t const ldpt, traits::complex_d* c, integer_t const ldc,
+ inline void gbbrd( const char vect, const integer_t m, const integer_t n,
+ const integer_t ncc, const integer_t kl, const integer_t ku,
+ traits::complex_d* ab, const integer_t ldab, double* d, double* e,
+ traits::complex_d* q, const integer_t ldq, traits::complex_d* pt,
+ const integer_t ldpt, traits::complex_d* c, const integer_t ldc,
             traits::complex_d* work, double* rwork, integer_t& info ) {
         LAPACK_ZGBBRD( &vect, &m, &n, &ncc, &kl, &ku, traits::complex_ptr(ab),
                 &ldab, d, e, traits::complex_ptr(q), &ldq,
@@ -91,8 +91,8 @@
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ, typename MatrixPT, typename MatrixC,
             typename WORK >
- static void invoke( char const vect, integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, VectorD& d,
+ static void invoke( const char vect, const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, MatrixAB& ab, VectorD& d,
             VectorE& e, MatrixQ& q, MatrixPT& pt, MatrixC& c, integer_t& info,
             detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
@@ -134,8 +134,8 @@
     // minimal workspace specialization
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ, typename MatrixPT, typename MatrixC >
- static void invoke( char const vect, integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, VectorD& d,
+ static void invoke( const char vect, const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, MatrixAB& ab, VectorD& d,
             VectorE& e, MatrixQ& q, MatrixPT& pt, MatrixC& c, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( m, n ) );
@@ -146,15 +146,15 @@
     // optimal workspace specialization
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ, typename MatrixPT, typename MatrixC >
- static void invoke( char const vect, integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, VectorD& d,
+ static void invoke( const char vect, const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, MatrixAB& ab, VectorD& d,
             VectorE& e, MatrixQ& q, MatrixPT& pt, MatrixC& c, integer_t& info,
             optimal_workspace work ) {
         invoke( vect, m, n, kl, ku, ab, d, e, q, pt, c, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const m, integer_t const n ) {
+ static integer_t min_size_work( const integer_t m, const integer_t n ) {
         return 2*std::max(m,n);
     }
 };
@@ -170,8 +170,8 @@
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ, typename MatrixPT, typename MatrixC,
             typename WORK, typename RWORK >
- static void invoke( char const vect, integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, VectorD& d,
+ static void invoke( const char vect, const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, MatrixAB& ab, VectorD& d,
             VectorE& e, MatrixQ& q, MatrixPT& pt, MatrixC& c, integer_t& info,
             detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -213,8 +213,8 @@
     // minimal workspace specialization
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ, typename MatrixPT, typename MatrixC >
- static void invoke( char const vect, integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, VectorD& d,
+ static void invoke( const char vect, const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, MatrixAB& ab, VectorD& d,
             VectorE& e, MatrixQ& q, MatrixPT& pt, MatrixC& c, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( m, n ) );
@@ -226,19 +226,19 @@
     // optimal workspace specialization
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ, typename MatrixPT, typename MatrixC >
- static void invoke( char const vect, integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, VectorD& d,
+ static void invoke( const char vect, const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, MatrixAB& ab, VectorD& d,
             VectorE& e, MatrixQ& q, MatrixPT& pt, MatrixC& c, integer_t& info,
             optimal_workspace work ) {
         invoke( vect, m, n, kl, ku, ab, d, e, q, pt, c, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const m, integer_t const n ) {
+ static integer_t min_size_work( const integer_t m, const integer_t n ) {
         return std::max(m,n);
     }
 
- static integer_t min_size_rwork( integer_t const m, integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t m, const integer_t n ) {
         return std::max(m,n);
     }
 };
@@ -248,8 +248,8 @@
 template< typename MatrixAB, typename VectorD, typename VectorE,
         typename MatrixQ, typename MatrixPT, typename MatrixC,
         typename Workspace >
-inline integer_t gbbrd( char const vect, integer_t const m,
- integer_t const n, integer_t const kl, integer_t const ku,
+inline integer_t gbbrd( const char vect, const integer_t m,
+ const integer_t n, const integer_t kl, const integer_t ku,
         MatrixAB& ab, VectorD& d, VectorE& e, MatrixQ& q, MatrixPT& pt,
         MatrixC& c, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
@@ -262,8 +262,8 @@
 // template function to call gbbrd, default workspace type
 template< typename MatrixAB, typename VectorD, typename VectorE,
         typename MatrixQ, typename MatrixPT, typename MatrixC >
-inline integer_t gbbrd( char const vect, integer_t const m,
- integer_t const n, integer_t const kl, integer_t const ku,
+inline integer_t gbbrd( const char vect, const integer_t m,
+ const integer_t n, const integer_t kl, const integer_t ku,
         MatrixAB& ab, VectorD& d, VectorE& e, MatrixQ& q, MatrixPT& pt,
         MatrixC& c ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbcon.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbcon.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbcon.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,32 +36,34 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gbcon( char const norm, integer_t const n, integer_t const kl,
- integer_t const ku, float* ab, integer_t const ldab,
- integer_t* ipiv, float const anorm, float& rcond, float* work,
- integer_t* iwork, integer_t& info ) {
+ inline void gbcon( const char norm, const integer_t n, const integer_t kl,
+ const integer_t ku, const float* ab, const integer_t ldab,
+ const integer_t* ipiv, const float anorm, float& rcond,
+ float* work, integer_t* iwork, integer_t& info ) {
         LAPACK_SGBCON( &norm, &n, &kl, &ku, ab, &ldab, ipiv, &anorm, &rcond,
                 work, iwork, &info );
     }
- inline void gbcon( char const norm, integer_t const n, integer_t const kl,
- integer_t const ku, double* ab, integer_t const ldab,
- integer_t* ipiv, double const anorm, double& rcond, double* work,
- integer_t* iwork, integer_t& info ) {
+ inline void gbcon( const char norm, const integer_t n, const integer_t kl,
+ const integer_t ku, const double* ab, const integer_t ldab,
+ const integer_t* ipiv, const double anorm, double& rcond,
+ double* work, integer_t* iwork, integer_t& info ) {
         LAPACK_DGBCON( &norm, &n, &kl, &ku, ab, &ldab, ipiv, &anorm, &rcond,
                 work, iwork, &info );
     }
- inline void gbcon( char const norm, integer_t const n, integer_t const kl,
- integer_t const ku, traits::complex_f* ab, integer_t const ldab,
- integer_t* ipiv, float const anorm, float& rcond,
- traits::complex_f* work, float* rwork, integer_t& info ) {
+ inline void gbcon( const char norm, const integer_t n, const integer_t kl,
+ const integer_t ku, const traits::complex_f* ab,
+ const integer_t ldab, const integer_t* ipiv, const float anorm,
+ float& rcond, traits::complex_f* work, float* rwork,
+ integer_t& info ) {
         LAPACK_CGBCON( &norm, &n, &kl, &ku, traits::complex_ptr(ab), &ldab,
                 ipiv, &anorm, &rcond, traits::complex_ptr(work), rwork,
                 &info );
     }
- inline void gbcon( char const norm, integer_t const n, integer_t const kl,
- integer_t const ku, traits::complex_d* ab, integer_t const ldab,
- integer_t* ipiv, double const anorm, double& rcond,
- traits::complex_d* work, double* rwork, integer_t& info ) {
+ inline void gbcon( const char norm, const integer_t n, const integer_t kl,
+ const integer_t ku, const traits::complex_d* ab,
+ const integer_t ldab, const integer_t* ipiv, const double anorm,
+ double& rcond, traits::complex_d* work, double* rwork,
+ integer_t& info ) {
         LAPACK_ZGBCON( &norm, &n, &kl, &ku, traits::complex_ptr(ab), &ldab,
                 ipiv, &anorm, &rcond, traits::complex_ptr(work), rwork,
                 &info );
@@ -82,9 +84,9 @@
     // user-defined workspace specialization
     template< typename MatrixAB, typename VectorIPIV, typename WORK,
             typename IWORK >
- static void invoke( char const norm, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- VectorIPIV& ipiv, real_type const anorm, real_type& rcond,
+ static void invoke( const char norm, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
             integer_t& info, detail::workspace2< WORK, IWORK > work ) {
         BOOST_ASSERT( norm == '1' || norm == 'O' || norm == 'I' );
         BOOST_ASSERT( n >= 0 );
@@ -105,9 +107,9 @@
 
     // minimal workspace specialization
     template< typename MatrixAB, typename VectorIPIV >
- static void invoke( char const norm, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- VectorIPIV& ipiv, real_type const anorm, real_type& rcond,
+ static void invoke( const char norm, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork( n ) );
@@ -117,19 +119,19 @@
 
     // optimal workspace specialization
     template< typename MatrixAB, typename VectorIPIV >
- static void invoke( char const norm, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- VectorIPIV& ipiv, real_type const anorm, real_type& rcond,
+ static void invoke( const char norm, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
             integer_t& info, optimal_workspace work ) {
         invoke( norm, n, kl, ku, ab, ipiv, anorm, rcond, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -144,9 +146,9 @@
     // user-defined workspace specialization
     template< typename MatrixAB, typename VectorIPIV, typename WORK,
             typename RWORK >
- static void invoke( char const norm, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- VectorIPIV& ipiv, real_type const anorm, real_type& rcond,
+ static void invoke( const char norm, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
             integer_t& info, detail::workspace2< WORK, RWORK > work ) {
         BOOST_ASSERT( norm == '1' || norm == 'O' || norm == 'I' );
         BOOST_ASSERT( n >= 0 );
@@ -167,9 +169,9 @@
 
     // minimal workspace specialization
     template< typename MatrixAB, typename VectorIPIV >
- static void invoke( char const norm, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- VectorIPIV& ipiv, real_type const anorm, real_type& rcond,
+ static void invoke( const char norm, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
@@ -179,19 +181,19 @@
 
     // optimal workspace specialization
     template< typename MatrixAB, typename VectorIPIV >
- static void invoke( char const norm, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- VectorIPIV& ipiv, real_type const anorm, real_type& rcond,
+ static void invoke( const char norm, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
             integer_t& info, optimal_workspace work ) {
         invoke( norm, n, kl, ku, ab, ipiv, anorm, rcond, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -199,11 +201,11 @@
 
 // template function to call gbcon
 template< typename MatrixAB, typename VectorIPIV, typename Workspace >
-inline integer_t gbcon( char const norm, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- VectorIPIV& ipiv, typename traits::type_traits<
+inline integer_t gbcon( const char norm, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const VectorIPIV& ipiv, const typename traits::type_traits<
         typename traits::matrix_traits<
- MatrixAB >::value_type >::real_type const anorm,
+ MatrixAB >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixAB >::value_type >::real_type& rcond, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
@@ -215,11 +217,11 @@
 
 // template function to call gbcon, default workspace type
 template< typename MatrixAB, typename VectorIPIV >
-inline integer_t gbcon( char const norm, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- VectorIPIV& ipiv, typename traits::type_traits<
+inline integer_t gbcon( const char norm, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const VectorIPIV& ipiv, const typename traits::type_traits<
         typename traits::matrix_traits<
- MatrixAB >::value_type >::real_type const anorm,
+ MatrixAB >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixAB >::value_type >::real_type& rcond ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbequ.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbequ.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbequ.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,31 +34,33 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gbequ( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, float* ab,
- integer_t const ldab, float* r, float* c, float& rowcnd,
+ inline void gbequ( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, const float* ab,
+ const integer_t ldab, float* r, float* c, float& rowcnd,
             float& colcnd, float& amax, integer_t& info ) {
         LAPACK_SGBEQU( &m, &n, &kl, &ku, ab, &ldab, r, c, &rowcnd, &colcnd,
                 &amax, &info );
     }
- inline void gbequ( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, double* ab,
- integer_t const ldab, double* r, double* c, double& rowcnd,
+ inline void gbequ( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, const double* ab,
+ const integer_t ldab, double* r, double* c, double& rowcnd,
             double& colcnd, double& amax, integer_t& info ) {
         LAPACK_DGBEQU( &m, &n, &kl, &ku, ab, &ldab, r, c, &rowcnd, &colcnd,
                 &amax, &info );
     }
- inline void gbequ( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, traits::complex_f* ab,
- integer_t const ldab, float* r, float* c, float& rowcnd,
- float& colcnd, float& amax, integer_t& info ) {
+ inline void gbequ( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku,
+ const traits::complex_f* ab, const integer_t ldab, float* r,
+ float* c, float& rowcnd, float& colcnd, float& amax,
+ integer_t& info ) {
         LAPACK_CGBEQU( &m, &n, &kl, &ku, traits::complex_ptr(ab), &ldab, r, c,
                 &rowcnd, &colcnd, &amax, &info );
     }
- inline void gbequ( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, traits::complex_d* ab,
- integer_t const ldab, double* r, double* c, double& rowcnd,
- double& colcnd, double& amax, integer_t& info ) {
+ inline void gbequ( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku,
+ const traits::complex_d* ab, const integer_t ldab, double* r,
+ double* c, double& rowcnd, double& colcnd, double& amax,
+ integer_t& info ) {
         LAPACK_ZGBEQU( &m, &n, &kl, &ku, traits::complex_ptr(ab), &ldab, r, c,
                 &rowcnd, &colcnd, &amax, &info );
     }
@@ -77,10 +79,10 @@
 
     // templated specialization
     template< typename MatrixAB, typename VectorR, typename VectorC >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, VectorR& r,
- VectorC& c, real_type& rowcnd, real_type& colcnd, real_type& amax,
- integer_t& info ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ VectorR& r, VectorC& c, real_type& rowcnd, real_type& colcnd,
+ real_type& amax, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::vector_traits<
                 VectorR >::value_type >::value) );
@@ -107,10 +109,10 @@
 
     // templated specialization
     template< typename MatrixAB, typename VectorR, typename VectorC >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, VectorR& r,
- VectorC& c, real_type& rowcnd, real_type& colcnd, real_type& amax,
- integer_t& info ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ VectorR& r, VectorC& c, real_type& rowcnd, real_type& colcnd,
+ real_type& amax, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorR >::value_type, typename traits::vector_traits<
                 VectorC >::value_type >::value) );
@@ -128,9 +130,9 @@
 
 // template function to call gbequ
 template< typename MatrixAB, typename VectorR, typename VectorC >
-inline integer_t gbequ( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, VectorR& r,
- VectorC& c, typename traits::type_traits<
+inline integer_t gbequ( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ VectorR& r, VectorC& c, typename traits::type_traits<
         typename traits::matrix_traits<
         MatrixAB >::value_type >::real_type& rowcnd,
         typename traits::type_traits< typename traits::matrix_traits<

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbrfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbrfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbrfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,43 +36,45 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gbrfs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, integer_t const nrhs,
- float* ab, integer_t const ldab, float* afb,
- integer_t const ldafb, integer_t* ipiv, float* b,
- integer_t const ldb, float* x, integer_t const ldx, float* ferr,
+ inline void gbrfs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const integer_t nrhs,
+ const float* ab, const integer_t ldab, const float* afb,
+ const integer_t ldafb, const integer_t* ipiv, const float* b,
+ const integer_t ldb, float* x, const integer_t ldx, float* ferr,
             float* berr, float* work, integer_t* iwork, integer_t& info ) {
         LAPACK_SGBRFS( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb,
                 ipiv, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info );
     }
- inline void gbrfs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, integer_t const nrhs,
- double* ab, integer_t const ldab, double* afb,
- integer_t const ldafb, integer_t* ipiv, double* b,
- integer_t const ldb, double* x, integer_t const ldx, double* ferr,
+ inline void gbrfs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const integer_t nrhs,
+ const double* ab, const integer_t ldab, const double* afb,
+ const integer_t ldafb, const integer_t* ipiv, const double* b,
+ const integer_t ldb, double* x, const integer_t ldx, double* ferr,
             double* berr, double* work, integer_t* iwork, integer_t& info ) {
         LAPACK_DGBRFS( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb,
                 ipiv, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info );
     }
- inline void gbrfs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, integer_t const nrhs,
- traits::complex_f* ab, integer_t const ldab,
- traits::complex_f* afb, integer_t const ldafb, integer_t* ipiv,
- traits::complex_f* b, integer_t const ldb, traits::complex_f* x,
- integer_t const ldx, float* ferr, float* berr,
- traits::complex_f* work, float* rwork, integer_t& info ) {
+ inline void gbrfs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const integer_t nrhs,
+ const traits::complex_f* ab, const integer_t ldab,
+ const traits::complex_f* afb, const integer_t ldafb,
+ const integer_t* ipiv, const traits::complex_f* b,
+ const integer_t ldb, traits::complex_f* x, const integer_t ldx,
+ float* ferr, float* berr, traits::complex_f* work, float* rwork,
+ integer_t& info ) {
         LAPACK_CGBRFS( &trans, &n, &kl, &ku, &nrhs, traits::complex_ptr(ab),
                 &ldab, traits::complex_ptr(afb), &ldafb, ipiv,
                 traits::complex_ptr(b), &ldb, traits::complex_ptr(x), &ldx,
                 ferr, berr, traits::complex_ptr(work), rwork, &info );
     }
- inline void gbrfs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, integer_t const nrhs,
- traits::complex_d* ab, integer_t const ldab,
- traits::complex_d* afb, integer_t const ldafb, integer_t* ipiv,
- traits::complex_d* b, integer_t const ldb, traits::complex_d* x,
- integer_t const ldx, double* ferr, double* berr,
- traits::complex_d* work, double* rwork, integer_t& info ) {
+ inline void gbrfs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const integer_t nrhs,
+ const traits::complex_d* ab, const integer_t ldab,
+ const traits::complex_d* afb, const integer_t ldafb,
+ const integer_t* ipiv, const traits::complex_d* b,
+ const integer_t ldb, traits::complex_d* x, const integer_t ldx,
+ double* ferr, double* berr, traits::complex_d* work,
+ double* rwork, integer_t& info ) {
         LAPACK_ZGBRFS( &trans, &n, &kl, &ku, &nrhs, traits::complex_ptr(ab),
                 &ldab, traits::complex_ptr(afb), &ldafb, ipiv,
                 traits::complex_ptr(b), &ldb, traits::complex_ptr(x), &ldx,
@@ -95,10 +97,10 @@
     template< typename MatrixAB, typename MatrixAFB, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR, typename WORK, typename IWORK >
- static void invoke( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- MatrixAFB& afb, VectorIPIV& ipiv, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ static void invoke( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const MatrixAFB& afb, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::matrix_traits<
@@ -146,10 +148,10 @@
     template< typename MatrixAB, typename MatrixAFB, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- MatrixAFB& afb, VectorIPIV& ipiv, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ static void invoke( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const MatrixAFB& afb, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork( n ) );
@@ -161,20 +163,20 @@
     template< typename MatrixAB, typename MatrixAFB, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- MatrixAFB& afb, VectorIPIV& ipiv, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ static void invoke( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const MatrixAFB& afb, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             optimal_workspace work ) {
         invoke( trans, n, kl, ku, ab, afb, ipiv, b, x, ferr, berr, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -190,10 +192,10 @@
     template< typename MatrixAB, typename MatrixAFB, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR, typename WORK, typename RWORK >
- static void invoke( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- MatrixAFB& afb, VectorIPIV& ipiv, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ static void invoke( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const MatrixAFB& afb, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorFERR >::value_type, typename traits::vector_traits<
@@ -238,10 +240,10 @@
     template< typename MatrixAB, typename MatrixAFB, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- MatrixAFB& afb, VectorIPIV& ipiv, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ static void invoke( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const MatrixAFB& afb, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
@@ -253,20 +255,20 @@
     template< typename MatrixAB, typename MatrixAFB, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- MatrixAFB& afb, VectorIPIV& ipiv, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ static void invoke( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const MatrixAFB& afb, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             optimal_workspace work ) {
         invoke( trans, n, kl, ku, ab, afb, ipiv, b, x, ferr, berr, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -276,10 +278,10 @@
 template< typename MatrixAB, typename MatrixAFB, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR, typename Workspace >
-inline integer_t gbrfs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, MatrixAFB& afb,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, Workspace work ) {
+inline integer_t gbrfs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const MatrixAFB& afb, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     gbrfs_impl< value_type >::invoke( trans, n, kl, ku, ab, afb, ipiv, b,
@@ -291,10 +293,10 @@
 template< typename MatrixAB, typename MatrixAFB, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR >
-inline integer_t gbrfs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab, MatrixAFB& afb,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr ) {
+inline integer_t gbrfs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const MatrixAFB& afb, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     gbrfs_impl< value_type >::invoke( trans, n, kl, ku, ab, afb, ipiv, b,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbtrf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbtrf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbtrf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,25 +31,25 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gbtrf( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, float* ab,
- integer_t const ldab, integer_t* ipiv, integer_t& info ) {
+ inline void gbtrf( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, float* ab,
+ const integer_t ldab, integer_t* ipiv, integer_t& info ) {
         LAPACK_SGBTRF( &m, &n, &kl, &ku, ab, &ldab, ipiv, &info );
     }
- inline void gbtrf( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, double* ab,
- integer_t const ldab, integer_t* ipiv, integer_t& info ) {
+ inline void gbtrf( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, double* ab,
+ const integer_t ldab, integer_t* ipiv, integer_t& info ) {
         LAPACK_DGBTRF( &m, &n, &kl, &ku, ab, &ldab, ipiv, &info );
     }
- inline void gbtrf( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, traits::complex_f* ab,
- integer_t const ldab, integer_t* ipiv, integer_t& info ) {
+ inline void gbtrf( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, traits::complex_f* ab,
+ const integer_t ldab, integer_t* ipiv, integer_t& info ) {
         LAPACK_CGBTRF( &m, &n, &kl, &ku, traits::complex_ptr(ab), &ldab, ipiv,
                 &info );
     }
- inline void gbtrf( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, traits::complex_d* ab,
- integer_t const ldab, integer_t* ipiv, integer_t& info ) {
+ inline void gbtrf( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, traits::complex_d* ab,
+ const integer_t ldab, integer_t* ipiv, integer_t& info ) {
         LAPACK_ZGBTRF( &m, &n, &kl, &ku, traits::complex_ptr(ab), &ldab, ipiv,
                 &info );
     }
@@ -64,8 +64,8 @@
 
     // templated specialization
     template< typename MatrixAB, typename VectorIPIV >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, MatrixAB& ab,
             VectorIPIV& ipiv, integer_t& info ) {
         BOOST_ASSERT( m >= 0 );
         BOOST_ASSERT( n >= 0 );
@@ -82,8 +82,8 @@
 
 // template function to call gbtrf
 template< typename MatrixAB, typename VectorIPIV >
-inline integer_t gbtrf( integer_t const m, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
+inline integer_t gbtrf( const integer_t m, const integer_t n,
+ const integer_t kl, const integer_t ku, MatrixAB& ab,
         VectorIPIV& ipiv ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbtrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbtrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gbtrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,31 +31,33 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gbtrs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, integer_t const nrhs,
- float* ab, integer_t const ldab, integer_t* ipiv, float* b,
- integer_t const ldb, integer_t& info ) {
+ inline void gbtrs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const integer_t nrhs,
+ const float* ab, const integer_t ldab, const integer_t* ipiv,
+ float* b, const integer_t ldb, integer_t& info ) {
         LAPACK_SGBTRS( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb,
                 &info );
     }
- inline void gbtrs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, integer_t const nrhs,
- double* ab, integer_t const ldab, integer_t* ipiv, double* b,
- integer_t const ldb, integer_t& info ) {
+ inline void gbtrs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const integer_t nrhs,
+ const double* ab, const integer_t ldab, const integer_t* ipiv,
+ double* b, const integer_t ldb, integer_t& info ) {
         LAPACK_DGBTRS( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb,
                 &info );
     }
- inline void gbtrs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, integer_t const nrhs,
- traits::complex_f* ab, integer_t const ldab, integer_t* ipiv,
- traits::complex_f* b, integer_t const ldb, integer_t& info ) {
+ inline void gbtrs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const integer_t nrhs,
+ const traits::complex_f* ab, const integer_t ldab,
+ const integer_t* ipiv, traits::complex_f* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_CGBTRS( &trans, &n, &kl, &ku, &nrhs, traits::complex_ptr(ab),
                 &ldab, ipiv, traits::complex_ptr(b), &ldb, &info );
     }
- inline void gbtrs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, integer_t const nrhs,
- traits::complex_d* ab, integer_t const ldab, integer_t* ipiv,
- traits::complex_d* b, integer_t const ldb, integer_t& info ) {
+ inline void gbtrs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const integer_t nrhs,
+ const traits::complex_d* ab, const integer_t ldab,
+ const integer_t* ipiv, traits::complex_d* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_ZGBTRS( &trans, &n, &kl, &ku, &nrhs, traits::complex_ptr(ab),
                 &ldab, ipiv, traits::complex_ptr(b), &ldb, &info );
     }
@@ -70,9 +72,9 @@
 
     // templated specialization
     template< typename MatrixAB, typename VectorIPIV, typename MatrixB >
- static void invoke( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- VectorIPIV& ipiv, MatrixB& b, integer_t& info ) {
+ static void invoke( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const VectorIPIV& ipiv, MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -94,9 +96,9 @@
 
 // template function to call gbtrs
 template< typename MatrixAB, typename VectorIPIV, typename MatrixB >
-inline integer_t gbtrs( char const trans, integer_t const n,
- integer_t const kl, integer_t const ku, MatrixAB& ab,
- VectorIPIV& ipiv, MatrixB& b ) {
+inline integer_t gbtrs( const char trans, const integer_t n,
+ const integer_t kl, const integer_t ku, const MatrixAB& ab,
+ const VectorIPIV& ipiv, MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     gbtrs_impl< value_type >::invoke( trans, n, kl, ku, ab, ipiv, b,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebak.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebak.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebak.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,30 +34,30 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gebak( char const job, char const side, integer_t const n,
- integer_t const ilo, integer_t const ihi, float* scale,
- integer_t const m, float* v, integer_t const ldv,
+ inline void gebak( const char job, const char side, const integer_t n,
+ const integer_t ilo, const integer_t ihi, const float* scale,
+ const integer_t m, float* v, const integer_t ldv,
             integer_t& info ) {
         LAPACK_SGEBAK( &job, &side, &n, &ilo, &ihi, scale, &m, v, &ldv,
                 &info );
     }
- inline void gebak( char const job, char const side, integer_t const n,
- integer_t const ilo, integer_t const ihi, double* scale,
- integer_t const m, double* v, integer_t const ldv,
+ inline void gebak( const char job, const char side, const integer_t n,
+ const integer_t ilo, const integer_t ihi, const double* scale,
+ const integer_t m, double* v, const integer_t ldv,
             integer_t& info ) {
         LAPACK_DGEBAK( &job, &side, &n, &ilo, &ihi, scale, &m, v, &ldv,
                 &info );
     }
- inline void gebak( char const job, char const side, integer_t const n,
- integer_t const ilo, integer_t const ihi, float* scale,
- integer_t const m, traits::complex_f* v, integer_t const ldv,
+ inline void gebak( const char job, const char side, const integer_t n,
+ const integer_t ilo, const integer_t ihi, const float* scale,
+ const integer_t m, traits::complex_f* v, const integer_t ldv,
             integer_t& info ) {
         LAPACK_CGEBAK( &job, &side, &n, &ilo, &ihi, scale, &m,
                 traits::complex_ptr(v), &ldv, &info );
     }
- inline void gebak( char const job, char const side, integer_t const n,
- integer_t const ilo, integer_t const ihi, double* scale,
- integer_t const m, traits::complex_d* v, integer_t const ldv,
+ inline void gebak( const char job, const char side, const integer_t n,
+ const integer_t ilo, const integer_t ihi, const double* scale,
+ const integer_t m, traits::complex_d* v, const integer_t ldv,
             integer_t& info ) {
         LAPACK_ZGEBAK( &job, &side, &n, &ilo, &ihi, scale, &m,
                 traits::complex_ptr(v), &ldv, &info );
@@ -77,8 +77,8 @@
 
     // templated specialization
     template< typename VectorSCALE, typename MatrixV >
- static void invoke( char const job, char const side, integer_t const ilo,
- integer_t const ihi, VectorSCALE& scale, MatrixV& v,
+ static void invoke( const char job, const char side, const integer_t ilo,
+ const integer_t ihi, const VectorSCALE& scale, MatrixV& v,
             integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorSCALE >::value_type, typename traits::matrix_traits<
@@ -107,8 +107,8 @@
 
     // templated specialization
     template< typename VectorSCALE, typename MatrixV >
- static void invoke( char const job, char const side, integer_t const ilo,
- integer_t const ihi, VectorSCALE& scale, MatrixV& v,
+ static void invoke( const char job, const char side, const integer_t ilo,
+ const integer_t ihi, const VectorSCALE& scale, MatrixV& v,
             integer_t& info ) {
         BOOST_ASSERT( job == 'N' || job == 'P' || job == 'S' || job == 'B' );
         BOOST_ASSERT( side == 'R' || side == 'L' );
@@ -128,8 +128,8 @@
 
 // template function to call gebak
 template< typename VectorSCALE, typename MatrixV >
-inline integer_t gebak( char const job, char const side,
- integer_t const ilo, integer_t const ihi, VectorSCALE& scale,
+inline integer_t gebak( const char job, const char side,
+ const integer_t ilo, const integer_t ihi, const VectorSCALE& scale,
         MatrixV& v ) {
     typedef typename traits::matrix_traits< MatrixV >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebal.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebal.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebal.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,24 +34,24 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gebal( char const job, integer_t const n, float* a,
- integer_t const lda, integer_t& ilo, integer_t& ihi, float* scale,
+ inline void gebal( const char job, const integer_t n, float* a,
+ const integer_t lda, integer_t& ilo, integer_t& ihi, float* scale,
             integer_t& info ) {
         LAPACK_SGEBAL( &job, &n, a, &lda, &ilo, &ihi, scale, &info );
     }
- inline void gebal( char const job, integer_t const n, double* a,
- integer_t const lda, integer_t& ilo, integer_t& ihi,
+ inline void gebal( const char job, const integer_t n, double* a,
+ const integer_t lda, integer_t& ilo, integer_t& ihi,
             double* scale, integer_t& info ) {
         LAPACK_DGEBAL( &job, &n, a, &lda, &ilo, &ihi, scale, &info );
     }
- inline void gebal( char const job, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t& ilo,
+ inline void gebal( const char job, const integer_t n,
+ traits::complex_f* a, const integer_t lda, integer_t& ilo,
             integer_t& ihi, float* scale, integer_t& info ) {
         LAPACK_CGEBAL( &job, &n, traits::complex_ptr(a), &lda, &ilo, &ihi,
                 scale, &info );
     }
- inline void gebal( char const job, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t& ilo,
+ inline void gebal( const char job, const integer_t n,
+ traits::complex_d* a, const integer_t lda, integer_t& ilo,
             integer_t& ihi, double* scale, integer_t& info ) {
         LAPACK_ZGEBAL( &job, &n, traits::complex_ptr(a), &lda, &ilo, &ihi,
                 scale, &info );
@@ -71,7 +71,7 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorSCALE >
- static void invoke( char const job, MatrixA& a, integer_t& ilo,
+ static void invoke( const char job, MatrixA& a, integer_t& ilo,
             integer_t& ihi, VectorSCALE& scale, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
@@ -95,7 +95,7 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorSCALE >
- static void invoke( char const job, MatrixA& a, integer_t& ilo,
+ static void invoke( const char job, MatrixA& a, integer_t& ilo,
             integer_t& ihi, VectorSCALE& scale, integer_t& info ) {
         BOOST_ASSERT( job == 'N' || job == 'P' || job == 'S' || job == 'B' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
@@ -110,7 +110,7 @@
 
 // template function to call gebal
 template< typename MatrixA, typename VectorSCALE >
-inline integer_t gebal( char const job, MatrixA& a, integer_t& ilo,
+inline integer_t gebal( const char job, MatrixA& a, integer_t& ilo,
         integer_t& ihi, VectorSCALE& scale ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebrd.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebrd.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gebrd.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,31 +37,31 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gebrd( integer_t const m, integer_t const n, float* a,
- integer_t const lda, float* d, float* e, float* tauq, float* taup,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void gebrd( const integer_t m, const integer_t n, float* a,
+ const integer_t lda, float* d, float* e, float* tauq, float* taup,
+ float* work, const integer_t lwork, integer_t& info ) {
         LAPACK_SGEBRD( &m, &n, a, &lda, d, e, tauq, taup, work, &lwork,
                 &info );
     }
- inline void gebrd( integer_t const m, integer_t const n, double* a,
- integer_t const lda, double* d, double* e, double* tauq,
- double* taup, double* work, integer_t const lwork,
+ inline void gebrd( const integer_t m, const integer_t n, double* a,
+ const integer_t lda, double* d, double* e, double* tauq,
+ double* taup, double* work, const integer_t lwork,
             integer_t& info ) {
         LAPACK_DGEBRD( &m, &n, a, &lda, d, e, tauq, taup, work, &lwork,
                 &info );
     }
- inline void gebrd( integer_t const m, integer_t const n,
- traits::complex_f* a, integer_t const lda, float* d, float* e,
+ inline void gebrd( const integer_t m, const integer_t n,
+ traits::complex_f* a, const integer_t lda, float* d, float* e,
             traits::complex_f* tauq, traits::complex_f* taup,
- traits::complex_f* work, integer_t const lwork, integer_t& info ) {
+ traits::complex_f* work, const integer_t lwork, integer_t& info ) {
         LAPACK_CGEBRD( &m, &n, traits::complex_ptr(a), &lda, d, e,
                 traits::complex_ptr(tauq), traits::complex_ptr(taup),
                 traits::complex_ptr(work), &lwork, &info );
     }
- inline void gebrd( integer_t const m, integer_t const n,
- traits::complex_d* a, integer_t const lda, double* d, double* e,
+ inline void gebrd( const integer_t m, const integer_t n,
+ traits::complex_d* a, const integer_t lda, double* d, double* e,
             traits::complex_d* tauq, traits::complex_d* taup,
- traits::complex_d* work, integer_t const lwork, integer_t& info ) {
+ traits::complex_d* work, const integer_t lwork, integer_t& info ) {
         LAPACK_ZGEBRD( &m, &n, traits::complex_ptr(a), &lda, d, e,
                 traits::complex_ptr(tauq), traits::complex_ptr(taup),
                 traits::complex_ptr(work), &lwork, &info );
@@ -148,7 +148,7 @@
         invoke( a, d, e, tauq, taup, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const m, integer_t const n ) {
+ static integer_t min_size_work( const integer_t m, const integer_t n ) {
         return std::max( 1, std::max( m, n ) );
     }
 };
@@ -226,7 +226,7 @@
         invoke( a, d, e, tauq, taup, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const m, integer_t const n ) {
+ static integer_t min_size_work( const integer_t m, const integer_t n ) {
         return std::max( 1, std::max( m, n ) );
     }
 };

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gecon.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gecon.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gecon.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,29 +36,29 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gecon( char const norm, integer_t const n, float* a,
- integer_t const lda, float const anorm, float& rcond, float* work,
+ inline void gecon( const char norm, const integer_t n, const float* a,
+ const integer_t lda, const float anorm, float& rcond, float* work,
             integer_t* iwork, integer_t& info ) {
         LAPACK_SGECON( &norm, &n, a, &lda, &anorm, &rcond, work, iwork,
                 &info );
     }
- inline void gecon( char const norm, integer_t const n, double* a,
- integer_t const lda, double const anorm, double& rcond,
+ inline void gecon( const char norm, const integer_t n, const double* a,
+ const integer_t lda, const double anorm, double& rcond,
             double* work, integer_t* iwork, integer_t& info ) {
         LAPACK_DGECON( &norm, &n, a, &lda, &anorm, &rcond, work, iwork,
                 &info );
     }
- inline void gecon( char const norm, integer_t const n,
- traits::complex_f* a, integer_t const lda, float const anorm,
- float& rcond, traits::complex_f* work, float* rwork,
- integer_t& info ) {
+ inline void gecon( const char norm, const integer_t n,
+ const traits::complex_f* a, const integer_t lda,
+ const float anorm, float& rcond, traits::complex_f* work,
+ float* rwork, integer_t& info ) {
         LAPACK_CGECON( &norm, &n, traits::complex_ptr(a), &lda, &anorm,
                 &rcond, traits::complex_ptr(work), rwork, &info );
     }
- inline void gecon( char const norm, integer_t const n,
- traits::complex_d* a, integer_t const lda, double const anorm,
- double& rcond, traits::complex_d* work, double* rwork,
- integer_t& info ) {
+ inline void gecon( const char norm, const integer_t n,
+ const traits::complex_d* a, const integer_t lda,
+ const double anorm, double& rcond, traits::complex_d* work,
+ double* rwork, integer_t& info ) {
         LAPACK_ZGECON( &norm, &n, traits::complex_ptr(a), &lda, &anorm,
                 &rcond, traits::complex_ptr(work), rwork, &info );
     }
@@ -77,9 +77,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename WORK, typename IWORK >
- static void invoke( char const norm, MatrixA& a, real_type const anorm,
- real_type& rcond, integer_t& info, detail::workspace2< WORK,
- IWORK > work ) {
+ static void invoke( const char norm, const MatrixA& a,
+ const real_type anorm, real_type& rcond, integer_t& info,
+ detail::workspace2< WORK, IWORK > work ) {
         BOOST_ASSERT( norm == '1' || norm == 'O' || norm == 'I' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
         BOOST_ASSERT( traits::leading_dimension(a) >= std::max(1,
@@ -97,8 +97,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA >
- static void invoke( char const norm, MatrixA& a, real_type const anorm,
- real_type& rcond, integer_t& info, minimal_workspace work ) {
+ static void invoke( const char norm, const MatrixA& a,
+ const real_type anorm, real_type& rcond, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork(
@@ -109,16 +110,17 @@
 
     // optimal workspace specialization
     template< typename MatrixA >
- static void invoke( char const norm, MatrixA& a, real_type const anorm,
- real_type& rcond, integer_t& info, optimal_workspace work ) {
+ static void invoke( const char norm, const MatrixA& a,
+ const real_type anorm, real_type& rcond, integer_t& info,
+ optimal_workspace work ) {
         invoke( norm, a, anorm, rcond, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 4*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -132,9 +134,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename WORK, typename RWORK >
- static void invoke( char const norm, MatrixA& a, real_type const anorm,
- real_type& rcond, integer_t& info, detail::workspace2< WORK,
- RWORK > work ) {
+ static void invoke( const char norm, const MatrixA& a,
+ const real_type anorm, real_type& rcond, integer_t& info,
+ detail::workspace2< WORK, RWORK > work ) {
         BOOST_ASSERT( norm == '1' || norm == 'O' || norm == 'I' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
         BOOST_ASSERT( traits::leading_dimension(a) >= std::max(1,
@@ -152,8 +154,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA >
- static void invoke( char const norm, MatrixA& a, real_type const anorm,
- real_type& rcond, integer_t& info, minimal_workspace work ) {
+ static void invoke( const char norm, const MatrixA& a,
+ const real_type anorm, real_type& rcond, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork(
@@ -164,16 +167,17 @@
 
     // optimal workspace specialization
     template< typename MatrixA >
- static void invoke( char const norm, MatrixA& a, real_type const anorm,
- real_type& rcond, integer_t& info, optimal_workspace work ) {
+ static void invoke( const char norm, const MatrixA& a,
+ const real_type anorm, real_type& rcond, integer_t& info,
+ optimal_workspace work ) {
         invoke( norm, a, anorm, rcond, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return 2*n;
     }
 };
@@ -181,9 +185,9 @@
 
 // template function to call gecon
 template< typename MatrixA, typename Workspace >
-inline integer_t gecon( char const norm, MatrixA& a,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const anorm,
+inline integer_t gecon( const char norm, const MatrixA& a,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& rcond, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
@@ -194,9 +198,9 @@
 
 // template function to call gecon, default workspace type
 template< typename MatrixA >
-inline integer_t gecon( char const norm, MatrixA& a,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const anorm,
+inline integer_t gecon( const char norm, const MatrixA& a,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& rcond ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geequ.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geequ.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geequ.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,25 +34,27 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void geequ( integer_t const m, integer_t const n, float* a,
- integer_t const lda, float* r, float* c, float& rowcnd,
+ inline void geequ( const integer_t m, const integer_t n, const float* a,
+ const integer_t lda, float* r, float* c, float& rowcnd,
             float& colcnd, float& amax, integer_t& info ) {
         LAPACK_SGEEQU( &m, &n, a, &lda, r, c, &rowcnd, &colcnd, &amax, &info );
     }
- inline void geequ( integer_t const m, integer_t const n, double* a,
- integer_t const lda, double* r, double* c, double& rowcnd,
+ inline void geequ( const integer_t m, const integer_t n, const double* a,
+ const integer_t lda, double* r, double* c, double& rowcnd,
             double& colcnd, double& amax, integer_t& info ) {
         LAPACK_DGEEQU( &m, &n, a, &lda, r, c, &rowcnd, &colcnd, &amax, &info );
     }
- inline void geequ( integer_t const m, integer_t const n,
- traits::complex_f* a, integer_t const lda, float* r, float* c,
- float& rowcnd, float& colcnd, float& amax, integer_t& info ) {
+ inline void geequ( const integer_t m, const integer_t n,
+ const traits::complex_f* a, const integer_t lda, float* r,
+ float* c, float& rowcnd, float& colcnd, float& amax,
+ integer_t& info ) {
         LAPACK_CGEEQU( &m, &n, traits::complex_ptr(a), &lda, r, c, &rowcnd,
                 &colcnd, &amax, &info );
     }
- inline void geequ( integer_t const m, integer_t const n,
- traits::complex_d* a, integer_t const lda, double* r, double* c,
- double& rowcnd, double& colcnd, double& amax, integer_t& info ) {
+ inline void geequ( const integer_t m, const integer_t n,
+ const traits::complex_d* a, const integer_t lda, double* r,
+ double* c, double& rowcnd, double& colcnd, double& amax,
+ integer_t& info ) {
         LAPACK_ZGEEQU( &m, &n, traits::complex_ptr(a), &lda, r, c, &rowcnd,
                 &colcnd, &amax, &info );
     }
@@ -71,8 +73,9 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorR, typename VectorC >
- static void invoke( MatrixA& a, VectorR& r, VectorC& c, real_type& rowcnd,
- real_type& colcnd, real_type& amax, integer_t& info ) {
+ static void invoke( const MatrixA& a, VectorR& r, VectorC& c,
+ real_type& rowcnd, real_type& colcnd, real_type& amax,
+ integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorR >::value_type >::value) );
@@ -99,8 +102,9 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorR, typename VectorC >
- static void invoke( MatrixA& a, VectorR& r, VectorC& c, real_type& rowcnd,
- real_type& colcnd, real_type& amax, integer_t& info ) {
+ static void invoke( const MatrixA& a, VectorR& r, VectorC& c,
+ real_type& rowcnd, real_type& colcnd, real_type& amax,
+ integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorR >::value_type, typename traits::vector_traits<
                 VectorC >::value_type >::value) );
@@ -118,7 +122,7 @@
 
 // template function to call geequ
 template< typename MatrixA, typename VectorR, typename VectorC >
-inline integer_t geequ( MatrixA& a, VectorR& r, VectorC& c,
+inline integer_t geequ( const MatrixA& a, VectorR& r, VectorC& c,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& rowcnd,
         typename traits::type_traits< typename traits::matrix_traits<

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gehrd.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gehrd.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gehrd.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,28 +37,28 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gehrd( integer_t const n, integer_t const ilo,
- integer_t const ihi, float* a, integer_t const lda, float* tau,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void gehrd( const integer_t n, const integer_t ilo,
+ const integer_t ihi, float* a, const integer_t lda, float* tau,
+ float* work, const integer_t lwork, integer_t& info ) {
         LAPACK_SGEHRD( &n, &ilo, &ihi, a, &lda, tau, work, &lwork, &info );
     }
- inline void gehrd( integer_t const n, integer_t const ilo,
- integer_t const ihi, double* a, integer_t const lda, double* tau,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void gehrd( const integer_t n, const integer_t ilo,
+ const integer_t ihi, double* a, const integer_t lda, double* tau,
+ double* work, const integer_t lwork, integer_t& info ) {
         LAPACK_DGEHRD( &n, &ilo, &ihi, a, &lda, tau, work, &lwork, &info );
     }
- inline void gehrd( integer_t const n, integer_t const ilo,
- integer_t const ihi, traits::complex_f* a, integer_t const lda,
+ inline void gehrd( const integer_t n, const integer_t ilo,
+ const integer_t ihi, traits::complex_f* a, const integer_t lda,
             traits::complex_f* tau, traits::complex_f* work,
- integer_t const lwork, integer_t& info ) {
+ const integer_t lwork, integer_t& info ) {
         LAPACK_CGEHRD( &n, &ilo, &ihi, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );
     }
- inline void gehrd( integer_t const n, integer_t const ilo,
- integer_t const ihi, traits::complex_d* a, integer_t const lda,
+ inline void gehrd( const integer_t n, const integer_t ilo,
+ const integer_t ihi, traits::complex_d* a, const integer_t lda,
             traits::complex_d* tau, traits::complex_d* work,
- integer_t const lwork, integer_t& info ) {
+ const integer_t lwork, integer_t& info ) {
         LAPACK_ZGEHRD( &n, &ilo, &ihi, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );
@@ -78,7 +78,7 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename WORK >
- static void invoke( integer_t const ilo, integer_t const ihi, MatrixA& a,
+ static void invoke( const integer_t ilo, const integer_t ihi, MatrixA& a,
             VectorTAU& tau, integer_t& info, detail::workspace1<
             WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
@@ -100,7 +100,7 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const ilo, integer_t const ihi, MatrixA& a,
+ static void invoke( const integer_t ilo, const integer_t ihi, MatrixA& a,
             VectorTAU& tau, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
@@ -109,7 +109,7 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const ilo, integer_t const ihi, MatrixA& a,
+ static void invoke( const integer_t ilo, const integer_t ihi, MatrixA& a,
             VectorTAU& tau, integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::gehrd( traits::matrix_num_columns(a), ilo, ihi,
@@ -134,7 +134,7 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename WORK >
- static void invoke( integer_t const ilo, integer_t const ihi, MatrixA& a,
+ static void invoke( const integer_t ilo, const integer_t ihi, MatrixA& a,
             VectorTAU& tau, integer_t& info, detail::workspace1<
             WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
@@ -156,7 +156,7 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const ilo, integer_t const ihi, MatrixA& a,
+ static void invoke( const integer_t ilo, const integer_t ihi, MatrixA& a,
             VectorTAU& tau, integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
@@ -165,7 +165,7 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const ilo, integer_t const ihi, MatrixA& a,
+ static void invoke( const integer_t ilo, const integer_t ihi, MatrixA& a,
             VectorTAU& tau, integer_t& info, optimal_workspace work ) {
         value_type opt_size_work;
         detail::gehrd( traits::matrix_num_columns(a), ilo, ihi,
@@ -184,7 +184,7 @@
 
 // template function to call gehrd
 template< typename MatrixA, typename VectorTAU, typename Workspace >
-inline integer_t gehrd( integer_t const ilo, integer_t const ihi,
+inline integer_t gehrd( const integer_t ilo, const integer_t ihi,
         MatrixA& a, VectorTAU& tau, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
@@ -194,7 +194,7 @@
 
 // template function to call gehrd, default workspace type
 template< typename MatrixA, typename VectorTAU >
-inline integer_t gehrd( integer_t const ilo, integer_t const ihi,
+inline integer_t gehrd( const integer_t ilo, const integer_t ihi,
         MatrixA& a, VectorTAU& tau ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gelqf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gelqf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gelqf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,26 +37,26 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gelqf( integer_t const m, integer_t const n, float* a,
- integer_t const lda, float* tau, float* work,
- integer_t const lwork, integer_t& info ) {
+ inline void gelqf( const integer_t m, const integer_t n, float* a,
+ const integer_t lda, float* tau, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SGELQF( &m, &n, a, &lda, tau, work, &lwork, &info );
     }
- inline void gelqf( integer_t const m, integer_t const n, double* a,
- integer_t const lda, double* tau, double* work,
- integer_t const lwork, integer_t& info ) {
+ inline void gelqf( const integer_t m, const integer_t n, double* a,
+ const integer_t lda, double* tau, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DGELQF( &m, &n, a, &lda, tau, work, &lwork, &info );
     }
- inline void gelqf( integer_t const m, integer_t const n,
- traits::complex_f* a, integer_t const lda, traits::complex_f* tau,
- traits::complex_f* work, integer_t const lwork, integer_t& info ) {
+ inline void gelqf( const integer_t m, const integer_t n,
+ traits::complex_f* a, const integer_t lda, traits::complex_f* tau,
+ traits::complex_f* work, const integer_t lwork, integer_t& info ) {
         LAPACK_CGELQF( &m, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );
     }
- inline void gelqf( integer_t const m, integer_t const n,
- traits::complex_d* a, integer_t const lda, traits::complex_d* tau,
- traits::complex_d* work, integer_t const lwork, integer_t& info ) {
+ inline void gelqf( const integer_t m, const integer_t n,
+ traits::complex_d* a, const integer_t lda, traits::complex_d* tau,
+ traits::complex_d* work, const integer_t lwork, integer_t& info ) {
         LAPACK_ZGELQF( &m, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );
@@ -120,7 +120,7 @@
         invoke( a, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const m ) {
+ static integer_t min_size_work( const integer_t m ) {
         return std::max( 1, m );
     }
 };
@@ -178,7 +178,7 @@
         invoke( a, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const m ) {
+ static integer_t min_size_work( const integer_t m ) {
         return std::max( 1, m );
     }
 };

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqlf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqlf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqlf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,26 +37,26 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void geqlf( integer_t const m, integer_t const n, float* a,
- integer_t const lda, float* tau, float* work,
- integer_t const lwork, integer_t& info ) {
+ inline void geqlf( const integer_t m, const integer_t n, float* a,
+ const integer_t lda, float* tau, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SGEQLF( &m, &n, a, &lda, tau, work, &lwork, &info );
     }
- inline void geqlf( integer_t const m, integer_t const n, double* a,
- integer_t const lda, double* tau, double* work,
- integer_t const lwork, integer_t& info ) {
+ inline void geqlf( const integer_t m, const integer_t n, double* a,
+ const integer_t lda, double* tau, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DGEQLF( &m, &n, a, &lda, tau, work, &lwork, &info );
     }
- inline void geqlf( integer_t const m, integer_t const n,
- traits::complex_f* a, integer_t const lda, traits::complex_f* tau,
- traits::complex_f* work, integer_t const lwork, integer_t& info ) {
+ inline void geqlf( const integer_t m, const integer_t n,
+ traits::complex_f* a, const integer_t lda, traits::complex_f* tau,
+ traits::complex_f* work, const integer_t lwork, integer_t& info ) {
         LAPACK_CGEQLF( &m, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );
     }
- inline void geqlf( integer_t const m, integer_t const n,
- traits::complex_d* a, integer_t const lda, traits::complex_d* tau,
- traits::complex_d* work, integer_t const lwork, integer_t& info ) {
+ inline void geqlf( const integer_t m, const integer_t n,
+ traits::complex_d* a, const integer_t lda, traits::complex_d* tau,
+ traits::complex_d* work, const integer_t lwork, integer_t& info ) {
         LAPACK_ZGEQLF( &m, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );
@@ -120,7 +120,7 @@
         invoke( a, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return std::max( 1, n );
     }
 };
@@ -178,7 +178,7 @@
         invoke( a, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return std::max( 1, n );
     }
 };

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqp3.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqp3.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqp3.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,28 +37,28 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void geqp3( integer_t const m, integer_t const n, float* a,
- integer_t const lda, integer_t* jpvt, float* tau, float* work,
- integer_t const lwork, integer_t& info ) {
+ inline void geqp3( const integer_t m, const integer_t n, float* a,
+ const integer_t lda, integer_t* jpvt, float* tau, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SGEQP3( &m, &n, a, &lda, jpvt, tau, work, &lwork, &info );
     }
- inline void geqp3( integer_t const m, integer_t const n, double* a,
- integer_t const lda, integer_t* jpvt, double* tau, double* work,
- integer_t const lwork, integer_t& info ) {
+ inline void geqp3( const integer_t m, const integer_t n, double* a,
+ const integer_t lda, integer_t* jpvt, double* tau, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DGEQP3( &m, &n, a, &lda, jpvt, tau, work, &lwork, &info );
     }
- inline void geqp3( integer_t const m, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t* jpvt,
+ inline void geqp3( const integer_t m, const integer_t n,
+ traits::complex_f* a, const integer_t lda, integer_t* jpvt,
             traits::complex_f* tau, traits::complex_f* work,
- integer_t const lwork, float* rwork, integer_t& info ) {
+ const integer_t lwork, float* rwork, integer_t& info ) {
         LAPACK_CGEQP3( &m, &n, traits::complex_ptr(a), &lda, jpvt,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 rwork, &info );
     }
- inline void geqp3( integer_t const m, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t* jpvt,
+ inline void geqp3( const integer_t m, const integer_t n,
+ traits::complex_d* a, const integer_t lda, integer_t* jpvt,
             traits::complex_d* tau, traits::complex_d* work,
- integer_t const lwork, double* rwork, integer_t& info ) {
+ const integer_t lwork, double* rwork, integer_t& info ) {
         LAPACK_ZGEQP3( &m, &n, traits::complex_ptr(a), &lda, jpvt,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 rwork, &info );
@@ -124,7 +124,7 @@
         invoke( a, jpvt, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n+1;
     }
 };
@@ -192,11 +192,11 @@
         invoke( a, jpvt, tau, info, workspace( tmp_work, tmp_rwork ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return n+1;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return 2*n;
     }
 };

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqrf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqrf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/geqrf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,26 +37,26 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void geqrf( integer_t const m, integer_t const n, float* a,
- integer_t const lda, float* tau, float* work,
- integer_t const lwork, integer_t& info ) {
+ inline void geqrf( const integer_t m, const integer_t n, float* a,
+ const integer_t lda, float* tau, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SGEQRF( &m, &n, a, &lda, tau, work, &lwork, &info );
     }
- inline void geqrf( integer_t const m, integer_t const n, double* a,
- integer_t const lda, double* tau, double* work,
- integer_t const lwork, integer_t& info ) {
+ inline void geqrf( const integer_t m, const integer_t n, double* a,
+ const integer_t lda, double* tau, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DGEQRF( &m, &n, a, &lda, tau, work, &lwork, &info );
     }
- inline void geqrf( integer_t const m, integer_t const n,
- traits::complex_f* a, integer_t const lda, traits::complex_f* tau,
- traits::complex_f* work, integer_t const lwork, integer_t& info ) {
+ inline void geqrf( const integer_t m, const integer_t n,
+ traits::complex_f* a, const integer_t lda, traits::complex_f* tau,
+ traits::complex_f* work, const integer_t lwork, integer_t& info ) {
         LAPACK_CGEQRF( &m, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );
     }
- inline void geqrf( integer_t const m, integer_t const n,
- traits::complex_d* a, integer_t const lda, traits::complex_d* tau,
- traits::complex_d* work, integer_t const lwork, integer_t& info ) {
+ inline void geqrf( const integer_t m, const integer_t n,
+ traits::complex_d* a, const integer_t lda, traits::complex_d* tau,
+ traits::complex_d* work, const integer_t lwork, integer_t& info ) {
         LAPACK_ZGEQRF( &m, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gerfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gerfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gerfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,39 +36,45 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gerfs( char const trans, integer_t const n,
- integer_t const nrhs, float* a, integer_t const lda, float* af,
- integer_t const ldaf, integer_t* ipiv, float* b,
- integer_t const ldb, float* x, integer_t const ldx, float* ferr,
- float* berr, float* work, integer_t* iwork, integer_t& info ) {
+ inline void gerfs( const char trans, const integer_t n,
+ const integer_t nrhs, const float* a, const integer_t lda,
+ const float* af, const integer_t ldaf, const integer_t* ipiv,
+ const float* b, const integer_t ldb, float* x,
+ const integer_t ldx, float* ferr, float* berr, float* work,
+ integer_t* iwork, integer_t& info ) {
         LAPACK_SGERFS( &trans, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb,
                 x, &ldx, ferr, berr, work, iwork, &info );
     }
- inline void gerfs( char const trans, integer_t const n,
- integer_t const nrhs, double* a, integer_t const lda, double* af,
- integer_t const ldaf, integer_t* ipiv, double* b,
- integer_t const ldb, double* x, integer_t const ldx, double* ferr,
- double* berr, double* work, integer_t* iwork, integer_t& info ) {
+ inline void gerfs( const char trans, const integer_t n,
+ const integer_t nrhs, const double* a, const integer_t lda,
+ const double* af, const integer_t ldaf, const integer_t* ipiv,
+ const double* b, const integer_t ldb, double* x,
+ const integer_t ldx, double* ferr, double* berr, double* work,
+ integer_t* iwork, integer_t& info ) {
         LAPACK_DGERFS( &trans, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb,
                 x, &ldx, ferr, berr, work, iwork, &info );
     }
- inline void gerfs( char const trans, integer_t const n,
- integer_t const nrhs, traits::complex_f* a, integer_t const lda,
- traits::complex_f* af, integer_t const ldaf, integer_t* ipiv,
- traits::complex_f* b, integer_t const ldb, traits::complex_f* x,
- integer_t const ldx, float* ferr, float* berr,
- traits::complex_f* work, float* rwork, integer_t& info ) {
+ inline void gerfs( const char trans, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* a,
+ const integer_t lda, const traits::complex_f* af,
+ const integer_t ldaf, const integer_t* ipiv,
+ const traits::complex_f* b, const integer_t ldb,
+ traits::complex_f* x, const integer_t ldx, float* ferr,
+ float* berr, traits::complex_f* work, float* rwork,
+ integer_t& info ) {
         LAPACK_CGERFS( &trans, &n, &nrhs, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(af), &ldaf, ipiv, traits::complex_ptr(b),
                 &ldb, traits::complex_ptr(x), &ldx, ferr, berr,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void gerfs( char const trans, integer_t const n,
- integer_t const nrhs, traits::complex_d* a, integer_t const lda,
- traits::complex_d* af, integer_t const ldaf, integer_t* ipiv,
- traits::complex_d* b, integer_t const ldb, traits::complex_d* x,
- integer_t const ldx, double* ferr, double* berr,
- traits::complex_d* work, double* rwork, integer_t& info ) {
+ inline void gerfs( const char trans, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* a,
+ const integer_t lda, const traits::complex_d* af,
+ const integer_t ldaf, const integer_t* ipiv,
+ const traits::complex_d* b, const integer_t ldb,
+ traits::complex_d* x, const integer_t ldx, double* ferr,
+ double* berr, traits::complex_d* work, double* rwork,
+ integer_t& info ) {
         LAPACK_ZGERFS( &trans, &n, &nrhs, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(af), &ldaf, ipiv, traits::complex_ptr(b),
                 &ldb, traits::complex_ptr(x), &ldx, ferr, berr,
@@ -91,10 +97,10 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR, typename WORK, typename IWORK >
- static void invoke( char const trans, MatrixA& a, MatrixAF& af,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, detail::workspace2< WORK,
- IWORK > work ) {
+ static void invoke( const char trans, const MatrixA& a,
+ const MatrixAF& af, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
                 MatrixAF >::value_type >::value) );
@@ -144,9 +150,10 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( char const trans, MatrixA& a, MatrixAF& af,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, minimal_workspace work ) {
+ static void invoke( const char trans, const MatrixA& a,
+ const MatrixAF& af, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork(
@@ -159,18 +166,19 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( char const trans, MatrixA& a, MatrixAF& af,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, optimal_workspace work ) {
+ static void invoke( const char trans, const MatrixA& a,
+ const MatrixAF& af, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( trans, a, af, ipiv, b, x, ferr, berr, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -186,10 +194,10 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR, typename WORK, typename RWORK >
- static void invoke( char const trans, MatrixA& a, MatrixAF& af,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, detail::workspace2< WORK,
- RWORK > work ) {
+ static void invoke( const char trans, const MatrixA& a,
+ const MatrixAF& af, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorFERR >::value_type, typename traits::vector_traits<
                 VectorBERR >::value_type >::value) );
@@ -236,9 +244,10 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( char const trans, MatrixA& a, MatrixAF& af,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, minimal_workspace work ) {
+ static void invoke( const char trans, const MatrixA& a,
+ const MatrixAF& af, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork(
@@ -251,18 +260,19 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( char const trans, MatrixA& a, MatrixAF& af,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, optimal_workspace work ) {
+ static void invoke( const char trans, const MatrixA& a,
+ const MatrixAF& af, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( trans, a, af, ipiv, b, x, ferr, berr, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -272,9 +282,9 @@
 template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR, typename Workspace >
-inline integer_t gerfs( char const trans, MatrixA& a, MatrixAF& af,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, Workspace work ) {
+inline integer_t gerfs( const char trans, const MatrixA& a,
+ const MatrixAF& af, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     gerfs_impl< value_type >::invoke( trans, a, af, ipiv, b, x, ferr,
@@ -286,9 +296,9 @@
 template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR >
-inline integer_t gerfs( char const trans, MatrixA& a, MatrixAF& af,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr ) {
+inline integer_t gerfs( const char trans, const MatrixA& a,
+ const MatrixAF& af, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     gerfs_impl< value_type >::invoke( trans, a, af, ipiv, b, x, ferr,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gerqf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gerqf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gerqf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,26 +37,26 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gerqf( integer_t const m, integer_t const n, float* a,
- integer_t const lda, float* tau, float* work,
- integer_t const lwork, integer_t& info ) {
+ inline void gerqf( const integer_t m, const integer_t n, float* a,
+ const integer_t lda, float* tau, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SGERQF( &m, &n, a, &lda, tau, work, &lwork, &info );
     }
- inline void gerqf( integer_t const m, integer_t const n, double* a,
- integer_t const lda, double* tau, double* work,
- integer_t const lwork, integer_t& info ) {
+ inline void gerqf( const integer_t m, const integer_t n, double* a,
+ const integer_t lda, double* tau, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DGERQF( &m, &n, a, &lda, tau, work, &lwork, &info );
     }
- inline void gerqf( integer_t const m, integer_t const n,
- traits::complex_f* a, integer_t const lda, traits::complex_f* tau,
- traits::complex_f* work, integer_t const lwork, integer_t& info ) {
+ inline void gerqf( const integer_t m, const integer_t n,
+ traits::complex_f* a, const integer_t lda, traits::complex_f* tau,
+ traits::complex_f* work, const integer_t lwork, integer_t& info ) {
         LAPACK_CGERQF( &m, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );
     }
- inline void gerqf( integer_t const m, integer_t const n,
- traits::complex_d* a, integer_t const lda, traits::complex_d* tau,
- traits::complex_d* work, integer_t const lwork, integer_t& info ) {
+ inline void gerqf( const integer_t m, const integer_t n,
+ traits::complex_d* a, const integer_t lda, traits::complex_d* tau,
+ traits::complex_d* work, const integer_t lwork, integer_t& info ) {
         LAPACK_ZGERQF( &m, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getrf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getrf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getrf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,21 +31,21 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void getrf( integer_t const m, integer_t const n, float* a,
- integer_t const lda, integer_t* ipiv, integer_t& info ) {
+ inline void getrf( const integer_t m, const integer_t n, float* a,
+ const integer_t lda, integer_t* ipiv, integer_t& info ) {
         LAPACK_SGETRF( &m, &n, a, &lda, ipiv, &info );
     }
- inline void getrf( integer_t const m, integer_t const n, double* a,
- integer_t const lda, integer_t* ipiv, integer_t& info ) {
+ inline void getrf( const integer_t m, const integer_t n, double* a,
+ const integer_t lda, integer_t* ipiv, integer_t& info ) {
         LAPACK_DGETRF( &m, &n, a, &lda, ipiv, &info );
     }
- inline void getrf( integer_t const m, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t* ipiv,
+ inline void getrf( const integer_t m, const integer_t n,
+ traits::complex_f* a, const integer_t lda, integer_t* ipiv,
             integer_t& info ) {
         LAPACK_CGETRF( &m, &n, traits::complex_ptr(a), &lda, ipiv, &info );
     }
- inline void getrf( integer_t const m, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t* ipiv,
+ inline void getrf( const integer_t m, const integer_t n,
+ traits::complex_d* a, const integer_t lda, integer_t* ipiv,
             integer_t& info ) {
         LAPACK_ZGETRF( &m, &n, traits::complex_ptr(a), &lda, ipiv, &info );
     }

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getri.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getri.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getri.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,25 +37,25 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void getri( integer_t const n, float* a, integer_t const lda,
- integer_t* ipiv, float* work, integer_t const lwork,
+ inline void getri( const integer_t n, float* a, const integer_t lda,
+ const integer_t* ipiv, float* work, const integer_t lwork,
             integer_t& info ) {
         LAPACK_SGETRI( &n, a, &lda, ipiv, work, &lwork, &info );
     }
- inline void getri( integer_t const n, double* a, integer_t const lda,
- integer_t* ipiv, double* work, integer_t const lwork,
+ inline void getri( const integer_t n, double* a, const integer_t lda,
+ const integer_t* ipiv, double* work, const integer_t lwork,
             integer_t& info ) {
         LAPACK_DGETRI( &n, a, &lda, ipiv, work, &lwork, &info );
     }
- inline void getri( integer_t const n, traits::complex_f* a,
- integer_t const lda, integer_t* ipiv, traits::complex_f* work,
- integer_t const lwork, integer_t& info ) {
+ inline void getri( const integer_t n, traits::complex_f* a,
+ const integer_t lda, const integer_t* ipiv,
+ traits::complex_f* work, const integer_t lwork, integer_t& info ) {
         LAPACK_CGETRI( &n, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(work), &lwork, &info );
     }
- inline void getri( integer_t const n, traits::complex_d* a,
- integer_t const lda, integer_t* ipiv, traits::complex_d* work,
- integer_t const lwork, integer_t& info ) {
+ inline void getri( const integer_t n, traits::complex_d* a,
+ const integer_t lda, const integer_t* ipiv,
+ traits::complex_d* work, const integer_t lwork, integer_t& info ) {
         LAPACK_ZGETRI( &n, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(work), &lwork, &info );
     }
@@ -74,7 +74,7 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorIPIV, typename WORK >
- static void invoke( MatrixA& a, VectorIPIV& ipiv, integer_t& info,
+ static void invoke( MatrixA& a, const VectorIPIV& ipiv, integer_t& info,
             detail::workspace1< WORK > work ) {
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
         BOOST_ASSERT( traits::leading_dimension(a) >= std::max(1,
@@ -92,7 +92,7 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( MatrixA& a, VectorIPIV& ipiv, integer_t& info,
+ static void invoke( MatrixA& a, const VectorIPIV& ipiv, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
@@ -101,7 +101,7 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( MatrixA& a, VectorIPIV& ipiv, integer_t& info,
+ static void invoke( MatrixA& a, const VectorIPIV& ipiv, integer_t& info,
             optimal_workspace work ) {
         real_type opt_size_work;
         detail::getri( traits::matrix_num_columns(a),
@@ -112,7 +112,7 @@
         invoke( a, ipiv, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return std::max( 1, n );
     }
 };
@@ -126,7 +126,7 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorIPIV, typename WORK >
- static void invoke( MatrixA& a, VectorIPIV& ipiv, integer_t& info,
+ static void invoke( MatrixA& a, const VectorIPIV& ipiv, integer_t& info,
             detail::workspace1< WORK > work ) {
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
         BOOST_ASSERT( traits::leading_dimension(a) >= std::max(1,
@@ -144,7 +144,7 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( MatrixA& a, VectorIPIV& ipiv, integer_t& info,
+ static void invoke( MatrixA& a, const VectorIPIV& ipiv, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
@@ -153,7 +153,7 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( MatrixA& a, VectorIPIV& ipiv, integer_t& info,
+ static void invoke( MatrixA& a, const VectorIPIV& ipiv, integer_t& info,
             optimal_workspace work ) {
         value_type opt_size_work;
         detail::getri( traits::matrix_num_columns(a),
@@ -164,7 +164,7 @@
         invoke( a, ipiv, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return std::max( 1, n );
     }
 };
@@ -172,7 +172,8 @@
 
 // template function to call getri
 template< typename MatrixA, typename VectorIPIV, typename Workspace >
-inline integer_t getri( MatrixA& a, VectorIPIV& ipiv, Workspace work ) {
+inline integer_t getri( MatrixA& a, const VectorIPIV& ipiv,
+ Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     getri_impl< value_type >::invoke( a, ipiv, info, work );
@@ -181,7 +182,7 @@
 
 // template function to call getri, default workspace type
 template< typename MatrixA, typename VectorIPIV >
-inline integer_t getri( MatrixA& a, VectorIPIV& ipiv ) {
+inline integer_t getri( MatrixA& a, const VectorIPIV& ipiv ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     getri_impl< value_type >::invoke( a, ipiv, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/getrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,28 +31,29 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void getrs( char const trans, integer_t const n,
- integer_t const nrhs, float* a, integer_t const lda,
- integer_t* ipiv, float* b, integer_t const ldb, integer_t& info ) {
+ inline void getrs( const char trans, const integer_t n,
+ const integer_t nrhs, const float* a, const integer_t lda,
+ const integer_t* ipiv, float* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_SGETRS( &trans, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info );
     }
- inline void getrs( char const trans, integer_t const n,
- integer_t const nrhs, double* a, integer_t const lda,
- integer_t* ipiv, double* b, integer_t const ldb,
+ inline void getrs( const char trans, const integer_t n,
+ const integer_t nrhs, const double* a, const integer_t lda,
+ const integer_t* ipiv, double* b, const integer_t ldb,
             integer_t& info ) {
         LAPACK_DGETRS( &trans, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info );
     }
- inline void getrs( char const trans, integer_t const n,
- integer_t const nrhs, traits::complex_f* a, integer_t const lda,
- integer_t* ipiv, traits::complex_f* b, integer_t const ldb,
- integer_t& info ) {
+ inline void getrs( const char trans, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* a,
+ const integer_t lda, const integer_t* ipiv, traits::complex_f* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_CGETRS( &trans, &n, &nrhs, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void getrs( char const trans, integer_t const n,
- integer_t const nrhs, traits::complex_d* a, integer_t const lda,
- integer_t* ipiv, traits::complex_d* b, integer_t const ldb,
- integer_t& info ) {
+ inline void getrs( const char trans, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* a,
+ const integer_t lda, const integer_t* ipiv, traits::complex_d* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_ZGETRS( &trans, &n, &nrhs, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -67,8 +68,8 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorIPIV, typename MatrixB >
- static void invoke( char const trans, MatrixA& a, VectorIPIV& ipiv,
- MatrixB& b, integer_t& info ) {
+ static void invoke( const char trans, const MatrixA& a,
+ const VectorIPIV& ipiv, MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -92,8 +93,8 @@
 
 // template function to call getrs
 template< typename MatrixA, typename VectorIPIV, typename MatrixB >
-inline integer_t getrs( char const trans, MatrixA& a, VectorIPIV& ipiv,
- MatrixB& b ) {
+inline integer_t getrs( const char trans, const MatrixA& a,
+ const VectorIPIV& ipiv, MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     getrs_impl< value_type >::invoke( trans, a, ipiv, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggbak.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggbak.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggbak.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,31 +34,31 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ggbak( char const job, char const side, integer_t const n,
- integer_t const ilo, integer_t const ihi, float* lscale,
- float* rscale, integer_t const m, float* v, integer_t const ldv,
- integer_t& info ) {
+ inline void ggbak( const char job, const char side, const integer_t n,
+ const integer_t ilo, const integer_t ihi, const float* lscale,
+ const float* rscale, const integer_t m, float* v,
+ const integer_t ldv, integer_t& info ) {
         LAPACK_SGGBAK( &job, &side, &n, &ilo, &ihi, lscale, rscale, &m, v,
                 &ldv, &info );
     }
- inline void ggbak( char const job, char const side, integer_t const n,
- integer_t const ilo, integer_t const ihi, double* lscale,
- double* rscale, integer_t const m, double* v, integer_t const ldv,
- integer_t& info ) {
+ inline void ggbak( const char job, const char side, const integer_t n,
+ const integer_t ilo, const integer_t ihi, const double* lscale,
+ const double* rscale, const integer_t m, double* v,
+ const integer_t ldv, integer_t& info ) {
         LAPACK_DGGBAK( &job, &side, &n, &ilo, &ihi, lscale, rscale, &m, v,
                 &ldv, &info );
     }
- inline void ggbak( char const job, char const side, integer_t const n,
- integer_t const ilo, integer_t const ihi, float* lscale,
- float* rscale, integer_t const m, traits::complex_f* v,
- integer_t const ldv, integer_t& info ) {
+ inline void ggbak( const char job, const char side, const integer_t n,
+ const integer_t ilo, const integer_t ihi, const float* lscale,
+ const float* rscale, const integer_t m, traits::complex_f* v,
+ const integer_t ldv, integer_t& info ) {
         LAPACK_CGGBAK( &job, &side, &n, &ilo, &ihi, lscale, rscale, &m,
                 traits::complex_ptr(v), &ldv, &info );
     }
- inline void ggbak( char const job, char const side, integer_t const n,
- integer_t const ilo, integer_t const ihi, double* lscale,
- double* rscale, integer_t const m, traits::complex_d* v,
- integer_t const ldv, integer_t& info ) {
+ inline void ggbak( const char job, const char side, const integer_t n,
+ const integer_t ilo, const integer_t ihi, const double* lscale,
+ const double* rscale, const integer_t m, traits::complex_d* v,
+ const integer_t ldv, integer_t& info ) {
         LAPACK_ZGGBAK( &job, &side, &n, &ilo, &ihi, lscale, rscale, &m,
                 traits::complex_ptr(v), &ldv, &info );
     }
@@ -77,9 +77,9 @@
 
     // templated specialization
     template< typename VectorLSCALE, typename VectorRSCALE, typename MatrixV >
- static void invoke( char const job, char const side, integer_t const ilo,
- integer_t const ihi, VectorLSCALE& lscale, VectorRSCALE& rscale,
- MatrixV& v, integer_t& info ) {
+ static void invoke( const char job, const char side, const integer_t ilo,
+ const integer_t ihi, const VectorLSCALE& lscale,
+ const VectorRSCALE& rscale, MatrixV& v, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorLSCALE >::value_type, typename traits::vector_traits<
                 VectorRSCALE >::value_type >::value) );
@@ -113,9 +113,9 @@
 
     // templated specialization
     template< typename VectorLSCALE, typename VectorRSCALE, typename MatrixV >
- static void invoke( char const job, char const side, integer_t const ilo,
- integer_t const ihi, VectorLSCALE& lscale, VectorRSCALE& rscale,
- MatrixV& v, integer_t& info ) {
+ static void invoke( const char job, const char side, const integer_t ilo,
+ const integer_t ihi, const VectorLSCALE& lscale,
+ const VectorRSCALE& rscale, MatrixV& v, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorLSCALE >::value_type, typename traits::vector_traits<
                 VectorRSCALE >::value_type >::value) );
@@ -140,9 +140,9 @@
 
 // template function to call ggbak
 template< typename VectorLSCALE, typename VectorRSCALE, typename MatrixV >
-inline integer_t ggbak( char const job, char const side,
- integer_t const ilo, integer_t const ihi, VectorLSCALE& lscale,
- VectorRSCALE& rscale, MatrixV& v ) {
+inline integer_t ggbak( const char job, const char side,
+ const integer_t ilo, const integer_t ihi, const VectorLSCALE& lscale,
+ const VectorRSCALE& rscale, MatrixV& v ) {
     typedef typename traits::matrix_traits< MatrixV >::value_type value_type;
     integer_t info(0);
     ggbak_impl< value_type >::invoke( job, side, ilo, ihi, lscale,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggbal.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggbal.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggbal.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,31 +36,31 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ggbal( char const job, integer_t const n, float* a,
- integer_t const lda, float* b, integer_t const ldb,
+ inline void ggbal( const char job, const integer_t n, float* a,
+ const integer_t lda, float* b, const integer_t ldb,
             integer_t& ilo, integer_t& ihi, float* lscale, float* rscale,
             float* work, integer_t& info ) {
         LAPACK_SGGBAL( &job, &n, a, &lda, b, &ldb, &ilo, &ihi, lscale, rscale,
                 work, &info );
     }
- inline void ggbal( char const job, integer_t const n, double* a,
- integer_t const lda, double* b, integer_t const ldb,
+ inline void ggbal( const char job, const integer_t n, double* a,
+ const integer_t lda, double* b, const integer_t ldb,
             integer_t& ilo, integer_t& ihi, double* lscale, double* rscale,
             double* work, integer_t& info ) {
         LAPACK_DGGBAL( &job, &n, a, &lda, b, &ldb, &ilo, &ihi, lscale, rscale,
                 work, &info );
     }
- inline void ggbal( char const job, integer_t const n,
- traits::complex_f* a, integer_t const lda, traits::complex_f* b,
- integer_t const ldb, integer_t& ilo, integer_t& ihi,
+ inline void ggbal( const char job, const integer_t n,
+ traits::complex_f* a, const integer_t lda, traits::complex_f* b,
+ const integer_t ldb, integer_t& ilo, integer_t& ihi,
             float* lscale, float* rscale, float* work, integer_t& info ) {
         LAPACK_CGGBAL( &job, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(b), &ldb, &ilo, &ihi, lscale, rscale,
                 work, &info );
     }
- inline void ggbal( char const job, integer_t const n,
- traits::complex_d* a, integer_t const lda, traits::complex_d* b,
- integer_t const ldb, integer_t& ilo, integer_t& ihi,
+ inline void ggbal( const char job, const integer_t n,
+ traits::complex_d* a, const integer_t lda, traits::complex_d* b,
+ const integer_t ldb, integer_t& ilo, integer_t& ihi,
             double* lscale, double* rscale, double* work, integer_t& info ) {
         LAPACK_ZGGBAL( &job, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(b), &ldb, &ilo, &ihi, lscale, rscale,
@@ -82,7 +82,7 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename MatrixB, typename VectorLSCALE,
             typename VectorRSCALE, typename WORK >
- static void invoke( char const job, integer_t const n, MatrixA& a,
+ static void invoke( const char job, const integer_t n, MatrixA& a,
             MatrixB& b, integer_t& ilo, integer_t& ihi, VectorLSCALE& lscale,
             VectorRSCALE& rscale, integer_t& info, detail::workspace1<
             WORK > work ) {
@@ -112,7 +112,7 @@
     // minimal workspace specialization
     template< typename MatrixA, typename MatrixB, typename VectorLSCALE,
             typename VectorRSCALE >
- static void invoke( char const job, integer_t const n, MatrixA& a,
+ static void invoke( const char job, const integer_t n, MatrixA& a,
             MatrixB& b, integer_t& ilo, integer_t& ihi, VectorLSCALE& lscale,
             VectorRSCALE& rscale, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
@@ -124,7 +124,7 @@
     // optimal workspace specialization
     template< typename MatrixA, typename MatrixB, typename VectorLSCALE,
             typename VectorRSCALE >
- static void invoke( char const job, integer_t const n, MatrixA& a,
+ static void invoke( const char job, const integer_t n, MatrixA& a,
             MatrixB& b, integer_t& ilo, integer_t& ihi, VectorLSCALE& lscale,
             VectorRSCALE& rscale, integer_t& info, optimal_workspace work ) {
         invoke( job, n, a, b, ilo, ihi, lscale, rscale, info,
@@ -146,7 +146,7 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename MatrixB, typename VectorLSCALE,
             typename VectorRSCALE, typename WORK >
- static void invoke( char const job, integer_t const n, MatrixA& a,
+ static void invoke( const char job, const integer_t n, MatrixA& a,
             MatrixB& b, integer_t& ilo, integer_t& ihi, VectorLSCALE& lscale,
             VectorRSCALE& rscale, integer_t& info, detail::workspace1<
             WORK > work ) {
@@ -173,7 +173,7 @@
     // minimal workspace specialization
     template< typename MatrixA, typename MatrixB, typename VectorLSCALE,
             typename VectorRSCALE >
- static void invoke( char const job, integer_t const n, MatrixA& a,
+ static void invoke( const char job, const integer_t n, MatrixA& a,
             MatrixB& b, integer_t& ilo, integer_t& ihi, VectorLSCALE& lscale,
             VectorRSCALE& rscale, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
@@ -185,7 +185,7 @@
     // optimal workspace specialization
     template< typename MatrixA, typename MatrixB, typename VectorLSCALE,
             typename VectorRSCALE >
- static void invoke( char const job, integer_t const n, MatrixA& a,
+ static void invoke( const char job, const integer_t n, MatrixA& a,
             MatrixB& b, integer_t& ilo, integer_t& ihi, VectorLSCALE& lscale,
             VectorRSCALE& rscale, integer_t& info, optimal_workspace work ) {
         invoke( job, n, a, b, ilo, ihi, lscale, rscale, info,
@@ -201,7 +201,7 @@
 // template function to call ggbal
 template< typename MatrixA, typename MatrixB, typename VectorLSCALE,
         typename VectorRSCALE, typename Workspace >
-inline integer_t ggbal( char const job, integer_t const n, MatrixA& a,
+inline integer_t ggbal( const char job, const integer_t n, MatrixA& a,
         MatrixB& b, integer_t& ilo, integer_t& ihi, VectorLSCALE& lscale,
         VectorRSCALE& rscale, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
@@ -214,7 +214,7 @@
 // template function to call ggbal, default workspace type
 template< typename MatrixA, typename MatrixB, typename VectorLSCALE,
         typename VectorRSCALE >
-inline integer_t ggbal( char const job, integer_t const n, MatrixA& a,
+inline integer_t ggbal( const char job, const integer_t n, MatrixA& a,
         MatrixB& b, integer_t& ilo, integer_t& ihi, VectorLSCALE& lscale,
         VectorRSCALE& rscale ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gghrd.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gghrd.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gghrd.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,36 +31,36 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gghrd( char const compq, char const compz, integer_t const n,
- integer_t const ilo, integer_t const ihi, float* a,
- integer_t const lda, float* b, integer_t const ldb, float* q,
- integer_t const ldq, float* z, integer_t const ldz,
+ inline void gghrd( const char compq, const char compz, const integer_t n,
+ const integer_t ilo, const integer_t ihi, float* a,
+ const integer_t lda, float* b, const integer_t ldb, float* q,
+ const integer_t ldq, float* z, const integer_t ldz,
             integer_t& info ) {
         LAPACK_SGGHRD( &compq, &compz, &n, &ilo, &ihi, a, &lda, b, &ldb, q,
                 &ldq, z, &ldz, &info );
     }
- inline void gghrd( char const compq, char const compz, integer_t const n,
- integer_t const ilo, integer_t const ihi, double* a,
- integer_t const lda, double* b, integer_t const ldb, double* q,
- integer_t const ldq, double* z, integer_t const ldz,
+ inline void gghrd( const char compq, const char compz, const integer_t n,
+ const integer_t ilo, const integer_t ihi, double* a,
+ const integer_t lda, double* b, const integer_t ldb, double* q,
+ const integer_t ldq, double* z, const integer_t ldz,
             integer_t& info ) {
         LAPACK_DGGHRD( &compq, &compz, &n, &ilo, &ihi, a, &lda, b, &ldb, q,
                 &ldq, z, &ldz, &info );
     }
- inline void gghrd( char const compq, char const compz, integer_t const n,
- integer_t const ilo, integer_t const ihi, traits::complex_f* a,
- integer_t const lda, traits::complex_f* b, integer_t const ldb,
- traits::complex_f* q, integer_t const ldq, traits::complex_f* z,
- integer_t const ldz, integer_t& info ) {
+ inline void gghrd( const char compq, const char compz, const integer_t n,
+ const integer_t ilo, const integer_t ihi, traits::complex_f* a,
+ const integer_t lda, traits::complex_f* b, const integer_t ldb,
+ traits::complex_f* q, const integer_t ldq, traits::complex_f* z,
+ const integer_t ldz, integer_t& info ) {
         LAPACK_CGGHRD( &compq, &compz, &n, &ilo, &ihi, traits::complex_ptr(a),
                 &lda, traits::complex_ptr(b), &ldb, traits::complex_ptr(q),
                 &ldq, traits::complex_ptr(z), &ldz, &info );
     }
- inline void gghrd( char const compq, char const compz, integer_t const n,
- integer_t const ilo, integer_t const ihi, traits::complex_d* a,
- integer_t const lda, traits::complex_d* b, integer_t const ldb,
- traits::complex_d* q, integer_t const ldq, traits::complex_d* z,
- integer_t const ldz, integer_t& info ) {
+ inline void gghrd( const char compq, const char compz, const integer_t n,
+ const integer_t ilo, const integer_t ihi, traits::complex_d* a,
+ const integer_t lda, traits::complex_d* b, const integer_t ldb,
+ traits::complex_d* q, const integer_t ldq, traits::complex_d* z,
+ const integer_t ldz, integer_t& info ) {
         LAPACK_ZGGHRD( &compq, &compz, &n, &ilo, &ihi, traits::complex_ptr(a),
                 &lda, traits::complex_ptr(b), &ldb, traits::complex_ptr(q),
                 &ldq, traits::complex_ptr(z), &ldz, &info );
@@ -77,8 +77,8 @@
     // templated specialization
     template< typename MatrixA, typename MatrixB, typename MatrixQ,
             typename MatrixZ >
- static void invoke( char const compq, char const compz, integer_t const n,
- integer_t const ilo, MatrixA& a, MatrixB& b, MatrixQ& q,
+ static void invoke( const char compq, const char compz, const integer_t n,
+ const integer_t ilo, MatrixA& a, MatrixB& b, MatrixQ& q,
             MatrixZ& z, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
@@ -107,8 +107,8 @@
 // template function to call gghrd
 template< typename MatrixA, typename MatrixB, typename MatrixQ,
         typename MatrixZ >
-inline integer_t gghrd( char const compq, char const compz,
- integer_t const n, integer_t const ilo, MatrixA& a, MatrixB& b,
+inline integer_t gghrd( const char compq, const char compz,
+ const integer_t n, const integer_t ilo, MatrixA& a, MatrixB& b,
         MatrixQ& q, MatrixZ& z ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggqrf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggqrf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggqrf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,35 +37,35 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ggqrf( integer_t const n, integer_t const m,
- integer_t const p, float* a, integer_t const lda, float* taua,
- float* b, integer_t const ldb, float* taub, float* work,
- integer_t const lwork, integer_t& info ) {
+ inline void ggqrf( const integer_t n, const integer_t m,
+ const integer_t p, float* a, const integer_t lda, float* taua,
+ float* b, const integer_t ldb, float* taub, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SGGQRF( &n, &m, &p, a, &lda, taua, b, &ldb, taub, work, &lwork,
                 &info );
     }
- inline void ggqrf( integer_t const n, integer_t const m,
- integer_t const p, double* a, integer_t const lda, double* taua,
- double* b, integer_t const ldb, double* taub, double* work,
- integer_t const lwork, integer_t& info ) {
+ inline void ggqrf( const integer_t n, const integer_t m,
+ const integer_t p, double* a, const integer_t lda, double* taua,
+ double* b, const integer_t ldb, double* taub, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DGGQRF( &n, &m, &p, a, &lda, taua, b, &ldb, taub, work, &lwork,
                 &info );
     }
- inline void ggqrf( integer_t const n, integer_t const m,
- integer_t const p, traits::complex_f* a, integer_t const lda,
+ inline void ggqrf( const integer_t n, const integer_t m,
+ const integer_t p, traits::complex_f* a, const integer_t lda,
             traits::complex_f* taua, traits::complex_f* b,
- integer_t const ldb, traits::complex_f* taub,
- traits::complex_f* work, integer_t const lwork, integer_t& info ) {
+ const integer_t ldb, traits::complex_f* taub,
+ traits::complex_f* work, const integer_t lwork, integer_t& info ) {
         LAPACK_CGGQRF( &n, &m, &p, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(taua), traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(taub), traits::complex_ptr(work), &lwork,
                 &info );
     }
- inline void ggqrf( integer_t const n, integer_t const m,
- integer_t const p, traits::complex_d* a, integer_t const lda,
+ inline void ggqrf( const integer_t n, const integer_t m,
+ const integer_t p, traits::complex_d* a, const integer_t lda,
             traits::complex_d* taua, traits::complex_d* b,
- integer_t const ldb, traits::complex_d* taub,
- traits::complex_d* work, integer_t const lwork, integer_t& info ) {
+ const integer_t ldb, traits::complex_d* taub,
+ traits::complex_d* work, const integer_t lwork, integer_t& info ) {
         LAPACK_ZGGQRF( &n, &m, &p, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(taua), traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(taub), traits::complex_ptr(work), &lwork,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggrqf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggrqf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggrqf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,35 +37,35 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ggrqf( integer_t const m, integer_t const p,
- integer_t const n, float* a, integer_t const lda, float* taua,
- float* b, integer_t const ldb, float* taub, float* work,
- integer_t const lwork, integer_t& info ) {
+ inline void ggrqf( const integer_t m, const integer_t p,
+ const integer_t n, float* a, const integer_t lda, float* taua,
+ float* b, const integer_t ldb, float* taub, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SGGRQF( &m, &p, &n, a, &lda, taua, b, &ldb, taub, work, &lwork,
                 &info );
     }
- inline void ggrqf( integer_t const m, integer_t const p,
- integer_t const n, double* a, integer_t const lda, double* taua,
- double* b, integer_t const ldb, double* taub, double* work,
- integer_t const lwork, integer_t& info ) {
+ inline void ggrqf( const integer_t m, const integer_t p,
+ const integer_t n, double* a, const integer_t lda, double* taua,
+ double* b, const integer_t ldb, double* taub, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DGGRQF( &m, &p, &n, a, &lda, taua, b, &ldb, taub, work, &lwork,
                 &info );
     }
- inline void ggrqf( integer_t const m, integer_t const p,
- integer_t const n, traits::complex_f* a, integer_t const lda,
+ inline void ggrqf( const integer_t m, const integer_t p,
+ const integer_t n, traits::complex_f* a, const integer_t lda,
             traits::complex_f* taua, traits::complex_f* b,
- integer_t const ldb, traits::complex_f* taub,
- traits::complex_f* work, integer_t const lwork, integer_t& info ) {
+ const integer_t ldb, traits::complex_f* taub,
+ traits::complex_f* work, const integer_t lwork, integer_t& info ) {
         LAPACK_CGGRQF( &m, &p, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(taua), traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(taub), traits::complex_ptr(work), &lwork,
                 &info );
     }
- inline void ggrqf( integer_t const m, integer_t const p,
- integer_t const n, traits::complex_d* a, integer_t const lda,
+ inline void ggrqf( const integer_t m, const integer_t p,
+ const integer_t n, traits::complex_d* a, const integer_t lda,
             traits::complex_d* taua, traits::complex_d* b,
- integer_t const ldb, traits::complex_d* taub,
- traits::complex_d* work, integer_t const lwork, integer_t& info ) {
+ const integer_t ldb, traits::complex_d* taub,
+ traits::complex_d* work, const integer_t lwork, integer_t& info ) {
         LAPACK_ZGGRQF( &m, &p, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(taua), traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(taub), traits::complex_ptr(work), &lwork,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggsvp.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggsvp.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ggsvp.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,35 +36,35 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ggsvp( char const jobu, char const jobv, char const jobq,
- integer_t const m, integer_t const p, integer_t const n, float* a,
- integer_t const lda, float* b, integer_t const ldb,
- float const tola, float const tolb, integer_t& k, integer_t& l,
- float* u, integer_t const ldu, float* v, integer_t const ldv,
- float* q, integer_t const ldq, integer_t* iwork, float* tau,
+ inline void ggsvp( const char jobu, const char jobv, const char jobq,
+ const integer_t m, const integer_t p, const integer_t n, float* a,
+ const integer_t lda, float* b, const integer_t ldb,
+ const float tola, const float tolb, integer_t& k, integer_t& l,
+ float* u, const integer_t ldu, float* v, const integer_t ldv,
+ float* q, const integer_t ldq, integer_t* iwork, float* tau,
             float* work, integer_t& info ) {
         LAPACK_SGGSVP( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda, b, &ldb,
                 &tola, &tolb, &k, &l, u, &ldu, v, &ldv, q, &ldq, iwork, tau,
                 work, &info );
     }
- inline void ggsvp( char const jobu, char const jobv, char const jobq,
- integer_t const m, integer_t const p, integer_t const n,
- double* a, integer_t const lda, double* b, integer_t const ldb,
- double const tola, double const tolb, integer_t& k, integer_t& l,
- double* u, integer_t const ldu, double* v, integer_t const ldv,
- double* q, integer_t const ldq, integer_t* iwork, double* tau,
+ inline void ggsvp( const char jobu, const char jobv, const char jobq,
+ const integer_t m, const integer_t p, const integer_t n,
+ double* a, const integer_t lda, double* b, const integer_t ldb,
+ const double tola, const double tolb, integer_t& k, integer_t& l,
+ double* u, const integer_t ldu, double* v, const integer_t ldv,
+ double* q, const integer_t ldq, integer_t* iwork, double* tau,
             double* work, integer_t& info ) {
         LAPACK_DGGSVP( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda, b, &ldb,
                 &tola, &tolb, &k, &l, u, &ldu, v, &ldv, q, &ldq, iwork, tau,
                 work, &info );
     }
- inline void ggsvp( char const jobu, char const jobv, char const jobq,
- integer_t const m, integer_t const p, integer_t const n,
- traits::complex_f* a, integer_t const lda, traits::complex_f* b,
- integer_t const ldb, float const tola, float const tolb,
+ inline void ggsvp( const char jobu, const char jobv, const char jobq,
+ const integer_t m, const integer_t p, const integer_t n,
+ traits::complex_f* a, const integer_t lda, traits::complex_f* b,
+ const integer_t ldb, const float tola, const float tolb,
             integer_t& k, integer_t& l, traits::complex_f* u,
- integer_t const ldu, traits::complex_f* v, integer_t const ldv,
- traits::complex_f* q, integer_t const ldq, integer_t* iwork,
+ const integer_t ldu, traits::complex_f* v, const integer_t ldv,
+ traits::complex_f* q, const integer_t ldq, integer_t* iwork,
             float* rwork, traits::complex_f* tau, traits::complex_f* work,
             integer_t& info ) {
         LAPACK_CGGSVP( &jobu, &jobv, &jobq, &m, &p, &n,
@@ -74,13 +74,13 @@
                 iwork, rwork, traits::complex_ptr(tau),
                 traits::complex_ptr(work), &info );
     }
- inline void ggsvp( char const jobu, char const jobv, char const jobq,
- integer_t const m, integer_t const p, integer_t const n,
- traits::complex_d* a, integer_t const lda, traits::complex_d* b,
- integer_t const ldb, double const tola, double const tolb,
+ inline void ggsvp( const char jobu, const char jobv, const char jobq,
+ const integer_t m, const integer_t p, const integer_t n,
+ traits::complex_d* a, const integer_t lda, traits::complex_d* b,
+ const integer_t ldb, const double tola, const double tolb,
             integer_t& k, integer_t& l, traits::complex_d* u,
- integer_t const ldu, traits::complex_d* v, integer_t const ldv,
- traits::complex_d* q, integer_t const ldq, integer_t* iwork,
+ const integer_t ldu, traits::complex_d* v, const integer_t ldv,
+ traits::complex_d* q, const integer_t ldq, integer_t* iwork,
             double* rwork, traits::complex_d* tau, traits::complex_d* work,
             integer_t& info ) {
         LAPACK_ZGGSVP( &jobu, &jobv, &jobq, &m, &p, &n,
@@ -107,9 +107,9 @@
     template< typename MatrixA, typename MatrixB, typename MatrixU,
             typename MatrixV, typename MatrixQ, typename IWORK, typename TAU,
             typename WORK >
- static void invoke( char const jobu, char const jobv, char const jobq,
- MatrixA& a, MatrixB& b, real_type const tola,
- real_type const tolb, integer_t& k, integer_t& l, MatrixU& u,
+ static void invoke( const char jobu, const char jobv, const char jobq,
+ MatrixA& a, MatrixB& b, const real_type tola,
+ const real_type tolb, integer_t& k, integer_t& l, MatrixU& u,
             MatrixV& v, MatrixQ& q, integer_t& info, detail::workspace3<
             IWORK, TAU, WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
@@ -157,9 +157,9 @@
     // minimal workspace specialization
     template< typename MatrixA, typename MatrixB, typename MatrixU,
             typename MatrixV, typename MatrixQ >
- static void invoke( char const jobu, char const jobv, char const jobq,
- MatrixA& a, MatrixB& b, real_type const tola,
- real_type const tolb, integer_t& k, integer_t& l, MatrixU& u,
+ static void invoke( const char jobu, const char jobv, const char jobq,
+ MatrixA& a, MatrixB& b, const real_type tola,
+ const real_type tolb, integer_t& k, integer_t& l, MatrixU& u,
             MatrixV& v, MatrixQ& q, integer_t& info, minimal_workspace work ) {
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork(
                 traits::matrix_num_columns(b) ) );
@@ -175,24 +175,24 @@
     // optimal workspace specialization
     template< typename MatrixA, typename MatrixB, typename MatrixU,
             typename MatrixV, typename MatrixQ >
- static void invoke( char const jobu, char const jobv, char const jobq,
- MatrixA& a, MatrixB& b, real_type const tola,
- real_type const tolb, integer_t& k, integer_t& l, MatrixU& u,
+ static void invoke( const char jobu, const char jobv, const char jobq,
+ MatrixA& a, MatrixB& b, const real_type tola,
+ const real_type tolb, integer_t& k, integer_t& l, MatrixU& u,
             MatrixV& v, MatrixQ& q, integer_t& info, optimal_workspace work ) {
         invoke( jobu, jobv, jobq, a, b, tola, tolb, k, l, u, v, q, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 
- static integer_t min_size_tau( integer_t const n ) {
+ static integer_t min_size_tau( const integer_t n ) {
         return n;
     }
 
- static integer_t min_size_work( integer_t const n, integer_t const m,
- integer_t const p ) {
+ static integer_t min_size_work( const integer_t n, const integer_t m,
+ const integer_t p ) {
         return std::max(3*n,std::max(m,p));
     }
 };
@@ -208,9 +208,9 @@
     template< typename MatrixA, typename MatrixB, typename MatrixU,
             typename MatrixV, typename MatrixQ, typename IWORK,
             typename RWORK, typename TAU, typename WORK >
- static void invoke( char const jobu, char const jobv, char const jobq,
- MatrixA& a, MatrixB& b, real_type const tola,
- real_type const tolb, integer_t& k, integer_t& l, MatrixU& u,
+ static void invoke( const char jobu, const char jobv, const char jobq,
+ MatrixA& a, MatrixB& b, const real_type tola,
+ const real_type tolb, integer_t& k, integer_t& l, MatrixU& u,
             MatrixV& v, MatrixQ& q, integer_t& info, detail::workspace4<
             IWORK, RWORK, TAU, WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
@@ -261,9 +261,9 @@
     // minimal workspace specialization
     template< typename MatrixA, typename MatrixB, typename MatrixU,
             typename MatrixV, typename MatrixQ >
- static void invoke( char const jobu, char const jobv, char const jobq,
- MatrixA& a, MatrixB& b, real_type const tola,
- real_type const tolb, integer_t& k, integer_t& l, MatrixU& u,
+ static void invoke( const char jobu, const char jobv, const char jobq,
+ MatrixA& a, MatrixB& b, const real_type tola,
+ const real_type tolb, integer_t& k, integer_t& l, MatrixU& u,
             MatrixV& v, MatrixQ& q, integer_t& info, minimal_workspace work ) {
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork(
                 traits::matrix_num_columns(b) ) );
@@ -281,28 +281,28 @@
     // optimal workspace specialization
     template< typename MatrixA, typename MatrixB, typename MatrixU,
             typename MatrixV, typename MatrixQ >
- static void invoke( char const jobu, char const jobv, char const jobq,
- MatrixA& a, MatrixB& b, real_type const tola,
- real_type const tolb, integer_t& k, integer_t& l, MatrixU& u,
+ static void invoke( const char jobu, const char jobv, const char jobq,
+ MatrixA& a, MatrixB& b, const real_type tola,
+ const real_type tolb, integer_t& k, integer_t& l, MatrixU& u,
             MatrixV& v, MatrixQ& q, integer_t& info, optimal_workspace work ) {
         invoke( jobu, jobv, jobq, a, b, tola, tolb, k, l, u, v, q, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_tau( integer_t const n ) {
+ static integer_t min_size_tau( const integer_t n ) {
         return n;
     }
 
- static integer_t min_size_work( integer_t const n, integer_t const m,
- integer_t const p ) {
+ static integer_t min_size_work( const integer_t n, const integer_t m,
+ const integer_t p ) {
         return std::max(3*n,std::max(m,p));
     }
 };
@@ -311,13 +311,13 @@
 // template function to call ggsvp
 template< typename MatrixA, typename MatrixB, typename MatrixU,
         typename MatrixV, typename MatrixQ, typename Workspace >
-inline integer_t ggsvp( char const jobu, char const jobv,
- char const jobq, MatrixA& a, MatrixB& b, typename traits::type_traits<
- typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const tola,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const tolb, integer_t& k,
- integer_t& l, MatrixU& u, MatrixV& v, MatrixQ& q, Workspace work ) {
+inline integer_t ggsvp( const char jobu, const char jobv,
+ const char jobq, MatrixA& a, MatrixB& b,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type tola,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type tolb, integer_t& k, integer_t& l,
+ MatrixU& u, MatrixV& v, MatrixQ& q, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ggsvp_impl< value_type >::invoke( jobu, jobv, jobq, a, b, tola, tolb,
@@ -328,13 +328,13 @@
 // template function to call ggsvp, default workspace type
 template< typename MatrixA, typename MatrixB, typename MatrixU,
         typename MatrixV, typename MatrixQ >
-inline integer_t ggsvp( char const jobu, char const jobv,
- char const jobq, MatrixA& a, MatrixB& b, typename traits::type_traits<
- typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const tola,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const tolb, integer_t& k,
- integer_t& l, MatrixU& u, MatrixV& v, MatrixQ& q ) {
+inline integer_t ggsvp( const char jobu, const char jobv,
+ const char jobq, MatrixA& a, MatrixB& b,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type tola,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type tolb, integer_t& k, integer_t& l,
+ MatrixU& u, MatrixV& v, MatrixQ& q ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ggsvp_impl< value_type >::invoke( jobu, jobv, jobq, a, b, tola, tolb,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gtrfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gtrfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gtrfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,29 +36,33 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gtrfs( char const trans, integer_t const n,
- integer_t const nrhs, float* dl, float* d, float* du, float* dlf,
- float* df, float* duf, float* du2, integer_t* ipiv, float* b,
- integer_t const ldb, float* x, integer_t const ldx, float* ferr,
- float* berr, float* work, integer_t* iwork, integer_t& info ) {
+ inline void gtrfs( const char trans, const integer_t n,
+ const integer_t nrhs, const float* dl, const float* d,
+ const float* du, const float* dlf, const float* df,
+ const float* duf, const float* du2, const integer_t* ipiv,
+ const float* b, const integer_t ldb, float* x,
+ const integer_t ldx, float* ferr, float* berr, float* work,
+ integer_t* iwork, integer_t& info ) {
         LAPACK_SGTRFS( &trans, &n, &nrhs, dl, d, du, dlf, df, duf, du2, ipiv,
                 b, &ldb, x, &ldx, ferr, berr, work, iwork, &info );
     }
- inline void gtrfs( char const trans, integer_t const n,
- integer_t const nrhs, double* dl, double* d, double* du,
- double* dlf, double* df, double* duf, double* du2,
- integer_t* ipiv, double* b, integer_t const ldb, double* x,
- integer_t const ldx, double* ferr, double* berr, double* work,
+ inline void gtrfs( const char trans, const integer_t n,
+ const integer_t nrhs, const double* dl, const double* d,
+ const double* du, const double* dlf, const double* df,
+ const double* duf, const double* du2, const integer_t* ipiv,
+ const double* b, const integer_t ldb, double* x,
+ const integer_t ldx, double* ferr, double* berr, double* work,
             integer_t* iwork, integer_t& info ) {
         LAPACK_DGTRFS( &trans, &n, &nrhs, dl, d, du, dlf, df, duf, du2, ipiv,
                 b, &ldb, x, &ldx, ferr, berr, work, iwork, &info );
     }
- inline void gtrfs( char const trans, integer_t const n,
- integer_t const nrhs, traits::complex_f* dl, traits::complex_f* d,
- traits::complex_f* du, traits::complex_f* dlf,
- traits::complex_f* df, traits::complex_f* duf,
- traits::complex_f* du2, integer_t* ipiv, traits::complex_f* b,
- integer_t const ldb, traits::complex_f* x, integer_t const ldx,
+ inline void gtrfs( const char trans, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* dl,
+ const traits::complex_f* d, const traits::complex_f* du,
+ const traits::complex_f* dlf, const traits::complex_f* df,
+ const traits::complex_f* duf, const traits::complex_f* du2,
+ const integer_t* ipiv, const traits::complex_f* b,
+ const integer_t ldb, traits::complex_f* x, const integer_t ldx,
             float* ferr, float* berr, traits::complex_f* work, float* rwork,
             integer_t& info ) {
         LAPACK_CGTRFS( &trans, &n, &nrhs, traits::complex_ptr(dl),
@@ -68,12 +72,13 @@
                 traits::complex_ptr(b), &ldb, traits::complex_ptr(x), &ldx,
                 ferr, berr, traits::complex_ptr(work), rwork, &info );
     }
- inline void gtrfs( char const trans, integer_t const n,
- integer_t const nrhs, traits::complex_d* dl, traits::complex_d* d,
- traits::complex_d* du, traits::complex_d* dlf,
- traits::complex_d* df, traits::complex_d* duf,
- traits::complex_d* du2, integer_t* ipiv, traits::complex_d* b,
- integer_t const ldb, traits::complex_d* x, integer_t const ldx,
+ inline void gtrfs( const char trans, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* dl,
+ const traits::complex_d* d, const traits::complex_d* du,
+ const traits::complex_d* dlf, const traits::complex_d* df,
+ const traits::complex_d* duf, const traits::complex_d* du2,
+ const integer_t* ipiv, const traits::complex_d* b,
+ const integer_t ldb, traits::complex_d* x, const integer_t ldx,
             double* ferr, double* berr, traits::complex_d* work,
             double* rwork, integer_t& info ) {
         LAPACK_ZGTRFS( &trans, &n, &nrhs, traits::complex_ptr(dl),
@@ -102,9 +107,10 @@
             typename VectorDU2, typename VectorIPIV, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR,
             typename WORK, typename IWORK >
- static void invoke( char const trans, integer_t const n, VectorDL& dl,
- VectorD& d, VectorDU& du, VectorDLF& dlf, VectorDF& df,
- VectorDUF& duf, VectorDU2& du2, VectorIPIV& ipiv, MatrixB& b,
+ static void invoke( const char trans, const integer_t n,
+ const VectorDL& dl, const VectorD& d, const VectorDU& du,
+ const VectorDLF& dlf, const VectorDF& df, const VectorDUF& duf,
+ const VectorDU2& du2, const VectorIPIV& ipiv, const MatrixB& b,
             MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -173,9 +179,10 @@
             typename VectorDLF, typename VectorDF, typename VectorDUF,
             typename VectorDU2, typename VectorIPIV, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( char const trans, integer_t const n, VectorDL& dl,
- VectorD& d, VectorDU& du, VectorDLF& dlf, VectorDF& df,
- VectorDUF& duf, VectorDU2& du2, VectorIPIV& ipiv, MatrixB& b,
+ static void invoke( const char trans, const integer_t n,
+ const VectorDL& dl, const VectorD& d, const VectorDU& du,
+ const VectorDLF& dlf, const VectorDF& df, const VectorDUF& duf,
+ const VectorDU2& du2, const VectorIPIV& ipiv, const MatrixB& b,
             MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
@@ -189,20 +196,21 @@
             typename VectorDLF, typename VectorDF, typename VectorDUF,
             typename VectorDU2, typename VectorIPIV, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( char const trans, integer_t const n, VectorDL& dl,
- VectorD& d, VectorDU& du, VectorDLF& dlf, VectorDF& df,
- VectorDUF& duf, VectorDU2& du2, VectorIPIV& ipiv, MatrixB& b,
+ static void invoke( const char trans, const integer_t n,
+ const VectorDL& dl, const VectorD& d, const VectorDU& du,
+ const VectorDLF& dlf, const VectorDF& df, const VectorDUF& duf,
+ const VectorDU2& du2, const VectorIPIV& ipiv, const MatrixB& b,
             MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             optimal_workspace work ) {
         invoke( trans, n, dl, d, du, dlf, df, duf, du2, ipiv, b, x, ferr,
                 berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -220,9 +228,10 @@
             typename VectorDU2, typename VectorIPIV, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR,
             typename WORK, typename RWORK >
- static void invoke( char const trans, integer_t const n, VectorDL& dl,
- VectorD& d, VectorDU& du, VectorDLF& dlf, VectorDF& df,
- VectorDUF& duf, VectorDU2& du2, VectorIPIV& ipiv, MatrixB& b,
+ static void invoke( const char trans, const integer_t n,
+ const VectorDL& dl, const VectorD& d, const VectorDU& du,
+ const VectorDLF& dlf, const VectorDF& df, const VectorDUF& duf,
+ const VectorDU2& du2, const VectorIPIV& ipiv, const MatrixB& b,
             MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -288,9 +297,10 @@
             typename VectorDLF, typename VectorDF, typename VectorDUF,
             typename VectorDU2, typename VectorIPIV, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( char const trans, integer_t const n, VectorDL& dl,
- VectorD& d, VectorDU& du, VectorDLF& dlf, VectorDF& df,
- VectorDUF& duf, VectorDU2& du2, VectorIPIV& ipiv, MatrixB& b,
+ static void invoke( const char trans, const integer_t n,
+ const VectorDL& dl, const VectorD& d, const VectorDU& du,
+ const VectorDLF& dlf, const VectorDF& df, const VectorDUF& duf,
+ const VectorDU2& du2, const VectorIPIV& ipiv, const MatrixB& b,
             MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
@@ -304,20 +314,21 @@
             typename VectorDLF, typename VectorDF, typename VectorDUF,
             typename VectorDU2, typename VectorIPIV, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( char const trans, integer_t const n, VectorDL& dl,
- VectorD& d, VectorDU& du, VectorDLF& dlf, VectorDF& df,
- VectorDUF& duf, VectorDU2& du2, VectorIPIV& ipiv, MatrixB& b,
+ static void invoke( const char trans, const integer_t n,
+ const VectorDL& dl, const VectorD& d, const VectorDU& du,
+ const VectorDLF& dlf, const VectorDF& df, const VectorDUF& duf,
+ const VectorDU2& du2, const VectorIPIV& ipiv, const MatrixB& b,
             MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             optimal_workspace work ) {
         invoke( trans, n, dl, d, du, dlf, df, duf, du2, ipiv, b, x, ferr,
                 berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -329,9 +340,10 @@
         typename VectorDU2, typename VectorIPIV, typename MatrixB,
         typename MatrixX, typename VectorFERR, typename VectorBERR,
         typename Workspace >
-inline integer_t gtrfs( char const trans, integer_t const n,
- VectorDL& dl, VectorD& d, VectorDU& du, VectorDLF& dlf, VectorDF& df,
- VectorDUF& duf, VectorDU2& du2, VectorIPIV& ipiv, MatrixB& b,
+inline integer_t gtrfs( const char trans, const integer_t n,
+ const VectorDL& dl, const VectorD& d, const VectorDU& du,
+ const VectorDLF& dlf, const VectorDF& df, const VectorDUF& duf,
+ const VectorDU2& du2, const VectorIPIV& ipiv, const MatrixB& b,
         MatrixX& x, VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
     typedef typename traits::vector_traits< VectorDL >::value_type value_type;
     integer_t info(0);
@@ -345,9 +357,10 @@
         typename VectorDLF, typename VectorDF, typename VectorDUF,
         typename VectorDU2, typename VectorIPIV, typename MatrixB,
         typename MatrixX, typename VectorFERR, typename VectorBERR >
-inline integer_t gtrfs( char const trans, integer_t const n,
- VectorDL& dl, VectorD& d, VectorDU& du, VectorDLF& dlf, VectorDF& df,
- VectorDUF& duf, VectorDU2& du2, VectorIPIV& ipiv, MatrixB& b,
+inline integer_t gtrfs( const char trans, const integer_t n,
+ const VectorDL& dl, const VectorD& d, const VectorDU& du,
+ const VectorDLF& dlf, const VectorDF& df, const VectorDUF& duf,
+ const VectorDU2& du2, const VectorIPIV& ipiv, const MatrixB& b,
         MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::vector_traits< VectorDL >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gttrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gttrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/gttrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,32 +31,35 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void gttrs( char const trans, integer_t const n,
- integer_t const nrhs, float* dl, float* d, float* du, float* du2,
- integer_t* ipiv, float* b, integer_t const ldb, integer_t& info ) {
+ inline void gttrs( const char trans, const integer_t n,
+ const integer_t nrhs, const float* dl, const float* d,
+ const float* du, const float* du2, const integer_t* ipiv,
+ float* b, const integer_t ldb, integer_t& info ) {
         LAPACK_SGTTRS( &trans, &n, &nrhs, dl, d, du, du2, ipiv, b, &ldb,
                 &info );
     }
- inline void gttrs( char const trans, integer_t const n,
- integer_t const nrhs, double* dl, double* d, double* du,
- double* du2, integer_t* ipiv, double* b, integer_t const ldb,
- integer_t& info ) {
+ inline void gttrs( const char trans, const integer_t n,
+ const integer_t nrhs, const double* dl, const double* d,
+ const double* du, const double* du2, const integer_t* ipiv,
+ double* b, const integer_t ldb, integer_t& info ) {
         LAPACK_DGTTRS( &trans, &n, &nrhs, dl, d, du, du2, ipiv, b, &ldb,
                 &info );
     }
- inline void gttrs( char const trans, integer_t const n,
- integer_t const nrhs, traits::complex_f* dl, traits::complex_f* d,
- traits::complex_f* du, traits::complex_f* du2, integer_t* ipiv,
- traits::complex_f* b, integer_t const ldb, integer_t& info ) {
+ inline void gttrs( const char trans, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* dl,
+ const traits::complex_f* d, const traits::complex_f* du,
+ const traits::complex_f* du2, const integer_t* ipiv,
+ traits::complex_f* b, const integer_t ldb, integer_t& info ) {
         LAPACK_CGTTRS( &trans, &n, &nrhs, traits::complex_ptr(dl),
                 traits::complex_ptr(d), traits::complex_ptr(du),
                 traits::complex_ptr(du2), ipiv, traits::complex_ptr(b), &ldb,
                 &info );
     }
- inline void gttrs( char const trans, integer_t const n,
- integer_t const nrhs, traits::complex_d* dl, traits::complex_d* d,
- traits::complex_d* du, traits::complex_d* du2, integer_t* ipiv,
- traits::complex_d* b, integer_t const ldb, integer_t& info ) {
+ inline void gttrs( const char trans, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* dl,
+ const traits::complex_d* d, const traits::complex_d* du,
+ const traits::complex_d* du2, const integer_t* ipiv,
+ traits::complex_d* b, const integer_t ldb, integer_t& info ) {
         LAPACK_ZGTTRS( &trans, &n, &nrhs, traits::complex_ptr(dl),
                 traits::complex_ptr(d), traits::complex_ptr(du),
                 traits::complex_ptr(du2), ipiv, traits::complex_ptr(b), &ldb,
@@ -74,9 +77,10 @@
     // templated specialization
     template< typename VectorDL, typename VectorD, typename VectorDU,
             typename VectorDU2, typename VectorIPIV, typename MatrixB >
- static void invoke( char const trans, integer_t const n, VectorDL& dl,
- VectorD& d, VectorDU& du, VectorDU2& du2, VectorIPIV& ipiv,
- MatrixB& b, integer_t& info ) {
+ static void invoke( const char trans, const integer_t n,
+ const VectorDL& dl, const VectorD& d, const VectorDU& du,
+ const VectorDU2& du2, const VectorIPIV& ipiv, MatrixB& b,
+ integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorDL >::value_type, typename traits::vector_traits<
                 VectorD >::value_type >::value) );
@@ -109,9 +113,9 @@
 // template function to call gttrs
 template< typename VectorDL, typename VectorD, typename VectorDU,
         typename VectorDU2, typename VectorIPIV, typename MatrixB >
-inline integer_t gttrs( char const trans, integer_t const n,
- VectorDL& dl, VectorD& d, VectorDU& du, VectorDU2& du2,
- VectorIPIV& ipiv, MatrixB& b ) {
+inline integer_t gttrs( const char trans, const integer_t n,
+ const VectorDL& dl, const VectorD& d, const VectorDU& du,
+ const VectorDU2& du2, const VectorIPIV& ipiv, MatrixB& b ) {
     typedef typename traits::vector_traits< VectorDL >::value_type value_type;
     integer_t info(0);
     gttrs_impl< value_type >::invoke( trans, n, dl, d, du, du2, ipiv, b,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hbgst.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hbgst.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hbgst.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,19 +33,19 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hbgst( char const vect, char const uplo, integer_t const n,
- integer_t const ka, integer_t const kb, traits::complex_f* ab,
- integer_t const ldab, traits::complex_f* bb, integer_t const ldbb,
- traits::complex_f* x, integer_t const ldx,
+ inline void hbgst( const char vect, const char uplo, const integer_t n,
+ const integer_t ka, const integer_t kb, traits::complex_f* ab,
+ const integer_t ldab, const traits::complex_f* bb,
+ const integer_t ldbb, traits::complex_f* x, const integer_t ldx,
             traits::complex_f* work, float* rwork, integer_t& info ) {
         LAPACK_CHBGST( &vect, &uplo, &n, &ka, &kb, traits::complex_ptr(ab),
                 &ldab, traits::complex_ptr(bb), &ldbb, traits::complex_ptr(x),
                 &ldx, traits::complex_ptr(work), rwork, &info );
     }
- inline void hbgst( char const vect, char const uplo, integer_t const n,
- integer_t const ka, integer_t const kb, traits::complex_d* ab,
- integer_t const ldab, traits::complex_d* bb, integer_t const ldbb,
- traits::complex_d* x, integer_t const ldx,
+ inline void hbgst( const char vect, const char uplo, const integer_t n,
+ const integer_t ka, const integer_t kb, traits::complex_d* ab,
+ const integer_t ldab, const traits::complex_d* bb,
+ const integer_t ldbb, traits::complex_d* x, const integer_t ldx,
             traits::complex_d* work, double* rwork, integer_t& info ) {
         LAPACK_ZHBGST( &vect, &uplo, &n, &ka, &kb, traits::complex_ptr(ab),
                 &ldab, traits::complex_ptr(bb), &ldbb, traits::complex_ptr(x),
@@ -63,10 +63,10 @@
     // user-defined workspace specialization
     template< typename MatrixAB, typename MatrixBB, typename MatrixX,
             typename WORK, typename RWORK >
- static void invoke( char const vect, integer_t const n,
- integer_t const ka, integer_t const kb, MatrixAB& ab,
- MatrixBB& bb, MatrixX& x, integer_t& info, detail::workspace2<
- WORK, RWORK > work ) {
+ static void invoke( const char vect, const integer_t n,
+ const integer_t ka, const integer_t kb, MatrixAB& ab,
+ const MatrixBB& bb, MatrixX& x, integer_t& info,
+ detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::matrix_traits<
                 MatrixBB >::value_type >::value) );
@@ -95,9 +95,9 @@
 
     // minimal workspace specialization
     template< typename MatrixAB, typename MatrixBB, typename MatrixX >
- static void invoke( char const vect, integer_t const n,
- integer_t const ka, integer_t const kb, MatrixAB& ab,
- MatrixBB& bb, MatrixX& x, integer_t& info,
+ static void invoke( const char vect, const integer_t n,
+ const integer_t ka, const integer_t kb, MatrixAB& ab,
+ const MatrixBB& bb, MatrixX& x, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
@@ -107,18 +107,18 @@
 
     // optimal workspace specialization
     template< typename MatrixAB, typename MatrixBB, typename MatrixX >
- static void invoke( char const vect, integer_t const n,
- integer_t const ka, integer_t const kb, MatrixAB& ab,
- MatrixBB& bb, MatrixX& x, integer_t& info,
+ static void invoke( const char vect, const integer_t n,
+ const integer_t ka, const integer_t kb, MatrixAB& ab,
+ const MatrixBB& bb, MatrixX& x, integer_t& info,
             optimal_workspace work ) {
         invoke( vect, n, ka, kb, ab, bb, x, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -127,9 +127,9 @@
 // template function to call hbgst
 template< typename MatrixAB, typename MatrixBB, typename MatrixX,
         typename Workspace >
-inline integer_t hbgst( char const vect, integer_t const n,
- integer_t const ka, integer_t const kb, MatrixAB& ab, MatrixBB& bb,
- MatrixX& x, Workspace work ) {
+inline integer_t hbgst( const char vect, const integer_t n,
+ const integer_t ka, const integer_t kb, MatrixAB& ab,
+ const MatrixBB& bb, MatrixX& x, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     hbgst_impl< value_type >::invoke( vect, n, ka, kb, ab, bb, x, info,
@@ -139,9 +139,9 @@
 
 // template function to call hbgst, default workspace type
 template< typename MatrixAB, typename MatrixBB, typename MatrixX >
-inline integer_t hbgst( char const vect, integer_t const n,
- integer_t const ka, integer_t const kb, MatrixAB& ab, MatrixBB& bb,
- MatrixX& x ) {
+inline integer_t hbgst( const char vect, const integer_t n,
+ const integer_t ka, const integer_t kb, MatrixAB& ab,
+ const MatrixBB& bb, MatrixX& x ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     hbgst_impl< value_type >::invoke( vect, n, ka, kb, ab, bb, x, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hbtrd.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hbtrd.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hbtrd.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,17 +33,17 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hbtrd( char const vect, char const uplo, integer_t const n,
- integer_t const kd, traits::complex_f* ab, integer_t const ldab,
- float* d, float* e, traits::complex_f* q, integer_t const ldq,
+ inline void hbtrd( const char vect, const char uplo, const integer_t n,
+ const integer_t kd, traits::complex_f* ab, const integer_t ldab,
+ float* d, float* e, traits::complex_f* q, const integer_t ldq,
             traits::complex_f* work, integer_t& info ) {
         LAPACK_CHBTRD( &vect, &uplo, &n, &kd, traits::complex_ptr(ab), &ldab,
                 d, e, traits::complex_ptr(q), &ldq, traits::complex_ptr(work),
                 &info );
     }
- inline void hbtrd( char const vect, char const uplo, integer_t const n,
- integer_t const kd, traits::complex_d* ab, integer_t const ldab,
- double* d, double* e, traits::complex_d* q, integer_t const ldq,
+ inline void hbtrd( const char vect, const char uplo, const integer_t n,
+ const integer_t kd, traits::complex_d* ab, const integer_t ldab,
+ double* d, double* e, traits::complex_d* q, const integer_t ldq,
             traits::complex_d* work, integer_t& info ) {
         LAPACK_ZHBTRD( &vect, &uplo, &n, &kd, traits::complex_ptr(ab), &ldab,
                 d, e, traits::complex_ptr(q), &ldq, traits::complex_ptr(work),
@@ -61,8 +61,8 @@
     // user-defined workspace specialization
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ, typename WORK >
- static void invoke( char const vect, integer_t const n,
- integer_t const kd, MatrixAB& ab, VectorD& d, VectorE& e,
+ static void invoke( const char vect, const integer_t n,
+ const integer_t kd, MatrixAB& ab, VectorD& d, VectorE& e,
             MatrixQ& q, integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorD >::value_type, typename traits::vector_traits<
@@ -89,8 +89,8 @@
     // minimal workspace specialization
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ >
- static void invoke( char const vect, integer_t const n,
- integer_t const kd, MatrixAB& ab, VectorD& d, VectorE& e,
+ static void invoke( const char vect, const integer_t n,
+ const integer_t kd, MatrixAB& ab, VectorD& d, VectorE& e,
             MatrixQ& q, integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         invoke( vect, n, kd, ab, d, e, q, info, workspace( tmp_work ) );
@@ -99,13 +99,13 @@
     // optimal workspace specialization
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ >
- static void invoke( char const vect, integer_t const n,
- integer_t const kd, MatrixAB& ab, VectorD& d, VectorE& e,
+ static void invoke( const char vect, const integer_t n,
+ const integer_t kd, MatrixAB& ab, VectorD& d, VectorE& e,
             MatrixQ& q, integer_t& info, optimal_workspace work ) {
         invoke( vect, n, kd, ab, d, e, q, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return n;
     }
 };
@@ -114,8 +114,8 @@
 // template function to call hbtrd
 template< typename MatrixAB, typename VectorD, typename VectorE,
         typename MatrixQ, typename Workspace >
-inline integer_t hbtrd( char const vect, integer_t const n,
- integer_t const kd, MatrixAB& ab, VectorD& d, VectorE& e, MatrixQ& q,
+inline integer_t hbtrd( const char vect, const integer_t n,
+ const integer_t kd, MatrixAB& ab, VectorD& d, VectorE& e, MatrixQ& q,
         Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
@@ -127,8 +127,8 @@
 // template function to call hbtrd, default workspace type
 template< typename MatrixAB, typename VectorD, typename VectorE,
         typename MatrixQ >
-inline integer_t hbtrd( char const vect, integer_t const n,
- integer_t const kd, MatrixAB& ab, VectorD& d, VectorE& e,
+inline integer_t hbtrd( const char vect, const integer_t n,
+ const integer_t kd, MatrixAB& ab, VectorD& d, VectorE& e,
         MatrixQ& q ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hecon.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hecon.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hecon.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,17 +33,17 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hecon( char const uplo, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t* ipiv,
- float const anorm, float& rcond, traits::complex_f* work,
- integer_t& info ) {
+ inline void hecon( const char uplo, const integer_t n,
+ const traits::complex_f* a, const integer_t lda,
+ const integer_t* ipiv, const float anorm, float& rcond,
+ traits::complex_f* work, integer_t& info ) {
         LAPACK_CHECON( &uplo, &n, traits::complex_ptr(a), &lda, ipiv, &anorm,
                 &rcond, traits::complex_ptr(work), &info );
     }
- inline void hecon( char const uplo, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t* ipiv,
- double const anorm, double& rcond, traits::complex_d* work,
- integer_t& info ) {
+ inline void hecon( const char uplo, const integer_t n,
+ const traits::complex_d* a, const integer_t lda,
+ const integer_t* ipiv, const double anorm, double& rcond,
+ traits::complex_d* work, integer_t& info ) {
         LAPACK_ZHECON( &uplo, &n, traits::complex_ptr(a), &lda, ipiv, &anorm,
                 &rcond, traits::complex_ptr(work), &info );
     }
@@ -58,9 +58,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorIPIV, typename WORK >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- real_type const anorm, real_type& rcond, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_ASSERT( uplo == 'U' || uplo == 'L' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
         BOOST_ASSERT( traits::leading_dimension(a) >= std::max(1,
@@ -77,9 +77,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- real_type const anorm, real_type& rcond, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         invoke( uplo, a, ipiv, anorm, rcond, info, workspace( tmp_work ) );
@@ -87,13 +87,13 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- real_type const anorm, real_type& rcond, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
+ integer_t& info, optimal_workspace work ) {
         invoke( uplo, a, ipiv, anorm, rcond, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 };
@@ -101,9 +101,10 @@
 
 // template function to call hecon
 template< typename MatrixA, typename VectorIPIV, typename Workspace >
-inline integer_t hecon( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const anorm,
+inline integer_t hecon( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const typename traits::type_traits<
+ typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& rcond, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
@@ -115,9 +116,10 @@
 
 // template function to call hecon, default workspace type
 template< typename MatrixA, typename VectorIPIV >
-inline integer_t hecon( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const anorm,
+inline integer_t hecon( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const typename traits::type_traits<
+ typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& rcond ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hegst.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hegst.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hegst.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,15 +31,17 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hegst( integer_t const itype, char const uplo,
- integer_t const n, traits::complex_f* a, integer_t const lda,
- traits::complex_f* b, integer_t const ldb, integer_t& info ) {
+ inline void hegst( const integer_t itype, const char uplo,
+ const integer_t n, traits::complex_f* a, const integer_t lda,
+ const traits::complex_f* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_CHEGST( &itype, &uplo, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void hegst( integer_t const itype, char const uplo,
- integer_t const n, traits::complex_d* a, integer_t const lda,
- traits::complex_d* b, integer_t const ldb, integer_t& info ) {
+ inline void hegst( const integer_t itype, const char uplo,
+ const integer_t n, traits::complex_d* a, const integer_t lda,
+ const traits::complex_d* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_ZHEGST( &itype, &uplo, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -54,8 +56,8 @@
 
     // templated specialization
     template< typename MatrixA, typename MatrixB >
- static void invoke( integer_t const itype, integer_t const n, MatrixA& a,
- MatrixB& b, integer_t& info ) {
+ static void invoke( const integer_t itype, const integer_t n, MatrixA& a,
+ const MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -74,8 +76,8 @@
 
 // template function to call hegst
 template< typename MatrixA, typename MatrixB >
-inline integer_t hegst( integer_t const itype, integer_t const n,
- MatrixA& a, MatrixB& b ) {
+inline integer_t hegst( const integer_t itype, const integer_t n,
+ MatrixA& a, const MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     hegst_impl< value_type >::invoke( itype, n, a, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/herfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/herfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/herfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,23 +33,27 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void herfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* a, integer_t const lda,
- traits::complex_f* af, integer_t const ldaf, integer_t* ipiv,
- traits::complex_f* b, integer_t const ldb, traits::complex_f* x,
- integer_t const ldx, float* ferr, float* berr,
- traits::complex_f* work, float* rwork, integer_t& info ) {
+ inline void herfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* a,
+ const integer_t lda, const traits::complex_f* af,
+ const integer_t ldaf, const integer_t* ipiv,
+ const traits::complex_f* b, const integer_t ldb,
+ traits::complex_f* x, const integer_t ldx, float* ferr,
+ float* berr, traits::complex_f* work, float* rwork,
+ integer_t& info ) {
         LAPACK_CHERFS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(af), &ldaf, ipiv, traits::complex_ptr(b),
                 &ldb, traits::complex_ptr(x), &ldx, ferr, berr,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void herfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* a, integer_t const lda,
- traits::complex_d* af, integer_t const ldaf, integer_t* ipiv,
- traits::complex_d* b, integer_t const ldb, traits::complex_d* x,
- integer_t const ldx, double* ferr, double* berr,
- traits::complex_d* work, double* rwork, integer_t& info ) {
+ inline void herfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* a,
+ const integer_t lda, const traits::complex_d* af,
+ const integer_t ldaf, const integer_t* ipiv,
+ const traits::complex_d* b, const integer_t ldb,
+ traits::complex_d* x, const integer_t ldx, double* ferr,
+ double* berr, traits::complex_d* work, double* rwork,
+ integer_t& info ) {
         LAPACK_ZHERFS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(af), &ldaf, ipiv, traits::complex_ptr(b),
                 &ldb, traits::complex_ptr(x), &ldx, ferr, berr,
@@ -68,9 +72,10 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR, typename WORK, typename RWORK >
- static void invoke( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, detail::workspace2< WORK, RWORK > work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorFERR >::value_type, typename traits::vector_traits<
                 VectorBERR >::value_type >::value) );
@@ -119,9 +124,10 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, minimal_workspace work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork(
@@ -134,17 +140,18 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, optimal_workspace work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( a, af, ipiv, b, x, ferr, berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -154,9 +161,9 @@
 template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR, typename Workspace >
-inline integer_t herfs( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- Workspace work ) {
+inline integer_t herfs( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     herfs_impl< value_type >::invoke( a, af, ipiv, b, x, ferr, berr,
@@ -168,8 +175,9 @@
 template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR >
-inline integer_t herfs( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
+inline integer_t herfs( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     herfs_impl< value_type >::invoke( a, af, ipiv, b, x, ferr, berr,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrd.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrd.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrd.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,18 +34,18 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hetrd( char const uplo, integer_t const n,
- traits::complex_f* a, integer_t const lda, float* d, float* e,
+ inline void hetrd( const char uplo, const integer_t n,
+ traits::complex_f* a, const integer_t lda, float* d, float* e,
             traits::complex_f* tau, traits::complex_f* work,
- integer_t const lwork, integer_t& info ) {
+ const integer_t lwork, integer_t& info ) {
         LAPACK_CHETRD( &uplo, &n, traits::complex_ptr(a), &lda, d, e,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );
     }
- inline void hetrd( char const uplo, integer_t const n,
- traits::complex_d* a, integer_t const lda, double* d, double* e,
+ inline void hetrd( const char uplo, const integer_t n,
+ traits::complex_d* a, const integer_t lda, double* d, double* e,
             traits::complex_d* tau, traits::complex_d* work,
- integer_t const lwork, integer_t& info ) {
+ const integer_t lwork, integer_t& info ) {
         LAPACK_ZHETRD( &uplo, &n, traits::complex_ptr(a), &lda, d, e,
                 traits::complex_ptr(tau), traits::complex_ptr(work), &lwork,
                 &info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,15 +33,15 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hetrf( char const uplo, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t* ipiv,
- traits::complex_f* work, integer_t const lwork, integer_t& info ) {
+ inline void hetrf( const char uplo, const integer_t n,
+ traits::complex_f* a, const integer_t lda, integer_t* ipiv,
+ traits::complex_f* work, const integer_t lwork, integer_t& info ) {
         LAPACK_CHETRF( &uplo, &n, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(work), &lwork, &info );
     }
- inline void hetrf( char const uplo, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t* ipiv,
- traits::complex_d* work, integer_t const lwork, integer_t& info ) {
+ inline void hetrf( const char uplo, const integer_t n,
+ traits::complex_d* a, const integer_t lda, integer_t* ipiv,
+ traits::complex_d* work, const integer_t lwork, integer_t& info ) {
         LAPACK_ZHETRF( &uplo, &n, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(work), &lwork, &info );
     }

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetri.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetri.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetri.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,14 +33,14 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hetri( char const uplo, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t* ipiv,
+ inline void hetri( const char uplo, const integer_t n,
+ traits::complex_f* a, const integer_t lda, const integer_t* ipiv,
             traits::complex_f* work, integer_t& info ) {
         LAPACK_CHETRI( &uplo, &n, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(work), &info );
     }
- inline void hetri( char const uplo, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t* ipiv,
+ inline void hetri( const char uplo, const integer_t n,
+ traits::complex_d* a, const integer_t lda, const integer_t* ipiv,
             traits::complex_d* work, integer_t& info ) {
         LAPACK_ZHETRI( &uplo, &n, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(work), &info );
@@ -56,7 +56,7 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorIPIV, typename WORK >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
+ static void invoke( const char uplo, MatrixA& a, const VectorIPIV& ipiv,
             integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_ASSERT( uplo == 'U' || uplo == 'L' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
@@ -74,7 +74,7 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
+ static void invoke( const char uplo, MatrixA& a, const VectorIPIV& ipiv,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
@@ -83,12 +83,12 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
+ static void invoke( const char uplo, MatrixA& a, const VectorIPIV& ipiv,
             integer_t& info, optimal_workspace work ) {
         invoke( uplo, a, ipiv, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return n;
     }
 };
@@ -96,8 +96,8 @@
 
 // template function to call hetri
 template< typename MatrixA, typename VectorIPIV, typename Workspace >
-inline integer_t hetri( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- Workspace work ) {
+inline integer_t hetri( const char uplo, MatrixA& a,
+ const VectorIPIV& ipiv, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     hetri_impl< value_type >::invoke( uplo, a, ipiv, info, work );
@@ -106,7 +106,8 @@
 
 // template function to call hetri, default workspace type
 template< typename MatrixA, typename VectorIPIV >
-inline integer_t hetri( char const uplo, MatrixA& a, VectorIPIV& ipiv ) {
+inline integer_t hetri( const char uplo, MatrixA& a,
+ const VectorIPIV& ipiv ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     hetri_impl< value_type >::invoke( uplo, a, ipiv, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hetrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,17 +31,17 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hetrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* a, integer_t const lda,
- integer_t* ipiv, traits::complex_f* b, integer_t const ldb,
- integer_t& info ) {
+ inline void hetrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* a,
+ const integer_t lda, const integer_t* ipiv, traits::complex_f* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_CHETRS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void hetrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* a, integer_t const lda,
- integer_t* ipiv, traits::complex_d* b, integer_t const ldb,
- integer_t& info ) {
+ inline void hetrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* a,
+ const integer_t lda, const integer_t* ipiv, traits::complex_d* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_ZHETRS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -56,8 +56,8 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorIPIV, typename MatrixB >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- MatrixB& b, integer_t& info ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -81,8 +81,8 @@
 
 // template function to call hetrs
 template< typename MatrixA, typename VectorIPIV, typename MatrixB >
-inline integer_t hetrs( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- MatrixB& b ) {
+inline integer_t hetrs( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     hetrs_impl< value_type >::invoke( uplo, a, ipiv, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hgeqz.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hgeqz.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hgeqz.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,31 +37,31 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hgeqz( char const job, char const compq, char const compz,
- integer_t const n, integer_t const ilo, integer_t const ihi,
- float* h, integer_t const ldh, float* t, integer_t const ldt,
+ inline void hgeqz( const char job, const char compq, const char compz,
+ const integer_t n, const integer_t ilo, const integer_t ihi,
+ float* h, const integer_t ldh, float* t, const integer_t ldt,
             float* alphar, float* alphai, float* beta, float* q,
- integer_t const ldq, float* z, integer_t const ldz, float* work,
- integer_t const lwork, integer_t& info ) {
+ const integer_t ldq, float* z, const integer_t ldz, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SHGEQZ( &job, &compq, &compz, &n, &ilo, &ihi, h, &ldh, t, &ldt,
                 alphar, alphai, beta, q, &ldq, z, &ldz, work, &lwork, &info );
     }
- inline void hgeqz( char const job, char const compq, char const compz,
- integer_t const n, integer_t const ilo, integer_t const ihi,
- double* h, integer_t const ldh, double* t, integer_t const ldt,
+ inline void hgeqz( const char job, const char compq, const char compz,
+ const integer_t n, const integer_t ilo, const integer_t ihi,
+ double* h, const integer_t ldh, double* t, const integer_t ldt,
             double* alphar, double* alphai, double* beta, double* q,
- integer_t const ldq, double* z, integer_t const ldz, double* work,
- integer_t const lwork, integer_t& info ) {
+ const integer_t ldq, double* z, const integer_t ldz, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DHGEQZ( &job, &compq, &compz, &n, &ilo, &ihi, h, &ldh, t, &ldt,
                 alphar, alphai, beta, q, &ldq, z, &ldz, work, &lwork, &info );
     }
- inline void hgeqz( char const job, char const compq, char const compz,
- integer_t const n, integer_t const ilo, integer_t const ihi,
- traits::complex_f* h, integer_t const ldh, traits::complex_f* t,
- integer_t const ldt, traits::complex_f* alpha,
+ inline void hgeqz( const char job, const char compq, const char compz,
+ const integer_t n, const integer_t ilo, const integer_t ihi,
+ traits::complex_f* h, const integer_t ldh, traits::complex_f* t,
+ const integer_t ldt, traits::complex_f* alpha,
             traits::complex_f* beta, traits::complex_f* q,
- integer_t const ldq, traits::complex_f* z, integer_t const ldz,
- traits::complex_f* work, integer_t const lwork, float* rwork,
+ const integer_t ldq, traits::complex_f* z, const integer_t ldz,
+ traits::complex_f* work, const integer_t lwork, float* rwork,
             integer_t& info ) {
         LAPACK_CHGEQZ( &job, &compq, &compz, &n, &ilo, &ihi,
                 traits::complex_ptr(h), &ldh, traits::complex_ptr(t), &ldt,
@@ -69,13 +69,13 @@
                 traits::complex_ptr(q), &ldq, traits::complex_ptr(z), &ldz,
                 traits::complex_ptr(work), &lwork, rwork, &info );
     }
- inline void hgeqz( char const job, char const compq, char const compz,
- integer_t const n, integer_t const ilo, integer_t const ihi,
- traits::complex_d* h, integer_t const ldh, traits::complex_d* t,
- integer_t const ldt, traits::complex_d* alpha,
+ inline void hgeqz( const char job, const char compq, const char compz,
+ const integer_t n, const integer_t ilo, const integer_t ihi,
+ traits::complex_d* h, const integer_t ldh, traits::complex_d* t,
+ const integer_t ldt, traits::complex_d* alpha,
             traits::complex_d* beta, traits::complex_d* q,
- integer_t const ldq, traits::complex_d* z, integer_t const ldz,
- traits::complex_d* work, integer_t const lwork, double* rwork,
+ const integer_t ldq, traits::complex_d* z, const integer_t ldz,
+ traits::complex_d* work, const integer_t lwork, double* rwork,
             integer_t& info ) {
         LAPACK_ZHGEQZ( &job, &compq, &compz, &n, &ilo, &ihi,
                 traits::complex_ptr(h), &ldh, traits::complex_ptr(t), &ldt,
@@ -100,8 +100,8 @@
     template< typename MatrixH, typename MatrixT, typename VectorALPHAR,
             typename VectorALPHAI, typename VectorBETA, typename MatrixQ,
             typename MatrixZ, typename WORK >
- static void invoke( char const job, char const compq, char const compz,
- integer_t const ilo, MatrixH& h, MatrixT& t, VectorALPHAR& alphar,
+ static void invoke( const char job, const char compq, const char compz,
+ const integer_t ilo, MatrixH& h, MatrixT& t, VectorALPHAR& alphar,
             VectorALPHAI& alphai, VectorBETA& beta, MatrixQ& q, MatrixZ& z,
             integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
@@ -147,8 +147,8 @@
     template< typename MatrixH, typename MatrixT, typename VectorALPHAR,
             typename VectorALPHAI, typename VectorBETA, typename MatrixQ,
             typename MatrixZ >
- static void invoke( char const job, char const compq, char const compz,
- integer_t const ilo, MatrixH& h, MatrixT& t, VectorALPHAR& alphar,
+ static void invoke( const char job, const char compq, const char compz,
+ const integer_t ilo, MatrixH& h, MatrixT& t, VectorALPHAR& alphar,
             VectorALPHAI& alphai, VectorBETA& beta, MatrixQ& q, MatrixZ& z,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
@@ -161,8 +161,8 @@
     template< typename MatrixH, typename MatrixT, typename VectorALPHAR,
             typename VectorALPHAI, typename VectorBETA, typename MatrixQ,
             typename MatrixZ >
- static void invoke( char const job, char const compq, char const compz,
- integer_t const ilo, MatrixH& h, MatrixT& t, VectorALPHAR& alphar,
+ static void invoke( const char job, const char compq, const char compz,
+ const integer_t ilo, MatrixH& h, MatrixT& t, VectorALPHAR& alphar,
             VectorALPHAI& alphai, VectorBETA& beta, MatrixQ& q, MatrixZ& z,
             integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
@@ -180,7 +180,7 @@
                 info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return std::max( 1, n );
     }
 };
@@ -196,8 +196,8 @@
     template< typename MatrixH, typename MatrixT, typename VectorALPHA,
             typename VectorBETA, typename MatrixQ, typename MatrixZ,
             typename WORK, typename RWORK >
- static void invoke( char const job, char const compq, char const compz,
- integer_t const ilo, MatrixH& h, MatrixT& t, VectorALPHA& alpha,
+ static void invoke( const char job, const char compq, const char compz,
+ const integer_t ilo, MatrixH& h, MatrixT& t, VectorALPHA& alpha,
             VectorBETA& beta, MatrixQ& q, MatrixZ& z, integer_t& info,
             detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
@@ -242,8 +242,8 @@
     // minimal workspace specialization
     template< typename MatrixH, typename MatrixT, typename VectorALPHA,
             typename VectorBETA, typename MatrixQ, typename MatrixZ >
- static void invoke( char const job, char const compq, char const compz,
- integer_t const ilo, MatrixH& h, MatrixT& t, VectorALPHA& alpha,
+ static void invoke( const char job, const char compq, const char compz,
+ const integer_t ilo, MatrixH& h, MatrixT& t, VectorALPHA& alpha,
             VectorBETA& beta, MatrixQ& q, MatrixZ& z, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
@@ -257,8 +257,8 @@
     // optimal workspace specialization
     template< typename MatrixH, typename MatrixT, typename VectorALPHA,
             typename VectorBETA, typename MatrixQ, typename MatrixZ >
- static void invoke( char const job, char const compq, char const compz,
- integer_t const ilo, MatrixH& h, MatrixT& t, VectorALPHA& alpha,
+ static void invoke( const char job, const char compq, const char compz,
+ const integer_t ilo, MatrixH& h, MatrixT& t, VectorALPHA& alpha,
             VectorBETA& beta, MatrixQ& q, MatrixZ& z, integer_t& info,
             optimal_workspace work ) {
         value_type opt_size_work;
@@ -278,11 +278,11 @@
                 workspace( tmp_work, tmp_rwork ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return std::max( 1, n );
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -292,8 +292,8 @@
 template< typename MatrixH, typename MatrixT, typename VectorALPHAR,
         typename VectorALPHAI, typename VectorBETA, typename MatrixQ,
         typename MatrixZ, typename Workspace >
-inline integer_t hgeqz( char const job, char const compq,
- char const compz, integer_t const ilo, MatrixH& h, MatrixT& t,
+inline integer_t hgeqz( const char job, const char compq,
+ const char compz, const integer_t ilo, MatrixH& h, MatrixT& t,
         VectorALPHAR& alphar, VectorALPHAI& alphai, VectorBETA& beta,
         MatrixQ& q, MatrixZ& z, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
@@ -307,8 +307,8 @@
 template< typename MatrixH, typename MatrixT, typename VectorALPHAR,
         typename VectorALPHAI, typename VectorBETA, typename MatrixQ,
         typename MatrixZ >
-inline integer_t hgeqz( char const job, char const compq,
- char const compz, integer_t const ilo, MatrixH& h, MatrixT& t,
+inline integer_t hgeqz( const char job, const char compq,
+ const char compz, const integer_t ilo, MatrixH& h, MatrixT& t,
         VectorALPHAR& alphar, VectorALPHAI& alphai, VectorBETA& beta,
         MatrixQ& q, MatrixZ& z ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
@@ -321,8 +321,8 @@
 template< typename MatrixH, typename MatrixT, typename VectorALPHA,
         typename VectorBETA, typename MatrixQ, typename MatrixZ,
         typename Workspace >
-inline integer_t hgeqz( char const job, char const compq,
- char const compz, integer_t const ilo, MatrixH& h, MatrixT& t,
+inline integer_t hgeqz( const char job, const char compq,
+ const char compz, const integer_t ilo, MatrixH& h, MatrixT& t,
         VectorALPHA& alpha, VectorBETA& beta, MatrixQ& q, MatrixZ& z,
         Workspace work ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
@@ -335,8 +335,8 @@
 // template function to call hgeqz, default workspace type
 template< typename MatrixH, typename MatrixT, typename VectorALPHA,
         typename VectorBETA, typename MatrixQ, typename MatrixZ >
-inline integer_t hgeqz( char const job, char const compq,
- char const compz, integer_t const ilo, MatrixH& h, MatrixT& t,
+inline integer_t hgeqz( const char job, const char compq,
+ const char compz, const integer_t ilo, MatrixH& h, MatrixT& t,
         VectorALPHA& alpha, VectorBETA& beta, MatrixQ& q, MatrixZ& z ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hprfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hprfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hprfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,23 +33,25 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hprfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* ap,
- traits::complex_f* afp, integer_t* ipiv, traits::complex_f* b,
- integer_t const ldb, traits::complex_f* x, integer_t const ldx,
- float* ferr, float* berr, traits::complex_f* work, float* rwork,
+ inline void hprfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* ap,
+ const traits::complex_f* afp, const integer_t* ipiv,
+ const traits::complex_f* b, const integer_t ldb,
+ traits::complex_f* x, const integer_t ldx, float* ferr,
+ float* berr, traits::complex_f* work, float* rwork,
             integer_t& info ) {
         LAPACK_CHPRFS( &uplo, &n, &nrhs, traits::complex_ptr(ap),
                 traits::complex_ptr(afp), ipiv, traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(x), &ldx, ferr, berr,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void hprfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* ap,
- traits::complex_d* afp, integer_t* ipiv, traits::complex_d* b,
- integer_t const ldb, traits::complex_d* x, integer_t const ldx,
- double* ferr, double* berr, traits::complex_d* work,
- double* rwork, integer_t& info ) {
+ inline void hprfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* ap,
+ const traits::complex_d* afp, const integer_t* ipiv,
+ const traits::complex_d* b, const integer_t ldb,
+ traits::complex_d* x, const integer_t ldx, double* ferr,
+ double* berr, traits::complex_d* work, double* rwork,
+ integer_t& info ) {
         LAPACK_ZHPRFS( &uplo, &n, &nrhs, traits::complex_ptr(ap),
                 traits::complex_ptr(afp), ipiv, traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(x), &ldx, ferr, berr,
@@ -68,10 +70,10 @@
     template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR, typename WORK, typename RWORK >
- static void invoke( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, detail::workspace2< WORK,
- RWORK > work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorFERR >::value_type, typename traits::vector_traits<
                 VectorBERR >::value_type >::value) );
@@ -112,9 +114,10 @@
     template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, minimal_workspace work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
         invoke( n, ap, afp, ipiv, b, x, ferr, berr, info, workspace( tmp_work,
@@ -125,18 +128,19 @@
     template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, optimal_workspace work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( n, ap, afp, ipiv, b, x, ferr, berr, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -146,9 +150,9 @@
 template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR, typename Workspace >
-inline integer_t hprfs( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, Workspace work ) {
+inline integer_t hprfs( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAP >::value_type value_type;
     integer_t info(0);
     hprfs_impl< value_type >::invoke( n, ap, afp, ipiv, b, x, ferr, berr,
@@ -160,9 +164,9 @@
 template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR >
-inline integer_t hprfs( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr ) {
+inline integer_t hprfs( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::matrix_traits< MatrixAP >::value_type value_type;
     integer_t info(0);
     hprfs_impl< value_type >::invoke( n, ap, afp, ipiv, b, x, ferr, berr,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hptrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hptrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hptrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,15 +31,17 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hptrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* ap, integer_t* ipiv,
- traits::complex_f* b, integer_t const ldb, integer_t& info ) {
+ inline void hptrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* ap,
+ const integer_t* ipiv, traits::complex_f* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_CHPTRS( &uplo, &n, &nrhs, traits::complex_ptr(ap), ipiv,
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void hptrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* ap, integer_t* ipiv,
- traits::complex_d* b, integer_t const ldb, integer_t& info ) {
+ inline void hptrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* ap,
+ const integer_t* ipiv, traits::complex_d* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_ZHPTRS( &uplo, &n, &nrhs, traits::complex_ptr(ap), ipiv,
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -54,8 +56,9 @@
 
     // templated specialization
     template< typename MatrixAP, typename VectorIPIV, typename MatrixB >
- static void invoke( char const uplo, integer_t const n, MatrixAP& ap,
- VectorIPIV& ipiv, MatrixB& b, integer_t& info ) {
+ static void invoke( const char uplo, const integer_t n,
+ const MatrixAP& ap, const VectorIPIV& ipiv, MatrixB& b,
+ integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAP >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -75,8 +78,8 @@
 
 // template function to call hptrs
 template< typename MatrixAP, typename VectorIPIV, typename MatrixB >
-inline integer_t hptrs( char const uplo, integer_t const n, MatrixAP& ap,
- VectorIPIV& ipiv, MatrixB& b ) {
+inline integer_t hptrs( const char uplo, const integer_t n,
+ const MatrixAP& ap, const VectorIPIV& ipiv, MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixAP >::value_type value_type;
     integer_t info(0);
     hptrs_impl< value_type >::invoke( uplo, n, ap, ipiv, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hsein.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hsein.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hsein.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,44 +36,44 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hsein( char const side, char const eigsrc, char const initv,
- logical_t* select, integer_t const n, float* h,
- integer_t const ldh, float* wr, float* wi, float* vl,
- integer_t const ldvl, float* vr, integer_t const ldvr,
- integer_t const mm, integer_t& m, float* work, integer_t* ifaill,
+ inline void hsein( const char side, const char eigsrc, const char initv,
+ logical_t* select, const integer_t n, const float* h,
+ const integer_t ldh, float* wr, const float* wi, float* vl,
+ const integer_t ldvl, float* vr, const integer_t ldvr,
+ const integer_t mm, integer_t& m, float* work, integer_t* ifaill,
             integer_t* ifailr, integer_t& info ) {
         LAPACK_SHSEIN( &side, &eigsrc, &initv, select, &n, h, &ldh, wr, wi,
                 vl, &ldvl, vr, &ldvr, &mm, &m, work, ifaill, ifailr, &info );
     }
- inline void hsein( char const side, char const eigsrc, char const initv,
- logical_t* select, integer_t const n, double* h,
- integer_t const ldh, double* wr, double* wi, double* vl,
- integer_t const ldvl, double* vr, integer_t const ldvr,
- integer_t const mm, integer_t& m, double* work, integer_t* ifaill,
+ inline void hsein( const char side, const char eigsrc, const char initv,
+ logical_t* select, const integer_t n, const double* h,
+ const integer_t ldh, double* wr, const double* wi, double* vl,
+ const integer_t ldvl, double* vr, const integer_t ldvr,
+ const integer_t mm, integer_t& m, double* work, integer_t* ifaill,
             integer_t* ifailr, integer_t& info ) {
         LAPACK_DHSEIN( &side, &eigsrc, &initv, select, &n, h, &ldh, wr, wi,
                 vl, &ldvl, vr, &ldvr, &mm, &m, work, ifaill, ifailr, &info );
     }
- inline void hsein( char const side, char const eigsrc, char const initv,
- logical_t* select, integer_t const n, traits::complex_f* h,
- integer_t const ldh, traits::complex_f* w, traits::complex_f* vl,
- integer_t const ldvl, traits::complex_f* vr, integer_t const ldvr,
- integer_t const mm, integer_t& m, traits::complex_f* work,
- float* rwork, integer_t* ifaill, integer_t* ifailr,
- integer_t& info ) {
+ inline void hsein( const char side, const char eigsrc, const char initv,
+ const logical_t* select, const integer_t n,
+ const traits::complex_f* h, const integer_t ldh,
+ traits::complex_f* w, traits::complex_f* vl, const integer_t ldvl,
+ traits::complex_f* vr, const integer_t ldvr, const integer_t mm,
+ integer_t& m, traits::complex_f* work, float* rwork,
+ integer_t* ifaill, integer_t* ifailr, integer_t& info ) {
         LAPACK_CHSEIN( &side, &eigsrc, &initv, select, &n,
                 traits::complex_ptr(h), &ldh, traits::complex_ptr(w),
                 traits::complex_ptr(vl), &ldvl, traits::complex_ptr(vr),
                 &ldvr, &mm, &m, traits::complex_ptr(work), rwork, ifaill,
                 ifailr, &info );
     }
- inline void hsein( char const side, char const eigsrc, char const initv,
- logical_t* select, integer_t const n, traits::complex_d* h,
- integer_t const ldh, traits::complex_d* w, traits::complex_d* vl,
- integer_t const ldvl, traits::complex_d* vr, integer_t const ldvr,
- integer_t const mm, integer_t& m, traits::complex_d* work,
- double* rwork, integer_t* ifaill, integer_t* ifailr,
- integer_t& info ) {
+ inline void hsein( const char side, const char eigsrc, const char initv,
+ const logical_t* select, const integer_t n,
+ const traits::complex_d* h, const integer_t ldh,
+ traits::complex_d* w, traits::complex_d* vl, const integer_t ldvl,
+ traits::complex_d* vr, const integer_t ldvr, const integer_t mm,
+ integer_t& m, traits::complex_d* work, double* rwork,
+ integer_t* ifaill, integer_t* ifailr, integer_t& info ) {
         LAPACK_ZHSEIN( &side, &eigsrc, &initv, select, &n,
                 traits::complex_ptr(h), &ldh, traits::complex_ptr(w),
                 traits::complex_ptr(vl), &ldvl, traits::complex_ptr(vr),
@@ -97,11 +97,12 @@
     template< typename VectorSELECT, typename MatrixH, typename VectorWR,
             typename VectorWI, typename MatrixVL, typename MatrixVR,
             typename VectorIFAILL, typename VectorIFAILR, typename WORK >
- static void invoke( char const side, char const eigsrc, char const initv,
- VectorSELECT& select, MatrixH& h, VectorWR& wr, VectorWI& wi,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- VectorIFAILL& ifaill, VectorIFAILR& ifailr, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const char side, const char eigsrc, const char initv,
+ VectorSELECT& select, const MatrixH& h, VectorWR& wr,
+ const VectorWI& wi, MatrixVL& vl, MatrixVR& vr,
+ const integer_t mm, integer_t& m, VectorIFAILL& ifaill,
+ VectorIFAILR& ifailr, integer_t& info, detail::workspace1<
+ WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixH >::value_type, typename traits::vector_traits<
                 VectorWR >::value_type >::value) );
@@ -147,11 +148,11 @@
     template< typename VectorSELECT, typename MatrixH, typename VectorWR,
             typename VectorWI, typename MatrixVL, typename MatrixVR,
             typename VectorIFAILL, typename VectorIFAILR >
- static void invoke( char const side, char const eigsrc, char const initv,
- VectorSELECT& select, MatrixH& h, VectorWR& wr, VectorWI& wi,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- VectorIFAILL& ifaill, VectorIFAILR& ifailr, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char side, const char eigsrc, const char initv,
+ VectorSELECT& select, const MatrixH& h, VectorWR& wr,
+ const VectorWI& wi, MatrixVL& vl, MatrixVR& vr,
+ const integer_t mm, integer_t& m, VectorIFAILL& ifaill,
+ VectorIFAILR& ifailr, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(h), ?2 ) );
         invoke( side, eigsrc, initv, select, h, wr, wi, vl, vr, mm, m, ifaill,
@@ -162,16 +163,16 @@
     template< typename VectorSELECT, typename MatrixH, typename VectorWR,
             typename VectorWI, typename MatrixVL, typename MatrixVR,
             typename VectorIFAILL, typename VectorIFAILR >
- static void invoke( char const side, char const eigsrc, char const initv,
- VectorSELECT& select, MatrixH& h, VectorWR& wr, VectorWI& wi,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- VectorIFAILL& ifaill, VectorIFAILR& ifailr, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char side, const char eigsrc, const char initv,
+ VectorSELECT& select, const MatrixH& h, VectorWR& wr,
+ const VectorWI& wi, MatrixVL& vl, MatrixVR& vr,
+ const integer_t mm, integer_t& m, VectorIFAILL& ifaill,
+ VectorIFAILR& ifailr, integer_t& info, optimal_workspace work ) {
         invoke( side, eigsrc, initv, select, h, wr, wi, vl, vr, mm, m, ifaill,
                 ifailr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n, ?? ) {
+ static integer_t min_size_work( const integer_t n, ?? ) {
         return (n+2)*n;
     }
 };
@@ -187,9 +188,9 @@
     template< typename VectorSELECT, typename MatrixH, typename VectorW,
             typename MatrixVL, typename MatrixVR, typename VectorIFAILL,
             typename VectorIFAILR, typename WORK, typename RWORK >
- static void invoke( char const side, char const eigsrc, char const initv,
- VectorSELECT& select, MatrixH& h, VectorW& w, MatrixVL& vl,
- MatrixVR& vr, integer_t const mm, integer_t& m,
+ static void invoke( const char side, const char eigsrc, const char initv,
+ const VectorSELECT& select, const MatrixH& h, VectorW& w,
+ MatrixVL& vl, MatrixVR& vr, const integer_t mm, integer_t& m,
             VectorIFAILL& ifaill, VectorIFAILR& ifailr, integer_t& info,
             detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -234,9 +235,9 @@
     template< typename VectorSELECT, typename MatrixH, typename VectorW,
             typename MatrixVL, typename MatrixVR, typename VectorIFAILL,
             typename VectorIFAILR >
- static void invoke( char const side, char const eigsrc, char const initv,
- VectorSELECT& select, MatrixH& h, VectorW& w, MatrixVL& vl,
- MatrixVR& vr, integer_t const mm, integer_t& m,
+ static void invoke( const char side, const char eigsrc, const char initv,
+ const VectorSELECT& select, const MatrixH& h, VectorW& w,
+ MatrixVL& vl, MatrixVR& vr, const integer_t mm, integer_t& m,
             VectorIFAILL& ifaill, VectorIFAILR& ifailr, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
@@ -251,20 +252,20 @@
     template< typename VectorSELECT, typename MatrixH, typename VectorW,
             typename MatrixVL, typename MatrixVR, typename VectorIFAILL,
             typename VectorIFAILR >
- static void invoke( char const side, char const eigsrc, char const initv,
- VectorSELECT& select, MatrixH& h, VectorW& w, MatrixVL& vl,
- MatrixVR& vr, integer_t const mm, integer_t& m,
+ static void invoke( const char side, const char eigsrc, const char initv,
+ const VectorSELECT& select, const MatrixH& h, VectorW& w,
+ MatrixVL& vl, MatrixVR& vr, const integer_t mm, integer_t& m,
             VectorIFAILL& ifaill, VectorIFAILR& ifailr, integer_t& info,
             optimal_workspace work ) {
         invoke( side, eigsrc, initv, select, h, w, vl, vr, mm, m, ifaill,
                 ifailr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return n*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -274,11 +275,11 @@
 template< typename VectorSELECT, typename MatrixH, typename VectorWR,
         typename VectorWI, typename MatrixVL, typename MatrixVR,
         typename VectorIFAILL, typename VectorIFAILR, typename Workspace >
-inline integer_t hsein( char const side, char const eigsrc,
- char const initv, VectorSELECT& select, MatrixH& h, VectorWR& wr,
- VectorWI& wi, MatrixVL& vl, MatrixVR& vr, integer_t const mm,
- integer_t& m, VectorIFAILL& ifaill, VectorIFAILR& ifailr,
- Workspace work ) {
+inline integer_t hsein( const char side, const char eigsrc,
+ const char initv, VectorSELECT& select, const MatrixH& h,
+ VectorWR& wr, const VectorWI& wi, MatrixVL& vl, MatrixVR& vr,
+ const integer_t mm, integer_t& m, VectorIFAILL& ifaill,
+ VectorIFAILR& ifailr, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
     integer_t info(0);
     hsein_impl< value_type >::invoke( side, eigsrc, initv, select, h, wr,
@@ -290,10 +291,11 @@
 template< typename VectorSELECT, typename MatrixH, typename VectorWR,
         typename VectorWI, typename MatrixVL, typename MatrixVR,
         typename VectorIFAILL, typename VectorIFAILR >
-inline integer_t hsein( char const side, char const eigsrc,
- char const initv, VectorSELECT& select, MatrixH& h, VectorWR& wr,
- VectorWI& wi, MatrixVL& vl, MatrixVR& vr, integer_t const mm,
- integer_t& m, VectorIFAILL& ifaill, VectorIFAILR& ifailr ) {
+inline integer_t hsein( const char side, const char eigsrc,
+ const char initv, VectorSELECT& select, const MatrixH& h,
+ VectorWR& wr, const VectorWI& wi, MatrixVL& vl, MatrixVR& vr,
+ const integer_t mm, integer_t& m, VectorIFAILL& ifaill,
+ VectorIFAILR& ifailr ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
     integer_t info(0);
     hsein_impl< value_type >::invoke( side, eigsrc, initv, select, h, wr,
@@ -304,10 +306,11 @@
 template< typename VectorSELECT, typename MatrixH, typename VectorW,
         typename MatrixVL, typename MatrixVR, typename VectorIFAILL,
         typename VectorIFAILR, typename Workspace >
-inline integer_t hsein( char const side, char const eigsrc,
- char const initv, VectorSELECT& select, MatrixH& h, VectorW& w,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- VectorIFAILL& ifaill, VectorIFAILR& ifailr, Workspace work ) {
+inline integer_t hsein( const char side, const char eigsrc,
+ const char initv, const VectorSELECT& select, const MatrixH& h,
+ VectorW& w, MatrixVL& vl, MatrixVR& vr, const integer_t mm,
+ integer_t& m, VectorIFAILL& ifaill, VectorIFAILR& ifailr,
+ Workspace work ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
     integer_t info(0);
     hsein_impl< value_type >::invoke( side, eigsrc, initv, select, h, w,
@@ -319,10 +322,10 @@
 template< typename VectorSELECT, typename MatrixH, typename VectorW,
         typename MatrixVL, typename MatrixVR, typename VectorIFAILL,
         typename VectorIFAILR >
-inline integer_t hsein( char const side, char const eigsrc,
- char const initv, VectorSELECT& select, MatrixH& h, VectorW& w,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- VectorIFAILL& ifaill, VectorIFAILR& ifailr ) {
+inline integer_t hsein( const char side, const char eigsrc,
+ const char initv, const VectorSELECT& select, const MatrixH& h,
+ VectorW& w, MatrixVL& vl, MatrixVR& vr, const integer_t mm,
+ integer_t& m, VectorIFAILL& ifaill, VectorIFAILR& ifailr ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
     integer_t info(0);
     hsein_impl< value_type >::invoke( side, eigsrc, initv, select, h, w,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hseqr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hseqr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/hseqr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,36 +36,36 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void hseqr( char const job, char const compz, integer_t const n,
- integer_t const ilo, integer_t const ihi, float* h,
- integer_t const ldh, float* wr, float* wi, float* z,
- integer_t const ldz, float* work, integer_t const lwork,
+ inline void hseqr( const char job, const char compz, const integer_t n,
+ const integer_t ilo, const integer_t ihi, float* h,
+ const integer_t ldh, float* wr, float* wi, float* z,
+ const integer_t ldz, float* work, const integer_t lwork,
             integer_t& info ) {
         LAPACK_SHSEQR( &job, &compz, &n, &ilo, &ihi, h, &ldh, wr, wi, z, &ldz,
                 work, &lwork, &info );
     }
- inline void hseqr( char const job, char const compz, integer_t const n,
- integer_t const ilo, integer_t const ihi, double* h,
- integer_t const ldh, double* wr, double* wi, double* z,
- integer_t const ldz, double* work, integer_t const lwork,
+ inline void hseqr( const char job, const char compz, const integer_t n,
+ const integer_t ilo, const integer_t ihi, double* h,
+ const integer_t ldh, double* wr, double* wi, double* z,
+ const integer_t ldz, double* work, const integer_t lwork,
             integer_t& info ) {
         LAPACK_DHSEQR( &job, &compz, &n, &ilo, &ihi, h, &ldh, wr, wi, z, &ldz,
                 work, &lwork, &info );
     }
- inline void hseqr( char const job, char const compz, integer_t const n,
- integer_t const ilo, integer_t const ihi, traits::complex_f* h,
- integer_t const ldh, traits::complex_f* w, traits::complex_f* z,
- integer_t const ldz, traits::complex_f* work,
- integer_t const lwork, integer_t& info ) {
+ inline void hseqr( const char job, const char compz, const integer_t n,
+ const integer_t ilo, const integer_t ihi, traits::complex_f* h,
+ const integer_t ldh, traits::complex_f* w, traits::complex_f* z,
+ const integer_t ldz, traits::complex_f* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_CHSEQR( &job, &compz, &n, &ilo, &ihi, traits::complex_ptr(h),
                 &ldh, traits::complex_ptr(w), traits::complex_ptr(z), &ldz,
                 traits::complex_ptr(work), &lwork, &info );
     }
- inline void hseqr( char const job, char const compz, integer_t const n,
- integer_t const ilo, integer_t const ihi, traits::complex_d* h,
- integer_t const ldh, traits::complex_d* w, traits::complex_d* z,
- integer_t const ldz, traits::complex_d* work,
- integer_t const lwork, integer_t& info ) {
+ inline void hseqr( const char job, const char compz, const integer_t n,
+ const integer_t ilo, const integer_t ihi, traits::complex_d* h,
+ const integer_t ldh, traits::complex_d* w, traits::complex_d* z,
+ const integer_t ldz, traits::complex_d* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_ZHSEQR( &job, &compz, &n, &ilo, &ihi, traits::complex_ptr(h),
                 &ldh, traits::complex_ptr(w), traits::complex_ptr(z), &ldz,
                 traits::complex_ptr(work), &lwork, &info );
@@ -86,8 +86,8 @@
     // user-defined workspace specialization
     template< typename MatrixH, typename VectorWR, typename VectorWI,
             typename MatrixZ, typename WORK >
- static void invoke( char const job, char const compz, integer_t const ilo,
- integer_t const ihi, MatrixH& h, VectorWR& wr, VectorWI& wi,
+ static void invoke( const char job, const char compz, const integer_t ilo,
+ const integer_t ihi, MatrixH& h, VectorWR& wr, VectorWI& wi,
             MatrixZ& z, integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixH >::value_type, typename traits::vector_traits<
@@ -115,8 +115,8 @@
     // minimal workspace specialization
     template< typename MatrixH, typename VectorWR, typename VectorWI,
             typename MatrixZ >
- static void invoke( char const job, char const compz, integer_t const ilo,
- integer_t const ihi, MatrixH& h, VectorWR& wr, VectorWI& wi,
+ static void invoke( const char job, const char compz, const integer_t ilo,
+ const integer_t ihi, MatrixH& h, VectorWR& wr, VectorWI& wi,
             MatrixZ& z, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
@@ -127,8 +127,8 @@
     // optimal workspace specialization
     template< typename MatrixH, typename VectorWR, typename VectorWI,
             typename MatrixZ >
- static void invoke( char const job, char const compz, integer_t const ilo,
- integer_t const ihi, MatrixH& h, VectorWR& wr, VectorWI& wi,
+ static void invoke( const char job, const char compz, const integer_t ilo,
+ const integer_t ihi, MatrixH& h, VectorWR& wr, VectorWI& wi,
             MatrixZ& z, integer_t& info, optimal_workspace work ) {
         invoke( job, compz, ilo, ihi, h, wr, wi, z, info,
                 minimal_workspace() );
@@ -149,8 +149,8 @@
     // user-defined workspace specialization
     template< typename MatrixH, typename VectorW, typename MatrixZ,
             typename WORK >
- static void invoke( char const job, char const compz, integer_t const ilo,
- integer_t const ihi, MatrixH& h, VectorW& w, MatrixZ& z,
+ static void invoke( const char job, const char compz, const integer_t ilo,
+ const integer_t ihi, MatrixH& h, VectorW& w, MatrixZ& z,
             integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixH >::value_type, typename traits::vector_traits<
@@ -172,8 +172,8 @@
 
     // minimal workspace specialization
     template< typename MatrixH, typename VectorW, typename MatrixZ >
- static void invoke( char const job, char const compz, integer_t const ilo,
- integer_t const ihi, MatrixH& h, VectorW& w, MatrixZ& z,
+ static void invoke( const char job, const char compz, const integer_t ilo,
+ const integer_t ihi, MatrixH& h, VectorW& w, MatrixZ& z,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
@@ -182,8 +182,8 @@
 
     // optimal workspace specialization
     template< typename MatrixH, typename VectorW, typename MatrixZ >
- static void invoke( char const job, char const compz, integer_t const ilo,
- integer_t const ihi, MatrixH& h, VectorW& w, MatrixZ& z,
+ static void invoke( const char job, const char compz, const integer_t ilo,
+ const integer_t ihi, MatrixH& h, VectorW& w, MatrixZ& z,
             integer_t& info, optimal_workspace work ) {
         invoke( job, compz, ilo, ihi, h, w, z, info, minimal_workspace() );
     }
@@ -197,8 +197,8 @@
 // template function to call hseqr
 template< typename MatrixH, typename VectorWR, typename VectorWI,
         typename MatrixZ, typename Workspace >
-inline integer_t hseqr( char const job, char const compz,
- integer_t const ilo, integer_t const ihi, MatrixH& h, VectorWR& wr,
+inline integer_t hseqr( const char job, const char compz,
+ const integer_t ilo, const integer_t ihi, MatrixH& h, VectorWR& wr,
         VectorWI& wi, MatrixZ& z, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
     integer_t info(0);
@@ -210,8 +210,8 @@
 // template function to call hseqr, default workspace type
 template< typename MatrixH, typename VectorWR, typename VectorWI,
         typename MatrixZ >
-inline integer_t hseqr( char const job, char const compz,
- integer_t const ilo, integer_t const ihi, MatrixH& h, VectorWR& wr,
+inline integer_t hseqr( const char job, const char compz,
+ const integer_t ilo, const integer_t ihi, MatrixH& h, VectorWR& wr,
         VectorWI& wi, MatrixZ& z ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
     integer_t info(0);
@@ -222,8 +222,8 @@
 // template function to call hseqr
 template< typename MatrixH, typename VectorW, typename MatrixZ,
         typename Workspace >
-inline integer_t hseqr( char const job, char const compz,
- integer_t const ilo, integer_t const ihi, MatrixH& h, VectorW& w,
+inline integer_t hseqr( const char job, const char compz,
+ const integer_t ilo, const integer_t ihi, MatrixH& h, VectorW& w,
         MatrixZ& z, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
     integer_t info(0);
@@ -234,8 +234,8 @@
 
 // template function to call hseqr, default workspace type
 template< typename MatrixH, typename VectorW, typename MatrixZ >
-inline integer_t hseqr( char const job, char const compz,
- integer_t const ilo, integer_t const ihi, MatrixH& h, VectorW& w,
+inline integer_t hseqr( const char job, const char compz,
+ const integer_t ilo, const integer_t ihi, MatrixH& h, VectorW& w,
         MatrixZ& z ) {
     typedef typename traits::matrix_traits< MatrixH >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/labrd.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/labrd.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/labrd.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,34 +34,34 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void labrd( integer_t const m, integer_t const n,
- integer_t const nb, float* a, integer_t const lda, float* d,
- float* e, float* tauq, float* taup, float* x, integer_t const ldx,
- float* y, integer_t const ldy ) {
+ inline void labrd( const integer_t m, const integer_t n,
+ const integer_t nb, float* a, const integer_t lda, float* d,
+ float* e, float* tauq, float* taup, float* x, const integer_t ldx,
+ float* y, const integer_t ldy ) {
         LAPACK_SLABRD( &m, &n, &nb, a, &lda, d, e, tauq, taup, x, &ldx, y,
                 &ldy );
     }
- inline void labrd( integer_t const m, integer_t const n,
- integer_t const nb, double* a, integer_t const lda, double* d,
+ inline void labrd( const integer_t m, const integer_t n,
+ const integer_t nb, double* a, const integer_t lda, double* d,
             double* e, double* tauq, double* taup, double* x,
- integer_t const ldx, double* y, integer_t const ldy ) {
+ const integer_t ldx, double* y, const integer_t ldy ) {
         LAPACK_DLABRD( &m, &n, &nb, a, &lda, d, e, tauq, taup, x, &ldx, y,
                 &ldy );
     }
- inline void labrd( integer_t const m, integer_t const n,
- integer_t const nb, traits::complex_f* a, integer_t const lda,
+ inline void labrd( const integer_t m, const integer_t n,
+ const integer_t nb, traits::complex_f* a, const integer_t lda,
             float* d, float* e, traits::complex_f* tauq,
             traits::complex_f* taup, traits::complex_f* x,
- integer_t const ldx, traits::complex_f* y, integer_t const ldy ) {
+ const integer_t ldx, traits::complex_f* y, const integer_t ldy ) {
         LAPACK_CLABRD( &m, &n, &nb, traits::complex_ptr(a), &lda, d, e,
                 traits::complex_ptr(tauq), traits::complex_ptr(taup),
                 traits::complex_ptr(x), &ldx, traits::complex_ptr(y), &ldy );
     }
- inline void labrd( integer_t const m, integer_t const n,
- integer_t const nb, traits::complex_d* a, integer_t const lda,
+ inline void labrd( const integer_t m, const integer_t n,
+ const integer_t nb, traits::complex_d* a, const integer_t lda,
             double* d, double* e, traits::complex_d* tauq,
             traits::complex_d* taup, traits::complex_d* x,
- integer_t const ldx, traits::complex_d* y, integer_t const ldy ) {
+ const integer_t ldx, traits::complex_d* y, const integer_t ldy ) {
         LAPACK_ZLABRD( &m, &n, &nb, traits::complex_ptr(a), &lda, d, e,
                 traits::complex_ptr(tauq), traits::complex_ptr(taup),
                 traits::complex_ptr(x), &ldx, traits::complex_ptr(y), &ldy );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/lacon.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/lacon.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/lacon.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,20 +36,20 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void lacon( integer_t const n, float* v, float* x, integer_t* isgn,
+ inline void lacon( const integer_t n, float* v, float* x, integer_t* isgn,
             float& est, integer_t& kase ) {
         LAPACK_SLACON( &n, v, x, isgn, &est, &kase );
     }
- inline void lacon( integer_t const n, double* v, double* x,
+ inline void lacon( const integer_t n, double* v, double* x,
             integer_t* isgn, double& est, integer_t& kase ) {
         LAPACK_DLACON( &n, v, x, isgn, &est, &kase );
     }
- inline void lacon( integer_t const n, traits::complex_f* v,
+ inline void lacon( const integer_t n, traits::complex_f* v,
             traits::complex_f* x, float& est, integer_t& kase ) {
         LAPACK_CLACON( &n, traits::complex_ptr(v), traits::complex_ptr(x),
                 &est, &kase );
     }
- inline void lacon( integer_t const n, traits::complex_d* v,
+ inline void lacon( const integer_t n, traits::complex_d* v,
             traits::complex_d* x, double& est, integer_t& kase ) {
         LAPACK_ZLACON( &n, traits::complex_ptr(v), traits::complex_ptr(x),
                 &est, &kase );
@@ -69,7 +69,7 @@
 
     // user-defined workspace specialization
     template< typename VectorX, typename V, typename ISGN >
- static void invoke( integer_t const n, VectorX& x, real_type& est,
+ static void invoke( const integer_t n, VectorX& x, real_type& est,
             integer_t& kase, detail::workspace2< V, ISGN > work ) {
         BOOST_ASSERT( n >= 1 );
         BOOST_ASSERT( traits::vector_size(work.select(real_type())) >=
@@ -83,7 +83,7 @@
 
     // minimal workspace specialization
     template< typename VectorX >
- static void invoke( integer_t const n, VectorX& x, real_type& est,
+ static void invoke( const integer_t n, VectorX& x, real_type& est,
             integer_t& kase, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_v( min_size_v( n ) );
         traits::detail::array< integer_t > tmp_isgn( min_size_isgn( n ) );
@@ -92,16 +92,16 @@
 
     // optimal workspace specialization
     template< typename VectorX >
- static void invoke( integer_t const n, VectorX& x, real_type& est,
+ static void invoke( const integer_t n, VectorX& x, real_type& est,
             integer_t& kase, optimal_workspace work ) {
         invoke( n, x, est, kase, minimal_workspace() );
     }
 
- static integer_t min_size_v( integer_t const n ) {
+ static integer_t min_size_v( const integer_t n ) {
         return n;
     }
 
- static integer_t min_size_isgn( integer_t const n ) {
+ static integer_t min_size_isgn( const integer_t n ) {
         return n;
     }
 };
@@ -115,7 +115,7 @@
 
     // user-defined workspace specialization
     template< typename VectorX, typename V >
- static void invoke( integer_t const n, VectorX& x, real_type& est,
+ static void invoke( const integer_t n, VectorX& x, real_type& est,
             integer_t& kase, detail::workspace1< V > work ) {
         BOOST_ASSERT( n >= 1 );
         BOOST_ASSERT( traits::vector_size(work.select(value_type())) >=
@@ -126,7 +126,7 @@
 
     // minimal workspace specialization
     template< typename VectorX >
- static void invoke( integer_t const n, VectorX& x, real_type& est,
+ static void invoke( const integer_t n, VectorX& x, real_type& est,
             integer_t& kase, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_v( min_size_v( n ) );
         invoke( n, x, est, kase, workspace( tmp_v ) );
@@ -134,12 +134,12 @@
 
     // optimal workspace specialization
     template< typename VectorX >
- static void invoke( integer_t const n, VectorX& x, real_type& est,
+ static void invoke( const integer_t n, VectorX& x, real_type& est,
             integer_t& kase, optimal_workspace work ) {
         invoke( n, x, est, kase, minimal_workspace() );
     }
 
- static integer_t min_size_v( integer_t const n ) {
+ static integer_t min_size_v( const integer_t n ) {
         return n;
     }
 };
@@ -147,7 +147,7 @@
 
 // template function to call lacon
 template< typename VectorX, typename Workspace >
-inline integer_t lacon( integer_t const n, VectorX& x,
+inline integer_t lacon( const integer_t n, VectorX& x,
         typename traits::type_traits< typename traits::vector_traits<
         VectorX >::value_type >::real_type& est, integer_t& kase,
         Workspace work ) {
@@ -159,7 +159,7 @@
 
 // template function to call lacon, default workspace type
 template< typename VectorX >
-inline integer_t lacon( integer_t const n, VectorX& x,
+inline integer_t lacon( const integer_t n, VectorX& x,
         typename traits::type_traits< typename traits::vector_traits<
         VectorX >::value_type >::real_type& est, integer_t& kase ) {
     typedef typename traits::vector_traits< VectorX >::value_type value_type;

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/laebz.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/laebz.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/laebz.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,22 +33,24 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void laebz( integer_t const ijob, integer_t const nitmax,
- integer_t const n, integer_t const mmax, integer_t const minp,
- integer_t const nbmin, float const abstol, float const reltol,
- float const pivmin, float* d, float* e, float* e2,
- integer_t* nval, float* ab, float* c, integer_t& mout,
- integer_t* nab, float* work, integer_t* iwork, integer_t& info ) {
+ inline void laebz( const integer_t ijob, const integer_t nitmax,
+ const integer_t n, const integer_t mmax, const integer_t minp,
+ const integer_t nbmin, const float abstol, const float reltol,
+ const float pivmin, const float* d, const float* e,
+ const float* e2, integer_t* nval, float* ab, float* c,
+ integer_t& mout, integer_t* nab, float* work, integer_t* iwork,
+ integer_t& info ) {
         LAPACK_SLAEBZ( &ijob, &nitmax, &n, &mmax, &minp, &nbmin, &abstol,
                 &reltol, &pivmin, d, e, e2, nval, ab, c, &mout, nab, work,
                 iwork, &info );
     }
- inline void laebz( integer_t const ijob, integer_t const nitmax,
- integer_t const n, integer_t const mmax, integer_t const minp,
- integer_t const nbmin, double const abstol, double const reltol,
- double const pivmin, double* d, double* e, double* e2,
- integer_t* nval, double* ab, double* c, integer_t& mout,
- integer_t* nab, double* work, integer_t* iwork, integer_t& info ) {
+ inline void laebz( const integer_t ijob, const integer_t nitmax,
+ const integer_t n, const integer_t mmax, const integer_t minp,
+ const integer_t nbmin, const double abstol, const double reltol,
+ const double pivmin, const double* d, const double* e,
+ const double* e2, integer_t* nval, double* ab, double* c,
+ integer_t& mout, integer_t* nab, double* work, integer_t* iwork,
+ integer_t& info ) {
         LAPACK_DLAEBZ( &ijob, &nitmax, &n, &mmax, &minp, &nbmin, &abstol,
                 &reltol, &pivmin, d, e, e2, nval, ab, c, &mout, nab, work,
                 iwork, &info );
@@ -66,13 +68,13 @@
     template< typename VectorD, typename VectorE, typename VectorE2,
             typename VectorNVAL, typename MatrixAB, typename VectorC,
             typename MatrixNAB, typename WORK, typename IWORK >
- static void invoke( integer_t const ijob, integer_t const nitmax,
- integer_t const n, integer_t const minp, integer_t const nbmin,
- real_type const abstol, real_type const reltol,
- real_type const pivmin, VectorD& d, VectorE& e, VectorE2& e2,
- VectorNVAL& nval, MatrixAB& ab, VectorC& c, integer_t& mout,
- MatrixNAB& nab, integer_t& info, detail::workspace2< WORK,
- IWORK > work ) {
+ static void invoke( const integer_t ijob, const integer_t nitmax,
+ const integer_t n, const integer_t minp, const integer_t nbmin,
+ const real_type abstol, const real_type reltol,
+ const real_type pivmin, const VectorD& d, const VectorE& e,
+ const VectorE2& e2, VectorNVAL& nval, MatrixAB& ab, VectorC& c,
+ integer_t& mout, MatrixNAB& nab, integer_t& info,
+ detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorD >::value_type, typename traits::vector_traits<
                 VectorE >::value_type >::value) );
@@ -108,12 +110,13 @@
     template< typename VectorD, typename VectorE, typename VectorE2,
             typename VectorNVAL, typename MatrixAB, typename VectorC,
             typename MatrixNAB >
- static void invoke( integer_t const ijob, integer_t const nitmax,
- integer_t const n, integer_t const minp, integer_t const nbmin,
- real_type const abstol, real_type const reltol,
- real_type const pivmin, VectorD& d, VectorE& e, VectorE2& e2,
- VectorNVAL& nval, MatrixAB& ab, VectorC& c, integer_t& mout,
- MatrixNAB& nab, integer_t& info, minimal_workspace work ) {
+ static void invoke( const integer_t ijob, const integer_t nitmax,
+ const integer_t n, const integer_t minp, const integer_t nbmin,
+ const real_type abstol, const real_type reltol,
+ const real_type pivmin, const VectorD& d, const VectorE& e,
+ const VectorE2& e2, VectorNVAL& nval, MatrixAB& ab, VectorC& c,
+ integer_t& mout, MatrixNAB& nab, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::leading_dimension(ab) ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork(
@@ -127,21 +130,22 @@
     template< typename VectorD, typename VectorE, typename VectorE2,
             typename VectorNVAL, typename MatrixAB, typename VectorC,
             typename MatrixNAB >
- static void invoke( integer_t const ijob, integer_t const nitmax,
- integer_t const n, integer_t const minp, integer_t const nbmin,
- real_type const abstol, real_type const reltol,
- real_type const pivmin, VectorD& d, VectorE& e, VectorE2& e2,
- VectorNVAL& nval, MatrixAB& ab, VectorC& c, integer_t& mout,
- MatrixNAB& nab, integer_t& info, optimal_workspace work ) {
+ static void invoke( const integer_t ijob, const integer_t nitmax,
+ const integer_t n, const integer_t minp, const integer_t nbmin,
+ const real_type abstol, const real_type reltol,
+ const real_type pivmin, const VectorD& d, const VectorE& e,
+ const VectorE2& e2, VectorNVAL& nval, MatrixAB& ab, VectorC& c,
+ integer_t& mout, MatrixNAB& nab, integer_t& info,
+ optimal_workspace work ) {
         invoke( ijob, nitmax, n, minp, nbmin, abstol, reltol, pivmin, d, e,
                 e2, nval, ab, c, mout, nab, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const mmax ) {
+ static integer_t min_size_work( const integer_t mmax ) {
         return mmax;
     }
 
- static integer_t min_size_iwork( integer_t const mmax ) {
+ static integer_t min_size_iwork( const integer_t mmax ) {
         return mmax;
     }
 };
@@ -151,16 +155,16 @@
 template< typename VectorD, typename VectorE, typename VectorE2,
         typename VectorNVAL, typename MatrixAB, typename VectorC,
         typename MatrixNAB, typename Workspace >
-inline integer_t laebz( integer_t const ijob, integer_t const nitmax,
- integer_t const n, integer_t const minp, integer_t const nbmin,
- typename traits::type_traits< typename traits::vector_traits<
- VectorD >::value_type >::real_type const abstol,
- typename traits::type_traits< typename traits::vector_traits<
- VectorD >::value_type >::real_type const reltol,
- typename traits::type_traits< typename traits::vector_traits<
- VectorD >::value_type >::real_type const pivmin, VectorD& d,
- VectorE& e, VectorE2& e2, VectorNVAL& nval, MatrixAB& ab, VectorC& c,
- integer_t& mout, MatrixNAB& nab, Workspace work ) {
+inline integer_t laebz( const integer_t ijob, const integer_t nitmax,
+ const integer_t n, const integer_t minp, const integer_t nbmin,
+ const typename traits::type_traits< typename traits::vector_traits<
+ VectorD >::value_type >::real_type abstol,
+ const typename traits::type_traits< typename traits::vector_traits<
+ VectorD >::value_type >::real_type reltol,
+ const typename traits::type_traits< typename traits::vector_traits<
+ VectorD >::value_type >::real_type pivmin, const VectorD& d,
+ const VectorE& e, const VectorE2& e2, VectorNVAL& nval, MatrixAB& ab,
+ VectorC& c, integer_t& mout, MatrixNAB& nab, Workspace work ) {
     typedef typename traits::vector_traits< VectorD >::value_type value_type;
     integer_t info(0);
     laebz_impl< value_type >::invoke( ijob, nitmax, n, minp, nbmin,
@@ -173,16 +177,16 @@
 template< typename VectorD, typename VectorE, typename VectorE2,
         typename VectorNVAL, typename MatrixAB, typename VectorC,
         typename MatrixNAB >
-inline integer_t laebz( integer_t const ijob, integer_t const nitmax,
- integer_t const n, integer_t const minp, integer_t const nbmin,
- typename traits::type_traits< typename traits::vector_traits<
- VectorD >::value_type >::real_type const abstol,
- typename traits::type_traits< typename traits::vector_traits<
- VectorD >::value_type >::real_type const reltol,
- typename traits::type_traits< typename traits::vector_traits<
- VectorD >::value_type >::real_type const pivmin, VectorD& d,
- VectorE& e, VectorE2& e2, VectorNVAL& nval, MatrixAB& ab, VectorC& c,
- integer_t& mout, MatrixNAB& nab ) {
+inline integer_t laebz( const integer_t ijob, const integer_t nitmax,
+ const integer_t n, const integer_t minp, const integer_t nbmin,
+ const typename traits::type_traits< typename traits::vector_traits<
+ VectorD >::value_type >::real_type abstol,
+ const typename traits::type_traits< typename traits::vector_traits<
+ VectorD >::value_type >::real_type reltol,
+ const typename traits::type_traits< typename traits::vector_traits<
+ VectorD >::value_type >::real_type pivmin, const VectorD& d,
+ const VectorE& e, const VectorE2& e2, VectorNVAL& nval, MatrixAB& ab,
+ VectorC& c, integer_t& mout, MatrixNAB& nab ) {
     typedef typename traits::vector_traits< VectorD >::value_type value_type;
     integer_t info(0);
     laebz_impl< value_type >::invoke( ijob, nitmax, n, minp, nbmin,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/larz.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/larz.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/larz.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,28 +36,30 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void larz( char const side, integer_t const m, integer_t const n,
- integer_t const l, float* v, integer_t const incv,
- float const tau, float* c, integer_t const ldc, float* work ) {
+ inline void larz( const char side, const integer_t m, const integer_t n,
+ const integer_t l, const float* v, const integer_t incv,
+ const float tau, float* c, const integer_t ldc, float* work ) {
         LAPACK_SLARZ( &side, &m, &n, &l, v, &incv, &tau, c, &ldc, work );
     }
- inline void larz( char const side, integer_t const m, integer_t const n,
- integer_t const l, double* v, integer_t const incv,
- double const tau, double* c, integer_t const ldc, double* work ) {
+ inline void larz( const char side, const integer_t m, const integer_t n,
+ const integer_t l, const double* v, const integer_t incv,
+ const double tau, double* c, const integer_t ldc, double* work ) {
         LAPACK_DLARZ( &side, &m, &n, &l, v, &incv, &tau, c, &ldc, work );
     }
- inline void larz( char const side, integer_t const m, integer_t const n,
- integer_t const l, traits::complex_f* v, integer_t const incv,
- traits::complex_f const tau, traits::complex_f* c,
- integer_t const ldc, traits::complex_f* work ) {
+ inline void larz( const char side, const integer_t m, const integer_t n,
+ const integer_t l, const traits::complex_f* v,
+ const integer_t incv, const traits::complex_f tau,
+ traits::complex_f* c, const integer_t ldc,
+ traits::complex_f* work ) {
         LAPACK_CLARZ( &side, &m, &n, &l, traits::complex_ptr(v), &incv,
                 traits::complex_ptr(&tau), traits::complex_ptr(c), &ldc,
                 traits::complex_ptr(work) );
     }
- inline void larz( char const side, integer_t const m, integer_t const n,
- integer_t const l, traits::complex_d* v, integer_t const incv,
- traits::complex_d const tau, traits::complex_d* c,
- integer_t const ldc, traits::complex_d* work ) {
+ inline void larz( const char side, const integer_t m, const integer_t n,
+ const integer_t l, const traits::complex_d* v,
+ const integer_t incv, const traits::complex_d tau,
+ traits::complex_d* c, const integer_t ldc,
+ traits::complex_d* work ) {
         LAPACK_ZLARZ( &side, &m, &n, &l, traits::complex_ptr(v), &incv,
                 traits::complex_ptr(&tau), traits::complex_ptr(c), &ldc,
                 traits::complex_ptr(work) );
@@ -77,8 +79,8 @@
 
     // user-defined workspace specialization
     template< typename VectorV, typename MatrixC, typename WORK >
- static void invoke( char const side, integer_t const l, VectorV& v,
- integer_t const incv, real_type const tau, MatrixC& c,
+ static void invoke( const char side, const integer_t l, const VectorV& v,
+ const integer_t incv, const real_type tau, MatrixC& c,
             detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorV >::value_type, typename traits::matrix_traits<
@@ -98,8 +100,8 @@
 
     // minimal workspace specialization
     template< typename VectorV, typename MatrixC >
- static void invoke( char const side, integer_t const l, VectorV& v,
- integer_t const incv, real_type const tau, MatrixC& c,
+ static void invoke( const char side, const integer_t l, const VectorV& v,
+ const integer_t incv, const real_type tau, MatrixC& c,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( side,
                 traits::matrix_num_rows(c), traits::matrix_num_columns(c) ) );
@@ -108,14 +110,14 @@
 
     // optimal workspace specialization
     template< typename VectorV, typename MatrixC >
- static void invoke( char const side, integer_t const l, VectorV& v,
- integer_t const incv, real_type const tau, MatrixC& c,
+ static void invoke( const char side, const integer_t l, const VectorV& v,
+ const integer_t incv, const real_type tau, MatrixC& c,
             optimal_workspace work ) {
         invoke( side, l, v, incv, tau, c, minimal_workspace() );
     }
 
- static integer_t min_size_work( char const side, integer_t const m,
- integer_t const n ) {
+ static integer_t min_size_work( const char side, const integer_t m,
+ const integer_t n ) {
         if ( side == 'L' )
             return n;
         else
@@ -132,8 +134,8 @@
 
     // user-defined workspace specialization
     template< typename VectorV, typename MatrixC, typename WORK >
- static void invoke( char const side, integer_t const l, VectorV& v,
- integer_t const incv, value_type const tau, MatrixC& c,
+ static void invoke( const char side, const integer_t l, const VectorV& v,
+ const integer_t incv, const value_type tau, MatrixC& c,
             detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorV >::value_type, typename traits::matrix_traits<
@@ -153,8 +155,8 @@
 
     // minimal workspace specialization
     template< typename VectorV, typename MatrixC >
- static void invoke( char const side, integer_t const l, VectorV& v,
- integer_t const incv, value_type const tau, MatrixC& c,
+ static void invoke( const char side, const integer_t l, const VectorV& v,
+ const integer_t incv, const value_type tau, MatrixC& c,
             minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( side,
                 traits::matrix_num_rows(c), traits::matrix_num_columns(c) ) );
@@ -163,14 +165,14 @@
 
     // optimal workspace specialization
     template< typename VectorV, typename MatrixC >
- static void invoke( char const side, integer_t const l, VectorV& v,
- integer_t const incv, value_type const tau, MatrixC& c,
+ static void invoke( const char side, const integer_t l, const VectorV& v,
+ const integer_t incv, const value_type tau, MatrixC& c,
             optimal_workspace work ) {
         invoke( side, l, v, incv, tau, c, minimal_workspace() );
     }
 
- static integer_t min_size_work( char const side, integer_t const m,
- integer_t const n ) {
+ static integer_t min_size_work( const char side, const integer_t m,
+ const integer_t n ) {
         if ( side == 'L' )
             return n;
         else
@@ -181,11 +183,10 @@
 
 // template function to call larz
 template< typename VectorV, typename MatrixC, typename Workspace >
-inline integer_t larz( char const side, integer_t const l, VectorV& v,
- integer_t const incv, typename traits::type_traits<
- typename traits::vector_traits<
- VectorV >::value_type >::real_type const tau, MatrixC& c,
- Workspace work ) {
+inline integer_t larz( const char side, const integer_t l,
+ const VectorV& v, const integer_t incv,
+ const typename traits::type_traits< typename traits::vector_traits<
+ VectorV >::value_type >::real_type tau, MatrixC& c, Workspace work ) {
     typedef typename traits::vector_traits< VectorV >::value_type value_type;
     integer_t info(0);
     larz_impl< value_type >::invoke( side, l, v, incv, tau, c, work );
@@ -194,10 +195,10 @@
 
 // template function to call larz, default workspace type
 template< typename VectorV, typename MatrixC >
-inline integer_t larz( char const side, integer_t const l, VectorV& v,
- integer_t const incv, typename traits::type_traits<
- typename traits::vector_traits<
- VectorV >::value_type >::real_type const tau, MatrixC& c ) {
+inline integer_t larz( const char side, const integer_t l,
+ const VectorV& v, const integer_t incv,
+ const typename traits::type_traits< typename traits::vector_traits<
+ VectorV >::value_type >::real_type tau, MatrixC& c ) {
     typedef typename traits::vector_traits< VectorV >::value_type value_type;
     integer_t info(0);
     larz_impl< value_type >::invoke( side, l, v, incv, tau, c,
@@ -206,9 +207,10 @@
 }
 // template function to call larz
 template< typename VectorV, typename MatrixC, typename Workspace >
-inline integer_t larz( char const side, integer_t const l, VectorV& v,
- integer_t const incv, typename traits::vector_traits<
- VectorV >::value_type const tau, MatrixC& c, Workspace work ) {
+inline integer_t larz( const char side, const integer_t l,
+ const VectorV& v, const integer_t incv,
+ const typename traits::vector_traits< VectorV >::value_type tau,
+ MatrixC& c, Workspace work ) {
     typedef typename traits::vector_traits< VectorV >::value_type value_type;
     integer_t info(0);
     larz_impl< value_type >::invoke( side, l, v, incv, tau, c, work );
@@ -217,9 +219,10 @@
 
 // template function to call larz, default workspace type
 template< typename VectorV, typename MatrixC >
-inline integer_t larz( char const side, integer_t const l, VectorV& v,
- integer_t const incv, typename traits::vector_traits<
- VectorV >::value_type const tau, MatrixC& c ) {
+inline integer_t larz( const char side, const integer_t l,
+ const VectorV& v, const integer_t incv,
+ const typename traits::vector_traits< VectorV >::value_type tau,
+ MatrixC& c ) {
     typedef typename traits::vector_traits< VectorV >::value_type value_type;
     integer_t info(0);
     larz_impl< value_type >::invoke( side, l, v, incv, tau, c,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrd.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrd.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrd.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,27 +34,27 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void latrd( char const uplo, integer_t const n, integer_t const nb,
- float* a, integer_t const lda, float* e, float* tau, float* w,
- integer_t const ldw ) {
+ inline void latrd( const char uplo, const integer_t n, const integer_t nb,
+ float* a, const integer_t lda, float* e, float* tau, float* w,
+ const integer_t ldw ) {
         LAPACK_SLATRD( &uplo, &n, &nb, a, &lda, e, tau, w, &ldw );
     }
- inline void latrd( char const uplo, integer_t const n, integer_t const nb,
- double* a, integer_t const lda, double* e, double* tau, double* w,
- integer_t const ldw ) {
+ inline void latrd( const char uplo, const integer_t n, const integer_t nb,
+ double* a, const integer_t lda, double* e, double* tau, double* w,
+ const integer_t ldw ) {
         LAPACK_DLATRD( &uplo, &n, &nb, a, &lda, e, tau, w, &ldw );
     }
- inline void latrd( char const uplo, integer_t const n, integer_t const nb,
- traits::complex_f* a, integer_t const lda, float* e,
+ inline void latrd( const char uplo, const integer_t n, const integer_t nb,
+ traits::complex_f* a, const integer_t lda, float* e,
             traits::complex_f* tau, traits::complex_f* w,
- integer_t const ldw ) {
+ const integer_t ldw ) {
         LAPACK_CLATRD( &uplo, &n, &nb, traits::complex_ptr(a), &lda, e,
                 traits::complex_ptr(tau), traits::complex_ptr(w), &ldw );
     }
- inline void latrd( char const uplo, integer_t const n, integer_t const nb,
- traits::complex_d* a, integer_t const lda, double* e,
+ inline void latrd( const char uplo, const integer_t n, const integer_t nb,
+ traits::complex_d* a, const integer_t lda, double* e,
             traits::complex_d* tau, traits::complex_d* w,
- integer_t const ldw ) {
+ const integer_t ldw ) {
         LAPACK_ZLATRD( &uplo, &n, &nb, traits::complex_ptr(a), &lda, e,
                 traits::complex_ptr(tau), traits::complex_ptr(w), &ldw );
     }
@@ -74,7 +74,7 @@
     // templated specialization
     template< typename MatrixA, typename VectorE, typename VectorTAU,
             typename MatrixW >
- static void invoke( integer_t const nb, MatrixA& a, VectorE& e,
+ static void invoke( const integer_t nb, MatrixA& a, VectorE& e,
             VectorTAU& tau, MatrixW& w ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
@@ -108,7 +108,7 @@
     // templated specialization
     template< typename MatrixA, typename VectorE, typename VectorTAU,
             typename MatrixW >
- static void invoke( integer_t const nb, MatrixA& a, VectorE& e,
+ static void invoke( const integer_t nb, MatrixA& a, VectorE& e,
             VectorTAU& tau, MatrixW& w ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
@@ -134,7 +134,7 @@
 // template function to call latrd
 template< typename MatrixA, typename VectorE, typename VectorTAU,
         typename MatrixW >
-inline integer_t latrd( integer_t const nb, MatrixA& a, VectorE& e,
+inline integer_t latrd( const integer_t nb, MatrixA& a, VectorE& e,
         VectorTAU& tau, MatrixW& w ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,31 +34,31 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void latrs( char const uplo, char const trans, char const diag,
- char const normin, integer_t const n, float* a,
- integer_t const lda, float* x, float& scale, float* cnorm,
+ inline void latrs( const char uplo, const char trans, const char diag,
+ const char normin, const integer_t n, const float* a,
+ const integer_t lda, float* x, float& scale, float* cnorm,
             integer_t& info ) {
         LAPACK_SLATRS( &uplo, &trans, &diag, &normin, &n, a, &lda, x, &scale,
                 cnorm, &info );
     }
- inline void latrs( char const uplo, char const trans, char const diag,
- char const normin, integer_t const n, double* a,
- integer_t const lda, double* x, double& scale, double* cnorm,
+ inline void latrs( const char uplo, const char trans, const char diag,
+ const char normin, const integer_t n, const double* a,
+ const integer_t lda, double* x, double& scale, double* cnorm,
             integer_t& info ) {
         LAPACK_DLATRS( &uplo, &trans, &diag, &normin, &n, a, &lda, x, &scale,
                 cnorm, &info );
     }
- inline void latrs( char const uplo, char const trans, char const diag,
- char const normin, integer_t const n, traits::complex_f* a,
- integer_t const lda, traits::complex_f* x, float& scale,
+ inline void latrs( const char uplo, const char trans, const char diag,
+ const char normin, const integer_t n, const traits::complex_f* a,
+ const integer_t lda, traits::complex_f* x, float& scale,
             float* cnorm, integer_t& info ) {
         LAPACK_CLATRS( &uplo, &trans, &diag, &normin, &n,
                 traits::complex_ptr(a), &lda, traits::complex_ptr(x), &scale,
                 cnorm, &info );
     }
- inline void latrs( char const uplo, char const trans, char const diag,
- char const normin, integer_t const n, traits::complex_d* a,
- integer_t const lda, traits::complex_d* x, double& scale,
+ inline void latrs( const char uplo, const char trans, const char diag,
+ const char normin, const integer_t n, const traits::complex_d* a,
+ const integer_t lda, traits::complex_d* x, double& scale,
             double* cnorm, integer_t& info ) {
         LAPACK_ZLATRS( &uplo, &trans, &diag, &normin, &n,
                 traits::complex_ptr(a), &lda, traits::complex_ptr(x), &scale,
@@ -79,8 +79,8 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorX, typename VectorCNORM >
- static void invoke( char const uplo, char const trans, char const diag,
- char const normin, MatrixA& a, VectorX& x, real_type& scale,
+ static void invoke( const char uplo, const char trans, const char diag,
+ const char normin, const MatrixA& a, VectorX& x, real_type& scale,
             VectorCNORM& cnorm, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
@@ -112,8 +112,8 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorX, typename VectorCNORM >
- static void invoke( char const uplo, char const trans, char const diag,
- char const normin, MatrixA& a, VectorX& x, real_type& scale,
+ static void invoke( const char uplo, const char trans, const char diag,
+ const char normin, const MatrixA& a, VectorX& x, real_type& scale,
             VectorCNORM& cnorm, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
@@ -136,8 +136,8 @@
 
 // template function to call latrs
 template< typename MatrixA, typename VectorX, typename VectorCNORM >
-inline integer_t latrs( char const uplo, char const trans,
- char const diag, char const normin, MatrixA& a, VectorX& x,
+inline integer_t latrs( const char uplo, const char trans,
+ const char diag, const char normin, const MatrixA& a, VectorX& x,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& scale, VectorCNORM& cnorm ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrz.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrz.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/latrz.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,24 +36,24 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void latrz( integer_t const m, integer_t const n,
- integer_t const l, float* a, integer_t const lda, float* tau,
+ inline void latrz( const integer_t m, const integer_t n,
+ const integer_t l, float* a, const integer_t lda, float* tau,
             float* work ) {
         LAPACK_SLATRZ( &m, &n, &l, a, &lda, tau, work );
     }
- inline void latrz( integer_t const m, integer_t const n,
- integer_t const l, double* a, integer_t const lda, double* tau,
+ inline void latrz( const integer_t m, const integer_t n,
+ const integer_t l, double* a, const integer_t lda, double* tau,
             double* work ) {
         LAPACK_DLATRZ( &m, &n, &l, a, &lda, tau, work );
     }
- inline void latrz( integer_t const m, integer_t const n,
- integer_t const l, traits::complex_f* a, integer_t const lda,
+ inline void latrz( const integer_t m, const integer_t n,
+ const integer_t l, traits::complex_f* a, const integer_t lda,
             traits::complex_f* tau, traits::complex_f* work ) {
         LAPACK_CLATRZ( &m, &n, &l, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work) );
     }
- inline void latrz( integer_t const m, integer_t const n,
- integer_t const l, traits::complex_d* a, integer_t const lda,
+ inline void latrz( const integer_t m, const integer_t n,
+ const integer_t l, traits::complex_d* a, const integer_t lda,
             traits::complex_d* tau, traits::complex_d* work ) {
         LAPACK_ZLATRZ( &m, &n, &l, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(tau), traits::complex_ptr(work) );
@@ -107,7 +107,7 @@
         invoke( a, tau, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const m ) {
+ static integer_t min_size_work( const integer_t m ) {
         return m;
     }
 };
@@ -155,7 +155,7 @@
         invoke( a, tau, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const m ) {
+ static integer_t min_size_work( const integer_t m ) {
         return m;
     }
 };

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/opgtr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/opgtr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/opgtr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,13 +33,13 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void opgtr( char const uplo, integer_t const n, float* ap,
- float* tau, float* q, integer_t const ldq, float* work,
+ inline void opgtr( const char uplo, const integer_t n, const float* ap,
+ const float* tau, float* q, const integer_t ldq, float* work,
             integer_t& info ) {
         LAPACK_SOPGTR( &uplo, &n, ap, tau, q, &ldq, work, &info );
     }
- inline void opgtr( char const uplo, integer_t const n, double* ap,
- double* tau, double* q, integer_t const ldq, double* work,
+ inline void opgtr( const char uplo, const integer_t n, const double* ap,
+ const double* tau, double* q, const integer_t ldq, double* work,
             integer_t& info ) {
         LAPACK_DOPGTR( &uplo, &n, ap, tau, q, &ldq, work, &info );
     }
@@ -55,8 +55,9 @@
     // user-defined workspace specialization
     template< typename VectorAP, typename VectorTAU, typename MatrixQ,
             typename WORK >
- static void invoke( char const uplo, VectorAP& ap, VectorTAU& tau,
- MatrixQ& q, integer_t& info, detail::workspace1< WORK > work ) {
+ static void invoke( const char uplo, const VectorAP& ap,
+ const VectorTAU& tau, MatrixQ& q, integer_t& info,
+ detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorAP >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -82,8 +83,9 @@
 
     // minimal workspace specialization
     template< typename VectorAP, typename VectorTAU, typename MatrixQ >
- static void invoke( char const uplo, VectorAP& ap, VectorTAU& tau,
- MatrixQ& q, integer_t& info, minimal_workspace work ) {
+ static void invoke( const char uplo, const VectorAP& ap,
+ const VectorTAU& tau, MatrixQ& q, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(q) ) );
         invoke( uplo, ap, tau, q, info, workspace( tmp_work ) );
@@ -91,12 +93,13 @@
 
     // optimal workspace specialization
     template< typename VectorAP, typename VectorTAU, typename MatrixQ >
- static void invoke( char const uplo, VectorAP& ap, VectorTAU& tau,
- MatrixQ& q, integer_t& info, optimal_workspace work ) {
+ static void invoke( const char uplo, const VectorAP& ap,
+ const VectorTAU& tau, MatrixQ& q, integer_t& info,
+ optimal_workspace work ) {
         invoke( uplo, ap, tau, q, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return n-1;
     }
 };
@@ -105,8 +108,8 @@
 // template function to call opgtr
 template< typename VectorAP, typename VectorTAU, typename MatrixQ,
         typename Workspace >
-inline integer_t opgtr( char const uplo, VectorAP& ap, VectorTAU& tau,
- MatrixQ& q, Workspace work ) {
+inline integer_t opgtr( const char uplo, const VectorAP& ap,
+ const VectorTAU& tau, MatrixQ& q, Workspace work ) {
     typedef typename traits::vector_traits< VectorAP >::value_type value_type;
     integer_t info(0);
     opgtr_impl< value_type >::invoke( uplo, ap, tau, q, info, work );
@@ -115,8 +118,8 @@
 
 // template function to call opgtr, default workspace type
 template< typename VectorAP, typename VectorTAU, typename MatrixQ >
-inline integer_t opgtr( char const uplo, VectorAP& ap, VectorTAU& tau,
- MatrixQ& q ) {
+inline integer_t opgtr( const char uplo, const VectorAP& ap,
+ const VectorTAU& tau, MatrixQ& q ) {
     typedef typename traits::vector_traits< VectorAP >::value_type value_type;
     integer_t info(0);
     opgtr_impl< value_type >::invoke( uplo, ap, tau, q, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/opmtr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/opmtr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/opmtr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,15 +33,17 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void opmtr( char const side, char const uplo, char const trans,
- integer_t const m, integer_t const n, float* ap, float* tau,
- float* c, integer_t const ldc, float* work, integer_t& info ) {
+ inline void opmtr( const char side, const char uplo, const char trans,
+ const integer_t m, const integer_t n, const float* ap,
+ const float* tau, float* c, const integer_t ldc, float* work,
+ integer_t& info ) {
         LAPACK_SOPMTR( &side, &uplo, &trans, &m, &n, ap, tau, c, &ldc, work,
                 &info );
     }
- inline void opmtr( char const side, char const uplo, char const trans,
- integer_t const m, integer_t const n, double* ap, double* tau,
- double* c, integer_t const ldc, double* work, integer_t& info ) {
+ inline void opmtr( const char side, const char uplo, const char trans,
+ const integer_t m, const integer_t n, const double* ap,
+ const double* tau, double* c, const integer_t ldc, double* work,
+ integer_t& info ) {
         LAPACK_DOPMTR( &side, &uplo, &trans, &m, &n, ap, tau, c, &ldc, work,
                 &info );
     }
@@ -57,9 +59,9 @@
     // user-defined workspace specialization
     template< typename VectorAP, typename VectorTAU, typename MatrixC,
             typename WORK >
- static void invoke( char const side, char const uplo, char const trans,
- VectorAP& ap, VectorTAU& tau, MatrixC& c, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const char side, const char uplo, const char trans,
+ const VectorAP& ap, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorAP >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -85,9 +87,9 @@
 
     // minimal workspace specialization
     template< typename VectorAP, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const uplo, char const trans,
- VectorAP& ap, VectorTAU& tau, MatrixC& c, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char side, const char uplo, const char trans,
+ const VectorAP& ap, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( side,
                 traits::matrix_num_rows(c), traits::matrix_num_columns(c) ) );
         invoke( side, uplo, trans, ap, tau, c, info, workspace( tmp_work ) );
@@ -95,14 +97,14 @@
 
     // optimal workspace specialization
     template< typename VectorAP, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const uplo, char const trans,
- VectorAP& ap, VectorTAU& tau, MatrixC& c, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char side, const char uplo, const char trans,
+ const VectorAP& ap, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, optimal_workspace work ) {
         invoke( side, uplo, trans, ap, tau, c, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( char const side, integer_t const m,
- integer_t const n ) {
+ static integer_t min_size_work( const char side, const integer_t m,
+ const integer_t n ) {
         if ( side == 'L' )
             return n;
         else
@@ -114,9 +116,9 @@
 // template function to call opmtr
 template< typename VectorAP, typename VectorTAU, typename MatrixC,
         typename Workspace >
-inline integer_t opmtr( char const side, char const uplo,
- char const trans, VectorAP& ap, VectorTAU& tau, MatrixC& c,
- Workspace work ) {
+inline integer_t opmtr( const char side, const char uplo,
+ const char trans, const VectorAP& ap, const VectorTAU& tau,
+ MatrixC& c, Workspace work ) {
     typedef typename traits::vector_traits< VectorAP >::value_type value_type;
     integer_t info(0);
     opmtr_impl< value_type >::invoke( side, uplo, trans, ap, tau, c,
@@ -126,8 +128,9 @@
 
 // template function to call opmtr, default workspace type
 template< typename VectorAP, typename VectorTAU, typename MatrixC >
-inline integer_t opmtr( char const side, char const uplo,
- char const trans, VectorAP& ap, VectorTAU& tau, MatrixC& c ) {
+inline integer_t opmtr( const char side, const char uplo,
+ const char trans, const VectorAP& ap, const VectorTAU& tau,
+ MatrixC& c ) {
     typedef typename traits::vector_traits< VectorAP >::value_type value_type;
     integer_t info(0);
     opmtr_impl< value_type >::invoke( side, uplo, trans, ap, tau, c,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgbr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgbr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgbr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,14 +34,16 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void orgbr( char const vect, integer_t const m, integer_t const n,
- integer_t const k, float* a, integer_t const lda, float* tau,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void orgbr( const char vect, const integer_t m, const integer_t n,
+ const integer_t k, float* a, const integer_t lda,
+ const float* tau, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORGBR( &vect, &m, &n, &k, a, &lda, tau, work, &lwork, &info );
     }
- inline void orgbr( char const vect, integer_t const m, integer_t const n,
- integer_t const k, double* a, integer_t const lda, double* tau,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void orgbr( const char vect, const integer_t m, const integer_t n,
+ const integer_t k, double* a, const integer_t lda,
+ const double* tau, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORGBR( &vect, &m, &n, &k, a, &lda, tau, work, &lwork, &info );
     }
 }
@@ -55,9 +57,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename WORK >
- static void invoke( char const vect, integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const char vect, const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -75,18 +77,18 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( char const vect, integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char vect, const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( m, n ) );
         invoke( vect, m, n, k, a, tau, info, workspace( tmp_work ) );
     }
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( char const vect, integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char vect, const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::orgbr( vect, m, n, k, traits::matrix_storage(a),
                 traits::leading_dimension(a), traits::vector_storage(tau),
@@ -96,7 +98,7 @@
         invoke( vect, m, n, k, a, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const m, integer_t const n ) {
+ static integer_t min_size_work( const integer_t m, const integer_t n ) {
         return std::max( 1, std::min( m, n );
     }
 };
@@ -104,9 +106,9 @@
 
 // template function to call orgbr
 template< typename MatrixA, typename VectorTAU, typename Workspace >
-inline integer_t orgbr( char const vect, integer_t const m,
- integer_t const n, integer_t const k, MatrixA& a, VectorTAU& tau,
- Workspace work ) {
+inline integer_t orgbr( const char vect, const integer_t m,
+ const integer_t n, const integer_t k, MatrixA& a,
+ const VectorTAU& tau, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orgbr_impl< value_type >::invoke( vect, m, n, k, a, tau, info, work );
@@ -115,8 +117,9 @@
 
 // template function to call orgbr, default workspace type
 template< typename MatrixA, typename VectorTAU >
-inline integer_t orgbr( char const vect, integer_t const m,
- integer_t const n, integer_t const k, MatrixA& a, VectorTAU& tau ) {
+inline integer_t orgbr( const char vect, const integer_t m,
+ const integer_t n, const integer_t k, MatrixA& a,
+ const VectorTAU& tau ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orgbr_impl< value_type >::invoke( vect, m, n, k, a, tau, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orghr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orghr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orghr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,14 +34,16 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void orghr( integer_t const n, integer_t const ilo,
- integer_t const ihi, float* a, integer_t const lda, float* tau,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void orghr( const integer_t n, const integer_t ilo,
+ const integer_t ihi, float* a, const integer_t lda,
+ const float* tau, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORGHR( &n, &ilo, &ihi, a, &lda, tau, work, &lwork, &info );
     }
- inline void orghr( integer_t const n, integer_t const ilo,
- integer_t const ihi, double* a, integer_t const lda, double* tau,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void orghr( const integer_t n, const integer_t ilo,
+ const integer_t ihi, double* a, const integer_t lda,
+ const double* tau, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORGHR( &n, &ilo, &ihi, a, &lda, tau, work, &lwork, &info );
     }
 }
@@ -55,9 +57,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename WORK >
- static void invoke( integer_t const n, integer_t const ilo,
- integer_t const ihi, MatrixA& a, VectorTAU& tau, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const integer_t n, const integer_t ilo,
+ const integer_t ihi, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -74,9 +76,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const n, integer_t const ilo,
- integer_t const ihi, MatrixA& a, VectorTAU& tau, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const integer_t n, const integer_t ilo,
+ const integer_t ihi, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
         invoke( n, ilo, ihi, a, tau, info, workspace( tmp_work ) );
@@ -84,9 +86,9 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const n, integer_t const ilo,
- integer_t const ihi, MatrixA& a, VectorTAU& tau, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const integer_t n, const integer_t ilo,
+ const integer_t ihi, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::orghr( n, ilo, ihi, traits::matrix_storage(a),
                 traits::leading_dimension(a), traits::vector_storage(tau),
@@ -104,8 +106,9 @@
 
 // template function to call orghr
 template< typename MatrixA, typename VectorTAU, typename Workspace >
-inline integer_t orghr( integer_t const n, integer_t const ilo,
- integer_t const ihi, MatrixA& a, VectorTAU& tau, Workspace work ) {
+inline integer_t orghr( const integer_t n, const integer_t ilo,
+ const integer_t ihi, MatrixA& a, const VectorTAU& tau,
+ Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orghr_impl< value_type >::invoke( n, ilo, ihi, a, tau, info, work );
@@ -114,8 +117,8 @@
 
 // template function to call orghr, default workspace type
 template< typename MatrixA, typename VectorTAU >
-inline integer_t orghr( integer_t const n, integer_t const ilo,
- integer_t const ihi, MatrixA& a, VectorTAU& tau ) {
+inline integer_t orghr( const integer_t n, const integer_t ilo,
+ const integer_t ihi, MatrixA& a, const VectorTAU& tau ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orghr_impl< value_type >::invoke( n, ilo, ihi, a, tau, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orglq.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orglq.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orglq.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,14 +34,16 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void orglq( integer_t const m, integer_t const n,
- integer_t const k, float* a, integer_t const lda, float* tau,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void orglq( const integer_t m, const integer_t n,
+ const integer_t k, float* a, const integer_t lda,
+ const float* tau, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORGLQ( &m, &n, &k, a, &lda, tau, work, &lwork, &info );
     }
- inline void orglq( integer_t const m, integer_t const n,
- integer_t const k, double* a, integer_t const lda, double* tau,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void orglq( const integer_t m, const integer_t n,
+ const integer_t k, double* a, const integer_t lda,
+ const double* tau, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORGLQ( &m, &n, &k, a, &lda, tau, work, &lwork, &info );
     }
 }
@@ -55,9 +57,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename WORK >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -76,18 +78,18 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( m ) );
         invoke( m, n, k, a, tau, info, workspace( tmp_work ) );
     }
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::orglq( m, n, k, traits::matrix_storage(a),
                 traits::leading_dimension(a), traits::vector_storage(tau),
@@ -97,7 +99,7 @@
         invoke( m, n, k, a, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const m ) {
+ static integer_t min_size_work( const integer_t m ) {
         return std::max( 1, m );
     }
 };
@@ -105,8 +107,8 @@
 
 // template function to call orglq
 template< typename MatrixA, typename VectorTAU, typename Workspace >
-inline integer_t orglq( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, Workspace work ) {
+inline integer_t orglq( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orglq_impl< value_type >::invoke( m, n, k, a, tau, info, work );
@@ -115,8 +117,8 @@
 
 // template function to call orglq, default workspace type
 template< typename MatrixA, typename VectorTAU >
-inline integer_t orglq( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau ) {
+inline integer_t orglq( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orglq_impl< value_type >::invoke( m, n, k, a, tau, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgql.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgql.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgql.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,14 +34,16 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void orgql( integer_t const m, integer_t const n,
- integer_t const k, float* a, integer_t const lda, float* tau,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void orgql( const integer_t m, const integer_t n,
+ const integer_t k, float* a, const integer_t lda,
+ const float* tau, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORGQL( &m, &n, &k, a, &lda, tau, work, &lwork, &info );
     }
- inline void orgql( integer_t const m, integer_t const n,
- integer_t const k, double* a, integer_t const lda, double* tau,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void orgql( const integer_t m, const integer_t n,
+ const integer_t k, double* a, const integer_t lda,
+ const double* tau, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORGQL( &m, &n, &k, a, &lda, tau, work, &lwork, &info );
     }
 }
@@ -55,9 +57,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename WORK >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -76,18 +78,18 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         invoke( m, n, k, a, tau, info, workspace( tmp_work ) );
     }
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::orgql( m, n, k, traits::matrix_storage(a),
                 traits::leading_dimension(a), traits::vector_storage(tau),
@@ -97,7 +99,7 @@
         invoke( m, n, k, a, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return std::max( 1, n );
     }
 };
@@ -105,8 +107,8 @@
 
 // template function to call orgql
 template< typename MatrixA, typename VectorTAU, typename Workspace >
-inline integer_t orgql( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, Workspace work ) {
+inline integer_t orgql( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orgql_impl< value_type >::invoke( m, n, k, a, tau, info, work );
@@ -115,8 +117,8 @@
 
 // template function to call orgql, default workspace type
 template< typename MatrixA, typename VectorTAU >
-inline integer_t orgql( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau ) {
+inline integer_t orgql( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orgql_impl< value_type >::invoke( m, n, k, a, tau, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgqr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgqr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgqr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,14 +34,16 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void orgqr( integer_t const m, integer_t const n,
- integer_t const k, float* a, integer_t const lda, float* tau,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void orgqr( const integer_t m, const integer_t n,
+ const integer_t k, float* a, const integer_t lda,
+ const float* tau, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORGQR( &m, &n, &k, a, &lda, tau, work, &lwork, &info );
     }
- inline void orgqr( integer_t const m, integer_t const n,
- integer_t const k, double* a, integer_t const lda, double* tau,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void orgqr( const integer_t m, const integer_t n,
+ const integer_t k, double* a, const integer_t lda,
+ const double* tau, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORGQR( &m, &n, &k, a, &lda, tau, work, &lwork, &info );
     }
 }
@@ -55,9 +57,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename WORK >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -76,18 +78,18 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         invoke( m, n, k, a, tau, info, workspace( tmp_work ) );
     }
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::orgqr( m, n, k, traits::matrix_storage(a),
                 traits::leading_dimension(a), traits::vector_storage(tau),
@@ -97,7 +99,7 @@
         invoke( m, n, k, a, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return std::max( 1, n );
     }
 };
@@ -105,8 +107,8 @@
 
 // template function to call orgqr
 template< typename MatrixA, typename VectorTAU, typename Workspace >
-inline integer_t orgqr( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, Workspace work ) {
+inline integer_t orgqr( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orgqr_impl< value_type >::invoke( m, n, k, a, tau, info, work );
@@ -115,8 +117,8 @@
 
 // template function to call orgqr, default workspace type
 template< typename MatrixA, typename VectorTAU >
-inline integer_t orgqr( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau ) {
+inline integer_t orgqr( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orgqr_impl< value_type >::invoke( m, n, k, a, tau, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgrq.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgrq.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgrq.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,14 +34,16 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void orgrq( integer_t const m, integer_t const n,
- integer_t const k, float* a, integer_t const lda, float* tau,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void orgrq( const integer_t m, const integer_t n,
+ const integer_t k, float* a, const integer_t lda,
+ const float* tau, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORGRQ( &m, &n, &k, a, &lda, tau, work, &lwork, &info );
     }
- inline void orgrq( integer_t const m, integer_t const n,
- integer_t const k, double* a, integer_t const lda, double* tau,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void orgrq( const integer_t m, const integer_t n,
+ const integer_t k, double* a, const integer_t lda,
+ const double* tau, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORGRQ( &m, &n, &k, a, &lda, tau, work, &lwork, &info );
     }
 }
@@ -55,9 +57,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename WORK >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -76,18 +78,18 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( m ) );
         invoke( m, n, k, a, tau, info, workspace( tmp_work ) );
     }
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::orgrq( m, n, k, traits::matrix_storage(a),
                 traits::leading_dimension(a), traits::vector_storage(tau),
@@ -97,7 +99,7 @@
         invoke( m, n, k, a, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const m ) {
+ static integer_t min_size_work( const integer_t m ) {
         return std::max( 1, m );
     }
 };
@@ -105,8 +107,8 @@
 
 // template function to call orgrq
 template< typename MatrixA, typename VectorTAU, typename Workspace >
-inline integer_t orgrq( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau, Workspace work ) {
+inline integer_t orgrq( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orgrq_impl< value_type >::invoke( m, n, k, a, tau, info, work );
@@ -115,8 +117,8 @@
 
 // template function to call orgrq, default workspace type
 template< typename MatrixA, typename VectorTAU >
-inline integer_t orgrq( integer_t const m, integer_t const n,
- integer_t const k, MatrixA& a, VectorTAU& tau ) {
+inline integer_t orgrq( const integer_t m, const integer_t n,
+ const integer_t k, MatrixA& a, const VectorTAU& tau ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orgrq_impl< value_type >::invoke( m, n, k, a, tau, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgtr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgtr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/orgtr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,14 +34,14 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void orgtr( char const uplo, integer_t const n, float* a,
- integer_t const lda, float* tau, float* work,
- integer_t const lwork, integer_t& info ) {
+ inline void orgtr( const char uplo, const integer_t n, float* a,
+ const integer_t lda, const float* tau, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SORGTR( &uplo, &n, a, &lda, tau, work, &lwork, &info );
     }
- inline void orgtr( char const uplo, integer_t const n, double* a,
- integer_t const lda, double* tau, double* work,
- integer_t const lwork, integer_t& info ) {
+ inline void orgtr( const char uplo, const integer_t n, double* a,
+ const integer_t lda, const double* tau, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DORGTR( &uplo, &n, a, &lda, tau, work, &lwork, &info );
     }
 }
@@ -55,7 +55,7 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename WORK >
- static void invoke( integer_t const n, MatrixA& a, VectorTAU& tau,
+ static void invoke( const integer_t n, MatrixA& a, const VectorTAU& tau,
             integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
@@ -76,7 +76,7 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const n, MatrixA& a, VectorTAU& tau,
+ static void invoke( const integer_t n, MatrixA& a, const VectorTAU& tau,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         invoke( n, a, tau, info, workspace( tmp_work ) );
@@ -84,7 +84,7 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU >
- static void invoke( integer_t const n, MatrixA& a, VectorTAU& tau,
+ static void invoke( const integer_t n, MatrixA& a, const VectorTAU& tau,
             integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::orgtr( traits::matrix_uplo_tag(a), n,
@@ -95,7 +95,7 @@
         invoke( n, a, tau, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return std::max( 1, n-1 );
     }
 };
@@ -103,8 +103,8 @@
 
 // template function to call orgtr
 template< typename MatrixA, typename VectorTAU, typename Workspace >
-inline integer_t orgtr( integer_t const n, MatrixA& a, VectorTAU& tau,
- Workspace work ) {
+inline integer_t orgtr( const integer_t n, MatrixA& a,
+ const VectorTAU& tau, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orgtr_impl< value_type >::invoke( n, a, tau, info, work );
@@ -113,7 +113,8 @@
 
 // template function to call orgtr, default workspace type
 template< typename MatrixA, typename VectorTAU >
-inline integer_t orgtr( integer_t const n, MatrixA& a, VectorTAU& tau ) {
+inline integer_t orgtr( const integer_t n, MatrixA& a,
+ const VectorTAU& tau ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     orgtr_impl< value_type >::invoke( n, a, tau, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormbr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormbr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormbr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,18 +34,19 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ormbr( char const vect, char const side, char const trans,
- integer_t const m, integer_t const n, integer_t const k, float* a,
- integer_t const lda, float* tau, float* c, integer_t const ldc,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void ormbr( const char vect, const char side, const char trans,
+ const integer_t m, const integer_t n, const integer_t k,
+ const float* a, const integer_t lda, const float* tau, float* c,
+ const integer_t ldc, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORMBR( &vect, &side, &trans, &m, &n, &k, a, &lda, tau, c,
                 &ldc, work, &lwork, &info );
     }
- inline void ormbr( char const vect, char const side, char const trans,
- integer_t const m, integer_t const n, integer_t const k,
- double* a, integer_t const lda, double* tau, double* c,
- integer_t const ldc, double* work, integer_t const lwork,
- integer_t& info ) {
+ inline void ormbr( const char vect, const char side, const char trans,
+ const integer_t m, const integer_t n, const integer_t k,
+ const double* a, const integer_t lda, const double* tau,
+ double* c, const integer_t ldc, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DORMBR( &vect, &side, &trans, &m, &n, &k, a, &lda, tau, c,
                 &ldc, work, &lwork, &info );
     }
@@ -61,9 +62,9 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC,
             typename WORK >
- static void invoke( char const vect, char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c,
- integer_t& info, detail::workspace1< WORK > work ) {
+ static void invoke( const char vect, const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau,
+ MatrixC& c, integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -92,9 +93,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const vect, char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c,
- integer_t& info, minimal_workspace work ) {
+ static void invoke( const char vect, const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau,
+ MatrixC& c, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( side,
                 traits::matrix_num_rows(c), traits::matrix_num_columns(c) ) );
         invoke( vect, side, trans, k, a, tau, c, info, workspace( tmp_work ) );
@@ -102,9 +103,9 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const vect, char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c,
- integer_t& info, optimal_workspace work ) {
+ static void invoke( const char vect, const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau,
+ MatrixC& c, integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::ormbr( vect, side, trans, traits::matrix_num_rows(c),
                 traits::matrix_num_columns(c), k, traits::matrix_storage(a),
@@ -116,8 +117,8 @@
         invoke( vect, side, trans, k, a, tau, c, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( char const side, integer_t const m,
- integer_t const n ) {
+ static integer_t min_size_work( const char side, const integer_t m,
+ const integer_t n ) {
         if ( side == 'L' )
             return std::max( 1, n );
         else
@@ -129,9 +130,9 @@
 // template function to call ormbr
 template< typename MatrixA, typename VectorTAU, typename MatrixC,
         typename Workspace >
-inline integer_t ormbr( char const vect, char const side,
- char const trans, integer_t const k, MatrixA& a, VectorTAU& tau,
- MatrixC& c, Workspace work ) {
+inline integer_t ormbr( const char vect, const char side,
+ const char trans, const integer_t k, const MatrixA& a,
+ const VectorTAU& tau, MatrixC& c, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormbr_impl< value_type >::invoke( vect, side, trans, k, a, tau, c,
@@ -141,9 +142,9 @@
 
 // template function to call ormbr, default workspace type
 template< typename MatrixA, typename VectorTAU, typename MatrixC >
-inline integer_t ormbr( char const vect, char const side,
- char const trans, integer_t const k, MatrixA& a, VectorTAU& tau,
- MatrixC& c ) {
+inline integer_t ormbr( const char vect, const char side,
+ const char trans, const integer_t k, const MatrixA& a,
+ const VectorTAU& tau, MatrixC& c ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormbr_impl< value_type >::invoke( vect, side, trans, k, a, tau, c,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormhr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormhr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormhr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,19 +34,19 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ormhr( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const ilo, integer_t const ihi,
- float* a, integer_t const lda, float* tau, float* c,
- integer_t const ldc, float* work, integer_t const lwork,
+ inline void ormhr( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t ilo, const integer_t ihi,
+ const float* a, const integer_t lda, const float* tau, float* c,
+ const integer_t ldc, float* work, const integer_t lwork,
             integer_t& info ) {
         LAPACK_SORMHR( &side, &trans, &m, &n, &ilo, &ihi, a, &lda, tau, c,
                 &ldc, work, &lwork, &info );
     }
- inline void ormhr( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const ilo, integer_t const ihi,
- double* a, integer_t const lda, double* tau, double* c,
- integer_t const ldc, double* work, integer_t const lwork,
- integer_t& info ) {
+ inline void ormhr( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t ilo, const integer_t ihi,
+ const double* a, const integer_t lda, const double* tau,
+ double* c, const integer_t ldc, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DORMHR( &side, &trans, &m, &n, &ilo, &ihi, a, &lda, tau, c,
                 &ldc, work, &lwork, &info );
     }
@@ -62,10 +62,10 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC,
             typename WORK >
- static void invoke( char const side, char const trans,
- integer_t const ilo, integer_t const ihi, MatrixA& a,
- VectorTAU& tau, MatrixC& c, integer_t& info, detail::workspace1<
- WORK > work ) {
+ static void invoke( const char side, const char trans,
+ const integer_t ilo, const integer_t ihi, const MatrixA& a,
+ const VectorTAU& tau, MatrixC& c, integer_t& info,
+ detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -92,9 +92,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans,
- integer_t const ilo, integer_t const ihi, MatrixA& a,
- VectorTAU& tau, MatrixC& c, integer_t& info,
+ static void invoke( const char side, const char trans,
+ const integer_t ilo, const integer_t ihi, const MatrixA& a,
+ const VectorTAU& tau, MatrixC& c, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( side,
                 traits::matrix_num_rows(c), traits::matrix_num_columns(c) ) );
@@ -104,9 +104,9 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans,
- integer_t const ilo, integer_t const ihi, MatrixA& a,
- VectorTAU& tau, MatrixC& c, integer_t& info,
+ static void invoke( const char side, const char trans,
+ const integer_t ilo, const integer_t ihi, const MatrixA& a,
+ const VectorTAU& tau, MatrixC& c, integer_t& info,
             optimal_workspace work ) {
         real_type opt_size_work;
         detail::ormhr( side, trans, traits::matrix_num_rows(c),
@@ -120,8 +120,8 @@
                 workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( char const side, integer_t const m,
- integer_t const n ) {
+ static integer_t min_size_work( const char side, const integer_t m,
+ const integer_t n ) {
         if ( side == 'L' )
             return std::max( 1, n );
         else
@@ -133,9 +133,9 @@
 // template function to call ormhr
 template< typename MatrixA, typename VectorTAU, typename MatrixC,
         typename Workspace >
-inline integer_t ormhr( char const side, char const trans,
- integer_t const ilo, integer_t const ihi, MatrixA& a, VectorTAU& tau,
- MatrixC& c, Workspace work ) {
+inline integer_t ormhr( const char side, const char trans,
+ const integer_t ilo, const integer_t ihi, const MatrixA& a,
+ const VectorTAU& tau, MatrixC& c, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormhr_impl< value_type >::invoke( side, trans, ilo, ihi, a, tau, c,
@@ -145,9 +145,9 @@
 
 // template function to call ormhr, default workspace type
 template< typename MatrixA, typename VectorTAU, typename MatrixC >
-inline integer_t ormhr( char const side, char const trans,
- integer_t const ilo, integer_t const ihi, MatrixA& a, VectorTAU& tau,
- MatrixC& c ) {
+inline integer_t ormhr( const char side, const char trans,
+ const integer_t ilo, const integer_t ihi, const MatrixA& a,
+ const VectorTAU& tau, MatrixC& c ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormhr_impl< value_type >::invoke( side, trans, ilo, ihi, a, tau, c,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormlq.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormlq.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormlq.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,17 +34,19 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ormlq( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const k, float* a,
- integer_t const lda, float* tau, float* c, integer_t const ldc,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void ormlq( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t k, const float* a,
+ const integer_t lda, const float* tau, float* c,
+ const integer_t ldc, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORMLQ( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
                 &lwork, &info );
     }
- inline void ormlq( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const k, double* a,
- integer_t const lda, double* tau, double* c, integer_t const ldc,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void ormlq( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t k, const double* a,
+ const integer_t lda, const double* tau, double* c,
+ const integer_t ldc, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORMLQ( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
                 &lwork, &info );
     }
@@ -60,9 +62,9 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC,
             typename WORK >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -90,9 +92,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( side,
                 traits::matrix_num_rows(c), traits::matrix_num_columns(c) ) );
         invoke( side, trans, k, a, tau, c, info, workspace( tmp_work ) );
@@ -100,9 +102,9 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::ormlq( side, trans, traits::matrix_num_rows(c),
                 traits::matrix_num_columns(c), k, traits::matrix_storage(a),
@@ -114,8 +116,8 @@
         invoke( side, trans, k, a, tau, c, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( char const side, integer_t const m,
- integer_t const n ) {
+ static integer_t min_size_work( const char side, const integer_t m,
+ const integer_t n ) {
         if ( side == 'L' )
             return std::max( 1, n );
         else
@@ -127,8 +129,8 @@
 // template function to call ormlq
 template< typename MatrixA, typename VectorTAU, typename MatrixC,
         typename Workspace >
-inline integer_t ormlq( char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c,
+inline integer_t ormlq( const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau, MatrixC& c,
         Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
@@ -139,8 +141,9 @@
 
 // template function to call ormlq, default workspace type
 template< typename MatrixA, typename VectorTAU, typename MatrixC >
-inline integer_t ormlq( char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c ) {
+inline integer_t ormlq( const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau,
+ MatrixC& c ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormlq_impl< value_type >::invoke( side, trans, k, a, tau, c, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormql.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormql.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormql.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,17 +34,19 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ormql( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const k, float* a,
- integer_t const lda, float* tau, float* c, integer_t const ldc,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void ormql( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t k, const float* a,
+ const integer_t lda, const float* tau, float* c,
+ const integer_t ldc, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORMQL( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
                 &lwork, &info );
     }
- inline void ormql( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const k, double* a,
- integer_t const lda, double* tau, double* c, integer_t const ldc,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void ormql( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t k, const double* a,
+ const integer_t lda, const double* tau, double* c,
+ const integer_t ldc, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORMQL( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
                 &lwork, &info );
     }
@@ -60,9 +62,9 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC,
             typename WORK >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -89,9 +91,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( side,
                 traits::matrix_num_rows(c), traits::matrix_num_columns(c) ) );
         invoke( side, trans, k, a, tau, c, info, workspace( tmp_work ) );
@@ -99,9 +101,9 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::ormql( side, trans, traits::matrix_num_rows(c),
                 traits::matrix_num_columns(c), k, traits::matrix_storage(a),
@@ -113,8 +115,8 @@
         invoke( side, trans, k, a, tau, c, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( char const side, integer_t const m,
- integer_t const n ) {
+ static integer_t min_size_work( const char side, const integer_t m,
+ const integer_t n ) {
         if ( side == 'L' )
             return std::max( 1, n );
         else
@@ -126,8 +128,8 @@
 // template function to call ormql
 template< typename MatrixA, typename VectorTAU, typename MatrixC,
         typename Workspace >
-inline integer_t ormql( char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c,
+inline integer_t ormql( const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau, MatrixC& c,
         Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
@@ -138,8 +140,9 @@
 
 // template function to call ormql, default workspace type
 template< typename MatrixA, typename VectorTAU, typename MatrixC >
-inline integer_t ormql( char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c ) {
+inline integer_t ormql( const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau,
+ MatrixC& c ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormql_impl< value_type >::invoke( side, trans, k, a, tau, c, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormqr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormqr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormqr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,17 +34,19 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ormqr( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const k, float* a,
- integer_t const lda, float* tau, float* c, integer_t const ldc,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void ormqr( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t k, const float* a,
+ const integer_t lda, const float* tau, float* c,
+ const integer_t ldc, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORMQR( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
                 &lwork, &info );
     }
- inline void ormqr( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const k, double* a,
- integer_t const lda, double* tau, double* c, integer_t const ldc,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void ormqr( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t k, const double* a,
+ const integer_t lda, const double* tau, double* c,
+ const integer_t ldc, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORMQR( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
                 &lwork, &info );
     }
@@ -60,9 +62,9 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC,
             typename WORK >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -89,9 +91,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( side,
                 traits::matrix_num_rows(c), traits::matrix_num_columns(c) ) );
         invoke( side, trans, k, a, tau, c, info, workspace( tmp_work ) );
@@ -99,9 +101,9 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::ormqr( side, trans, traits::matrix_num_rows(c),
                 traits::matrix_num_columns(c), k, traits::matrix_storage(a),
@@ -113,8 +115,8 @@
         invoke( side, trans, k, a, tau, c, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( char const side, integer_t const m,
- integer_t const n ) {
+ static integer_t min_size_work( const char side, const integer_t m,
+ const integer_t n ) {
         if ( side == 'L' )
             return std::max( 1, n );
         else
@@ -126,8 +128,8 @@
 // template function to call ormqr
 template< typename MatrixA, typename VectorTAU, typename MatrixC,
         typename Workspace >
-inline integer_t ormqr( char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c,
+inline integer_t ormqr( const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau, MatrixC& c,
         Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
@@ -138,8 +140,9 @@
 
 // template function to call ormqr, default workspace type
 template< typename MatrixA, typename VectorTAU, typename MatrixC >
-inline integer_t ormqr( char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c ) {
+inline integer_t ormqr( const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau,
+ MatrixC& c ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormqr_impl< value_type >::invoke( side, trans, k, a, tau, c, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormrq.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormrq.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormrq.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,17 +34,19 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ormrq( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const k, float* a,
- integer_t const lda, float* tau, float* c, integer_t const ldc,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void ormrq( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t k, const float* a,
+ const integer_t lda, const float* tau, float* c,
+ const integer_t ldc, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORMRQ( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
                 &lwork, &info );
     }
- inline void ormrq( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const k, double* a,
- integer_t const lda, double* tau, double* c, integer_t const ldc,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void ormrq( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t k, const double* a,
+ const integer_t lda, const double* tau, double* c,
+ const integer_t ldc, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORMRQ( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work,
                 &lwork, &info );
     }
@@ -60,9 +62,9 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC,
             typename WORK >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -90,9 +92,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( side,
                 traits::matrix_num_rows(c), traits::matrix_num_columns(c) ) );
         invoke( side, trans, k, a, tau, c, info, workspace( tmp_work ) );
@@ -100,9 +102,9 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::ormrq( side, trans, traits::matrix_num_rows(c),
                 traits::matrix_num_columns(c), k, traits::matrix_storage(a),
@@ -114,8 +116,8 @@
         invoke( side, trans, k, a, tau, c, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( char const side, integer_t const m,
- integer_t const n ) {
+ static integer_t min_size_work( const char side, const integer_t m,
+ const integer_t n ) {
         if ( side == 'L' )
             return std::max( 1, n );
         else
@@ -127,8 +129,8 @@
 // template function to call ormrq
 template< typename MatrixA, typename VectorTAU, typename MatrixC,
         typename Workspace >
-inline integer_t ormrq( char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c,
+inline integer_t ormrq( const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau, MatrixC& c,
         Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
@@ -139,8 +141,9 @@
 
 // template function to call ormrq, default workspace type
 template< typename MatrixA, typename VectorTAU, typename MatrixC >
-inline integer_t ormrq( char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c ) {
+inline integer_t ormrq( const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau,
+ MatrixC& c ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormrq_impl< value_type >::invoke( side, trans, k, a, tau, c, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormrz.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormrz.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormrz.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,18 +34,19 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ormrz( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const k, integer_t const l, float* a,
- integer_t const lda, float* tau, float* c, integer_t const ldc,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void ormrz( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t k, const integer_t l,
+ const float* a, const integer_t lda, const float* tau, float* c,
+ const integer_t ldc, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORMRZ( &side, &trans, &m, &n, &k, &l, a, &lda, tau, c, &ldc,
                 work, &lwork, &info );
     }
- inline void ormrz( char const side, char const trans, integer_t const m,
- integer_t const n, integer_t const k, integer_t const l,
- double* a, integer_t const lda, double* tau, double* c,
- integer_t const ldc, double* work, integer_t const lwork,
- integer_t& info ) {
+ inline void ormrz( const char side, const char trans, const integer_t m,
+ const integer_t n, const integer_t k, const integer_t l,
+ const double* a, const integer_t lda, const double* tau,
+ double* c, const integer_t ldc, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DORMRZ( &side, &trans, &m, &n, &k, &l, a, &lda, tau, c, &ldc,
                 work, &lwork, &info );
     }
@@ -61,9 +62,9 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC,
             typename WORK >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -91,9 +92,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
         invoke( side, trans, k, a, tau, c, info, workspace( tmp_work ) );
@@ -101,9 +102,9 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, integer_t const k,
- MatrixA& a, VectorTAU& tau, MatrixC& c, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char side, const char trans, const integer_t k,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c,
+ integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         detail::ormrz( side, trans, traits::matrix_num_rows(c),
                 traits::matrix_num_columns(c), k,
@@ -125,8 +126,8 @@
 // template function to call ormrz
 template< typename MatrixA, typename VectorTAU, typename MatrixC,
         typename Workspace >
-inline integer_t ormrz( char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c,
+inline integer_t ormrz( const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau, MatrixC& c,
         Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
@@ -137,8 +138,9 @@
 
 // template function to call ormrz, default workspace type
 template< typename MatrixA, typename VectorTAU, typename MatrixC >
-inline integer_t ormrz( char const side, char const trans,
- integer_t const k, MatrixA& a, VectorTAU& tau, MatrixC& c ) {
+inline integer_t ormrz( const char side, const char trans,
+ const integer_t k, const MatrixA& a, const VectorTAU& tau,
+ MatrixC& c ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormrz_impl< value_type >::invoke( side, trans, k, a, tau, c, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormtr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormtr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ormtr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,17 +34,19 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ormtr( char const side, char const uplo, char const trans,
- integer_t const m, integer_t const n, float* a,
- integer_t const lda, float* tau, float* c, integer_t const ldc,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void ormtr( const char side, const char uplo, const char trans,
+ const integer_t m, const integer_t n, const float* a,
+ const integer_t lda, const float* tau, float* c,
+ const integer_t ldc, float* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_SORMTR( &side, &uplo, &trans, &m, &n, a, &lda, tau, c, &ldc,
                 work, &lwork, &info );
     }
- inline void ormtr( char const side, char const uplo, char const trans,
- integer_t const m, integer_t const n, double* a,
- integer_t const lda, double* tau, double* c, integer_t const ldc,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void ormtr( const char side, const char uplo, const char trans,
+ const integer_t m, const integer_t n, const double* a,
+ const integer_t lda, const double* tau, double* c,
+ const integer_t ldc, double* work, const integer_t lwork,
+ integer_t& info ) {
         LAPACK_DORMTR( &side, &uplo, &trans, &m, &n, a, &lda, tau, c, &ldc,
                 work, &lwork, &info );
     }
@@ -60,9 +62,9 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC,
             typename WORK >
- static void invoke( char const side, char const trans, MatrixA& a,
- VectorTAU& tau, MatrixC& c, integer_t& info, detail::workspace1<
- WORK > work ) {
+ static void invoke( const char side, const char trans, const MatrixA& a,
+ const VectorTAU& tau, MatrixC& c, integer_t& info,
+ detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
                 VectorTAU >::value_type >::value) );
@@ -91,8 +93,8 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, MatrixA& a,
- VectorTAU& tau, MatrixC& c, integer_t& info,
+ static void invoke( const char side, const char trans, const MatrixA& a,
+ const VectorTAU& tau, MatrixC& c, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( side,
                 traits::matrix_num_rows(c), traits::matrix_num_columns(c) ) );
@@ -101,8 +103,8 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorTAU, typename MatrixC >
- static void invoke( char const side, char const trans, MatrixA& a,
- VectorTAU& tau, MatrixC& c, integer_t& info,
+ static void invoke( const char side, const char trans, const MatrixA& a,
+ const VectorTAU& tau, MatrixC& c, integer_t& info,
             optimal_workspace work ) {
         real_type opt_size_work;
         detail::ormtr( side, traits::matrix_uplo_tag(a), trans,
@@ -115,8 +117,8 @@
         invoke( side, trans, a, tau, c, info, workspace( tmp_work ) );
     }
 
- static integer_t min_size_work( char const side, integer_t const m,
- integer_t const n ) {
+ static integer_t min_size_work( const char side, const integer_t m,
+ const integer_t n ) {
         if ( side == 'L' )
             return std::max( 1, n );
         else
@@ -128,8 +130,8 @@
 // template function to call ormtr
 template< typename MatrixA, typename VectorTAU, typename MatrixC,
         typename Workspace >
-inline integer_t ormtr( char const side, char const trans, MatrixA& a,
- VectorTAU& tau, MatrixC& c, Workspace work ) {
+inline integer_t ormtr( const char side, const char trans,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormtr_impl< value_type >::invoke( side, trans, a, tau, c, info,
@@ -139,8 +141,8 @@
 
 // template function to call ormtr, default workspace type
 template< typename MatrixA, typename VectorTAU, typename MatrixC >
-inline integer_t ormtr( char const side, char const trans, MatrixA& a,
- VectorTAU& tau, MatrixC& c ) {
+inline integer_t ormtr( const char side, const char trans,
+ const MatrixA& a, const VectorTAU& tau, MatrixC& c ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     ormtr_impl< value_type >::invoke( side, trans, a, tau, c, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbcon.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbcon.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbcon.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,29 +36,29 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pbcon( char const uplo, integer_t const n, integer_t const kd,
- float* ab, integer_t const ldab, float const anorm, float& rcond,
- float* work, integer_t* iwork, integer_t& info ) {
+ inline void pbcon( const char uplo, const integer_t n, const integer_t kd,
+ const float* ab, const integer_t ldab, const float anorm,
+ float& rcond, float* work, integer_t* iwork, integer_t& info ) {
         LAPACK_SPBCON( &uplo, &n, &kd, ab, &ldab, &anorm, &rcond, work, iwork,
                 &info );
     }
- inline void pbcon( char const uplo, integer_t const n, integer_t const kd,
- double* ab, integer_t const ldab, double const anorm,
+ inline void pbcon( const char uplo, const integer_t n, const integer_t kd,
+ const double* ab, const integer_t ldab, const double anorm,
             double& rcond, double* work, integer_t* iwork, integer_t& info ) {
         LAPACK_DPBCON( &uplo, &n, &kd, ab, &ldab, &anorm, &rcond, work, iwork,
                 &info );
     }
- inline void pbcon( char const uplo, integer_t const n, integer_t const kd,
- traits::complex_f* ab, integer_t const ldab, float const anorm,
- float& rcond, traits::complex_f* work, float* rwork,
- integer_t& info ) {
+ inline void pbcon( const char uplo, const integer_t n, const integer_t kd,
+ const traits::complex_f* ab, const integer_t ldab,
+ const float anorm, float& rcond, traits::complex_f* work,
+ float* rwork, integer_t& info ) {
         LAPACK_CPBCON( &uplo, &n, &kd, traits::complex_ptr(ab), &ldab, &anorm,
                 &rcond, traits::complex_ptr(work), rwork, &info );
     }
- inline void pbcon( char const uplo, integer_t const n, integer_t const kd,
- traits::complex_d* ab, integer_t const ldab, double const anorm,
- double& rcond, traits::complex_d* work, double* rwork,
- integer_t& info ) {
+ inline void pbcon( const char uplo, const integer_t n, const integer_t kd,
+ const traits::complex_d* ab, const integer_t ldab,
+ const double anorm, double& rcond, traits::complex_d* work,
+ double* rwork, integer_t& info ) {
         LAPACK_ZPBCON( &uplo, &n, &kd, traits::complex_ptr(ab), &ldab, &anorm,
                 &rcond, traits::complex_ptr(work), rwork, &info );
     }
@@ -77,8 +77,8 @@
 
     // user-defined workspace specialization
     template< typename MatrixAB, typename WORK, typename IWORK >
- static void invoke( char const uplo, integer_t const n,
- integer_t const kd, MatrixAB& ab, real_type const anorm,
+ static void invoke( const char uplo, const integer_t n,
+ const integer_t kd, const MatrixAB& ab, const real_type anorm,
             real_type& rcond, integer_t& info, detail::workspace2< WORK,
             IWORK > work ) {
         BOOST_ASSERT( uplo == 'U' || uplo == 'L' );
@@ -97,8 +97,8 @@
 
     // minimal workspace specialization
     template< typename MatrixAB >
- static void invoke( char const uplo, integer_t const n,
- integer_t const kd, MatrixAB& ab, real_type const anorm,
+ static void invoke( const char uplo, const integer_t n,
+ const integer_t kd, const MatrixAB& ab, const real_type anorm,
             real_type& rcond, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork( n ) );
@@ -108,17 +108,17 @@
 
     // optimal workspace specialization
     template< typename MatrixAB >
- static void invoke( char const uplo, integer_t const n,
- integer_t const kd, MatrixAB& ab, real_type const anorm,
+ static void invoke( const char uplo, const integer_t n,
+ const integer_t kd, const MatrixAB& ab, const real_type anorm,
             real_type& rcond, integer_t& info, optimal_workspace work ) {
         invoke( uplo, n, kd, ab, anorm, rcond, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -132,8 +132,8 @@
 
     // user-defined workspace specialization
     template< typename MatrixAB, typename WORK, typename RWORK >
- static void invoke( char const uplo, integer_t const n,
- integer_t const kd, MatrixAB& ab, real_type const anorm,
+ static void invoke( const char uplo, const integer_t n,
+ const integer_t kd, const MatrixAB& ab, const real_type anorm,
             real_type& rcond, integer_t& info, detail::workspace2< WORK,
             RWORK > work ) {
         BOOST_ASSERT( uplo == 'U' || uplo == 'L' );
@@ -152,8 +152,8 @@
 
     // minimal workspace specialization
     template< typename MatrixAB >
- static void invoke( char const uplo, integer_t const n,
- integer_t const kd, MatrixAB& ab, real_type const anorm,
+ static void invoke( const char uplo, const integer_t n,
+ const integer_t kd, const MatrixAB& ab, const real_type anorm,
             real_type& rcond, integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
@@ -163,17 +163,17 @@
 
     // optimal workspace specialization
     template< typename MatrixAB >
- static void invoke( char const uplo, integer_t const n,
- integer_t const kd, MatrixAB& ab, real_type const anorm,
+ static void invoke( const char uplo, const integer_t n,
+ const integer_t kd, const MatrixAB& ab, const real_type anorm,
             real_type& rcond, integer_t& info, optimal_workspace work ) {
         invoke( uplo, n, kd, ab, anorm, rcond, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -181,10 +181,10 @@
 
 // template function to call pbcon
 template< typename MatrixAB, typename Workspace >
-inline integer_t pbcon( char const uplo, integer_t const n,
- integer_t const kd, MatrixAB& ab, typename traits::type_traits<
- typename traits::matrix_traits<
- MatrixAB >::value_type >::real_type const anorm,
+inline integer_t pbcon( const char uplo, const integer_t n,
+ const integer_t kd, const MatrixAB& ab,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixAB >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixAB >::value_type >::real_type& rcond, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
@@ -196,10 +196,10 @@
 
 // template function to call pbcon, default workspace type
 template< typename MatrixAB >
-inline integer_t pbcon( char const uplo, integer_t const n,
- integer_t const kd, MatrixAB& ab, typename traits::type_traits<
- typename traits::matrix_traits<
- MatrixAB >::value_type >::real_type const anorm,
+inline integer_t pbcon( const char uplo, const integer_t n,
+ const integer_t kd, const MatrixAB& ab,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixAB >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixAB >::value_type >::real_type& rcond ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbequ.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbequ.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbequ.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,24 +34,24 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pbequ( char const uplo, integer_t const n, integer_t const kd,
- float* ab, integer_t const ldab, float* s, float& scond,
+ inline void pbequ( const char uplo, const integer_t n, const integer_t kd,
+ const float* ab, const integer_t ldab, float* s, float& scond,
             float& amax, integer_t& info ) {
         LAPACK_SPBEQU( &uplo, &n, &kd, ab, &ldab, s, &scond, &amax, &info );
     }
- inline void pbequ( char const uplo, integer_t const n, integer_t const kd,
- double* ab, integer_t const ldab, double* s, double& scond,
+ inline void pbequ( const char uplo, const integer_t n, const integer_t kd,
+ const double* ab, const integer_t ldab, double* s, double& scond,
             double& amax, integer_t& info ) {
         LAPACK_DPBEQU( &uplo, &n, &kd, ab, &ldab, s, &scond, &amax, &info );
     }
- inline void pbequ( char const uplo, integer_t const n, integer_t const kd,
- traits::complex_f* ab, integer_t const ldab, float* s,
+ inline void pbequ( const char uplo, const integer_t n, const integer_t kd,
+ const traits::complex_f* ab, const integer_t ldab, float* s,
             float& scond, float& amax, integer_t& info ) {
         LAPACK_CPBEQU( &uplo, &n, &kd, traits::complex_ptr(ab), &ldab, s,
                 &scond, &amax, &info );
     }
- inline void pbequ( char const uplo, integer_t const n, integer_t const kd,
- traits::complex_d* ab, integer_t const ldab, double* s,
+ inline void pbequ( const char uplo, const integer_t n, const integer_t kd,
+ const traits::complex_d* ab, const integer_t ldab, double* s,
             double& scond, double& amax, integer_t& info ) {
         LAPACK_ZPBEQU( &uplo, &n, &kd, traits::complex_ptr(ab), &ldab, s,
                 &scond, &amax, &info );
@@ -71,8 +71,9 @@
 
     // templated specialization
     template< typename MatrixAB, typename VectorS >
- static void invoke( integer_t const n, integer_t const kd, MatrixAB& ab,
- VectorS& s, real_type& scond, real_type& amax, integer_t& info ) {
+ static void invoke( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, VectorS& s, real_type& scond, real_type& amax,
+ integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::vector_traits<
                 VectorS >::value_type >::value) );
@@ -96,8 +97,9 @@
 
     // templated specialization
     template< typename MatrixAB, typename VectorS >
- static void invoke( integer_t const n, integer_t const kd, MatrixAB& ab,
- VectorS& s, real_type& scond, real_type& amax, integer_t& info ) {
+ static void invoke( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, VectorS& s, real_type& scond, real_type& amax,
+ integer_t& info ) {
         BOOST_ASSERT( traits::matrix_uplo_tag(a) == 'U' ||
                 traits::matrix_uplo_tag(a) == 'L' );
         BOOST_ASSERT( n >= 0 );
@@ -112,8 +114,8 @@
 
 // template function to call pbequ
 template< typename MatrixAB, typename VectorS >
-inline integer_t pbequ( integer_t const n, integer_t const kd,
- MatrixAB& ab, VectorS& s, typename traits::type_traits<
+inline integer_t pbequ( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, VectorS& s, typename traits::type_traits<
         typename traits::matrix_traits<
         MatrixAB >::value_type >::real_type& scond,
         typename traits::type_traits< typename traits::matrix_traits<

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbrfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbrfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbrfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,39 +36,41 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pbrfs( char const uplo, integer_t const n, integer_t const kd,
- integer_t const nrhs, float* ab, integer_t const ldab, float* afb,
- integer_t const ldafb, float* b, integer_t const ldb, float* x,
- integer_t const ldx, float* ferr, float* berr, float* work,
- integer_t* iwork, integer_t& info ) {
+ inline void pbrfs( const char uplo, const integer_t n, const integer_t kd,
+ const integer_t nrhs, const float* ab, const integer_t ldab,
+ const float* afb, const integer_t ldafb, const float* b,
+ const integer_t ldb, float* x, const integer_t ldx, float* ferr,
+ float* berr, float* work, integer_t* iwork, integer_t& info ) {
         LAPACK_SPBRFS( &uplo, &n, &kd, &nrhs, ab, &ldab, afb, &ldafb, b, &ldb,
                 x, &ldx, ferr, berr, work, iwork, &info );
     }
- inline void pbrfs( char const uplo, integer_t const n, integer_t const kd,
- integer_t const nrhs, double* ab, integer_t const ldab,
- double* afb, integer_t const ldafb, double* b,
- integer_t const ldb, double* x, integer_t const ldx, double* ferr,
+ inline void pbrfs( const char uplo, const integer_t n, const integer_t kd,
+ const integer_t nrhs, const double* ab, const integer_t ldab,
+ const double* afb, const integer_t ldafb, const double* b,
+ const integer_t ldb, double* x, const integer_t ldx, double* ferr,
             double* berr, double* work, integer_t* iwork, integer_t& info ) {
         LAPACK_DPBRFS( &uplo, &n, &kd, &nrhs, ab, &ldab, afb, &ldafb, b, &ldb,
                 x, &ldx, ferr, berr, work, iwork, &info );
     }
- inline void pbrfs( char const uplo, integer_t const n, integer_t const kd,
- integer_t const nrhs, traits::complex_f* ab, integer_t const ldab,
- traits::complex_f* afb, integer_t const ldafb,
- traits::complex_f* b, integer_t const ldb, traits::complex_f* x,
- integer_t const ldx, float* ferr, float* berr,
- traits::complex_f* work, float* rwork, integer_t& info ) {
+ inline void pbrfs( const char uplo, const integer_t n, const integer_t kd,
+ const integer_t nrhs, const traits::complex_f* ab,
+ const integer_t ldab, const traits::complex_f* afb,
+ const integer_t ldafb, const traits::complex_f* b,
+ const integer_t ldb, traits::complex_f* x, const integer_t ldx,
+ float* ferr, float* berr, traits::complex_f* work, float* rwork,
+ integer_t& info ) {
         LAPACK_CPBRFS( &uplo, &n, &kd, &nrhs, traits::complex_ptr(ab), &ldab,
                 traits::complex_ptr(afb), &ldafb, traits::complex_ptr(b),
                 &ldb, traits::complex_ptr(x), &ldx, ferr, berr,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void pbrfs( char const uplo, integer_t const n, integer_t const kd,
- integer_t const nrhs, traits::complex_d* ab, integer_t const ldab,
- traits::complex_d* afb, integer_t const ldafb,
- traits::complex_d* b, integer_t const ldb, traits::complex_d* x,
- integer_t const ldx, double* ferr, double* berr,
- traits::complex_d* work, double* rwork, integer_t& info ) {
+ inline void pbrfs( const char uplo, const integer_t n, const integer_t kd,
+ const integer_t nrhs, const traits::complex_d* ab,
+ const integer_t ldab, const traits::complex_d* afb,
+ const integer_t ldafb, const traits::complex_d* b,
+ const integer_t ldb, traits::complex_d* x, const integer_t ldx,
+ double* ferr, double* berr, traits::complex_d* work,
+ double* rwork, integer_t& info ) {
         LAPACK_ZPBRFS( &uplo, &n, &kd, &nrhs, traits::complex_ptr(ab), &ldab,
                 traits::complex_ptr(afb), &ldafb, traits::complex_ptr(b),
                 &ldb, traits::complex_ptr(x), &ldx, ferr, berr,
@@ -91,10 +93,10 @@
     template< typename MatrixAB, typename MatrixAFB, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR,
             typename WORK, typename IWORK >
- static void invoke( integer_t const n, integer_t const kd, MatrixAB& ab,
- MatrixAFB& afb, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, detail::workspace2< WORK,
- IWORK > work ) {
+ static void invoke( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, const MatrixAFB& afb, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::matrix_traits<
                 MatrixAFB >::value_type >::value) );
@@ -139,9 +141,10 @@
     // minimal workspace specialization
     template< typename MatrixAB, typename MatrixAFB, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( integer_t const n, integer_t const kd, MatrixAB& ab,
- MatrixAFB& afb, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, minimal_workspace work ) {
+ static void invoke( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, const MatrixAFB& afb, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork( n ) );
         invoke( n, kd, ab, afb, b, x, ferr, berr, info, workspace( tmp_work,
@@ -151,17 +154,18 @@
     // optimal workspace specialization
     template< typename MatrixAB, typename MatrixAFB, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( integer_t const n, integer_t const kd, MatrixAB& ab,
- MatrixAFB& afb, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, optimal_workspace work ) {
+ static void invoke( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, const MatrixAFB& afb, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( n, kd, ab, afb, b, x, ferr, berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -177,10 +181,10 @@
     template< typename MatrixAB, typename MatrixAFB, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR,
             typename WORK, typename RWORK >
- static void invoke( integer_t const n, integer_t const kd, MatrixAB& ab,
- MatrixAFB& afb, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, detail::workspace2< WORK,
- RWORK > work ) {
+ static void invoke( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, const MatrixAFB& afb, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorFERR >::value_type, typename traits::vector_traits<
                 VectorBERR >::value_type >::value) );
@@ -222,9 +226,10 @@
     // minimal workspace specialization
     template< typename MatrixAB, typename MatrixAFB, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( integer_t const n, integer_t const kd, MatrixAB& ab,
- MatrixAFB& afb, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, minimal_workspace work ) {
+ static void invoke( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, const MatrixAFB& afb, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
         invoke( n, kd, ab, afb, b, x, ferr, berr, info, workspace( tmp_work,
@@ -234,17 +239,18 @@
     // optimal workspace specialization
     template< typename MatrixAB, typename MatrixAFB, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( integer_t const n, integer_t const kd, MatrixAB& ab,
- MatrixAFB& afb, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, optimal_workspace work ) {
+ static void invoke( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, const MatrixAFB& afb, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( n, kd, ab, afb, b, x, ferr, berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -254,9 +260,9 @@
 template< typename MatrixAB, typename MatrixAFB, typename MatrixB,
         typename MatrixX, typename VectorFERR, typename VectorBERR,
         typename Workspace >
-inline integer_t pbrfs( integer_t const n, integer_t const kd,
- MatrixAB& ab, MatrixAFB& afb, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
+inline integer_t pbrfs( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, const MatrixAFB& afb, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     pbrfs_impl< value_type >::invoke( n, kd, ab, afb, b, x, ferr, berr,
@@ -267,9 +273,9 @@
 // template function to call pbrfs, default workspace type
 template< typename MatrixAB, typename MatrixAFB, typename MatrixB,
         typename MatrixX, typename VectorFERR, typename VectorBERR >
-inline integer_t pbrfs( integer_t const n, integer_t const kd,
- MatrixAB& ab, MatrixAFB& afb, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr ) {
+inline integer_t pbrfs( const integer_t n, const integer_t kd,
+ const MatrixAB& ab, const MatrixAFB& afb, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     pbrfs_impl< value_type >::invoke( n, kd, ab, afb, b, x, ferr, berr,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbstf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbstf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbstf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,20 +31,20 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pbstf( char const uplo, integer_t const n, integer_t const kd,
- float* ab, integer_t const ldab, integer_t& info ) {
+ inline void pbstf( const char uplo, const integer_t n, const integer_t kd,
+ float* ab, const integer_t ldab, integer_t& info ) {
         LAPACK_SPBSTF( &uplo, &n, &kd, ab, &ldab, &info );
     }
- inline void pbstf( char const uplo, integer_t const n, integer_t const kd,
- double* ab, integer_t const ldab, integer_t& info ) {
+ inline void pbstf( const char uplo, const integer_t n, const integer_t kd,
+ double* ab, const integer_t ldab, integer_t& info ) {
         LAPACK_DPBSTF( &uplo, &n, &kd, ab, &ldab, &info );
     }
- inline void pbstf( char const uplo, integer_t const n, integer_t const kd,
- traits::complex_f* ab, integer_t const ldab, integer_t& info ) {
+ inline void pbstf( const char uplo, const integer_t n, const integer_t kd,
+ traits::complex_f* ab, const integer_t ldab, integer_t& info ) {
         LAPACK_CPBSTF( &uplo, &n, &kd, traits::complex_ptr(ab), &ldab, &info );
     }
- inline void pbstf( char const uplo, integer_t const n, integer_t const kd,
- traits::complex_d* ab, integer_t const ldab, integer_t& info ) {
+ inline void pbstf( const char uplo, const integer_t n, const integer_t kd,
+ traits::complex_d* ab, const integer_t ldab, integer_t& info ) {
         LAPACK_ZPBSTF( &uplo, &n, &kd, traits::complex_ptr(ab), &ldab, &info );
     }
 }
@@ -58,7 +58,7 @@
 
     // templated specialization
     template< typename MatrixAB >
- static void invoke( integer_t const n, integer_t const kd, MatrixAB& ab,
+ static void invoke( const integer_t n, const integer_t kd, MatrixAB& ab,
             integer_t& info ) {
         BOOST_ASSERT( traits::matrix_uplo_tag(a) == 'U' ||
                 traits::matrix_uplo_tag(a) == 'L' );
@@ -74,7 +74,7 @@
 
 // template function to call pbstf
 template< typename MatrixAB >
-inline integer_t pbstf( integer_t const n, integer_t const kd,
+inline integer_t pbstf( const integer_t n, const integer_t kd,
         MatrixAB& ab ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbtrf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbtrf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbtrf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,20 +31,20 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pbtrf( char const uplo, integer_t const n, integer_t const kd,
- float* ab, integer_t const ldab, integer_t& info ) {
+ inline void pbtrf( const char uplo, const integer_t n, const integer_t kd,
+ float* ab, const integer_t ldab, integer_t& info ) {
         LAPACK_SPBTRF( &uplo, &n, &kd, ab, &ldab, &info );
     }
- inline void pbtrf( char const uplo, integer_t const n, integer_t const kd,
- double* ab, integer_t const ldab, integer_t& info ) {
+ inline void pbtrf( const char uplo, const integer_t n, const integer_t kd,
+ double* ab, const integer_t ldab, integer_t& info ) {
         LAPACK_DPBTRF( &uplo, &n, &kd, ab, &ldab, &info );
     }
- inline void pbtrf( char const uplo, integer_t const n, integer_t const kd,
- traits::complex_f* ab, integer_t const ldab, integer_t& info ) {
+ inline void pbtrf( const char uplo, const integer_t n, const integer_t kd,
+ traits::complex_f* ab, const integer_t ldab, integer_t& info ) {
         LAPACK_CPBTRF( &uplo, &n, &kd, traits::complex_ptr(ab), &ldab, &info );
     }
- inline void pbtrf( char const uplo, integer_t const n, integer_t const kd,
- traits::complex_d* ab, integer_t const ldab, integer_t& info ) {
+ inline void pbtrf( const char uplo, const integer_t n, const integer_t kd,
+ traits::complex_d* ab, const integer_t ldab, integer_t& info ) {
         LAPACK_ZPBTRF( &uplo, &n, &kd, traits::complex_ptr(ab), &ldab, &info );
     }
 }
@@ -58,7 +58,7 @@
 
     // templated specialization
     template< typename MatrixAB >
- static void invoke( integer_t const n, integer_t const kd, MatrixAB& ab,
+ static void invoke( const integer_t n, const integer_t kd, MatrixAB& ab,
             integer_t& info ) {
         BOOST_ASSERT( traits::matrix_uplo_tag(a) == 'U' ||
                 traits::matrix_uplo_tag(a) == 'L' );
@@ -74,7 +74,7 @@
 
 // template function to call pbtrf
 template< typename MatrixAB >
-inline integer_t pbtrf( integer_t const n, integer_t const kd,
+inline integer_t pbtrf( const integer_t n, const integer_t kd,
         MatrixAB& ab ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbtrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbtrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pbtrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,25 +31,27 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pbtrs( char const uplo, integer_t const n, integer_t const kd,
- integer_t const nrhs, float* ab, integer_t const ldab, float* b,
- integer_t const ldb, integer_t& info ) {
+ inline void pbtrs( const char uplo, const integer_t n, const integer_t kd,
+ const integer_t nrhs, const float* ab, const integer_t ldab,
+ float* b, const integer_t ldb, integer_t& info ) {
         LAPACK_SPBTRS( &uplo, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info );
     }
- inline void pbtrs( char const uplo, integer_t const n, integer_t const kd,
- integer_t const nrhs, double* ab, integer_t const ldab, double* b,
- integer_t const ldb, integer_t& info ) {
+ inline void pbtrs( const char uplo, const integer_t n, const integer_t kd,
+ const integer_t nrhs, const double* ab, const integer_t ldab,
+ double* b, const integer_t ldb, integer_t& info ) {
         LAPACK_DPBTRS( &uplo, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info );
     }
- inline void pbtrs( char const uplo, integer_t const n, integer_t const kd,
- integer_t const nrhs, traits::complex_f* ab, integer_t const ldab,
- traits::complex_f* b, integer_t const ldb, integer_t& info ) {
+ inline void pbtrs( const char uplo, const integer_t n, const integer_t kd,
+ const integer_t nrhs, const traits::complex_f* ab,
+ const integer_t ldab, traits::complex_f* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_CPBTRS( &uplo, &n, &kd, &nrhs, traits::complex_ptr(ab), &ldab,
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void pbtrs( char const uplo, integer_t const n, integer_t const kd,
- integer_t const nrhs, traits::complex_d* ab, integer_t const ldab,
- traits::complex_d* b, integer_t const ldb, integer_t& info ) {
+ inline void pbtrs( const char uplo, const integer_t n, const integer_t kd,
+ const integer_t nrhs, const traits::complex_d* ab,
+ const integer_t ldab, traits::complex_d* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_ZPBTRS( &uplo, &n, &kd, &nrhs, traits::complex_ptr(ab), &ldab,
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -64,8 +66,9 @@
 
     // templated specialization
     template< typename MatrixAB, typename MatrixB >
- static void invoke( char const uplo, integer_t const n,
- integer_t const kd, MatrixAB& ab, MatrixB& b, integer_t& info ) {
+ static void invoke( const char uplo, const integer_t n,
+ const integer_t kd, const MatrixAB& ab, MatrixB& b,
+ integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -85,8 +88,8 @@
 
 // template function to call pbtrs
 template< typename MatrixAB, typename MatrixB >
-inline integer_t pbtrs( char const uplo, integer_t const n,
- integer_t const kd, MatrixAB& ab, MatrixB& b ) {
+inline integer_t pbtrs( const char uplo, const integer_t n,
+ const integer_t kd, const MatrixAB& ab, MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     pbtrs_impl< value_type >::invoke( uplo, n, kd, ab, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pftrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pftrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pftrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,25 +34,25 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pftrs( char const transr, char const uplo, integer_t const n,
- integer_t const nrhs, float* a, float* b, integer_t const ldb,
- integer_t& info ) {
+ inline void pftrs( const char transr, const char uplo, const integer_t n,
+ const integer_t nrhs, const float* a, float* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_SPFTRS( &transr, &uplo, &n, &nrhs, a, b, &ldb, &info );
     }
- inline void pftrs( char const transr, char const uplo, integer_t const n,
- integer_t const nrhs, double* a, double* b, integer_t const ldb,
- integer_t& info ) {
+ inline void pftrs( const char transr, const char uplo, const integer_t n,
+ const integer_t nrhs, const double* a, double* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_DPFTRS( &transr, &uplo, &n, &nrhs, a, b, &ldb, &info );
     }
- inline void pftrs( char const transr, char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* a, traits::complex_f* b,
- integer_t const ldb, integer_t& info ) {
+ inline void pftrs( const char transr, const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* a,
+ traits::complex_f* b, const integer_t ldb, integer_t& info ) {
         LAPACK_CPFTRS( &transr, &uplo, &n, &nrhs, traits::complex_ptr(a),
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void pftrs( char const transr, char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* a, traits::complex_d* b,
- integer_t const ldb, integer_t& info ) {
+ inline void pftrs( const char transr, const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* a,
+ traits::complex_d* b, const integer_t ldb, integer_t& info ) {
         LAPACK_ZPFTRS( &transr, &uplo, &n, &nrhs, traits::complex_ptr(a),
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -71,8 +71,8 @@
 
     // templated specialization
     template< typename VectorA, typename MatrixB >
- static void invoke( char const transr, integer_t const n, VectorA& a,
- MatrixB& b, integer_t& info ) {
+ static void invoke( const char transr, const integer_t n,
+ const VectorA& a, MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorA >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -99,8 +99,8 @@
 
     // templated specialization
     template< typename VectorA, typename MatrixB >
- static void invoke( char const transr, integer_t const n, VectorA& a,
- MatrixB& b, integer_t& info ) {
+ static void invoke( const char transr, const integer_t n,
+ const VectorA& a, MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorA >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -121,8 +121,8 @@
 
 // template function to call pftrs
 template< typename VectorA, typename MatrixB >
-inline integer_t pftrs( char const transr, integer_t const n, VectorA& a,
- MatrixB& b ) {
+inline integer_t pftrs( const char transr, const integer_t n,
+ const VectorA& a, MatrixB& b ) {
     typedef typename traits::vector_traits< VectorA >::value_type value_type;
     integer_t info(0);
     pftrs_impl< value_type >::invoke( transr, n, a, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pocon.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pocon.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pocon.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,29 +36,29 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pocon( char const uplo, integer_t const n, float* a,
- integer_t const lda, float const anorm, float& rcond, float* work,
+ inline void pocon( const char uplo, const integer_t n, const float* a,
+ const integer_t lda, const float anorm, float& rcond, float* work,
             integer_t* iwork, integer_t& info ) {
         LAPACK_SPOCON( &uplo, &n, a, &lda, &anorm, &rcond, work, iwork,
                 &info );
     }
- inline void pocon( char const uplo, integer_t const n, double* a,
- integer_t const lda, double const anorm, double& rcond,
+ inline void pocon( const char uplo, const integer_t n, const double* a,
+ const integer_t lda, const double anorm, double& rcond,
             double* work, integer_t* iwork, integer_t& info ) {
         LAPACK_DPOCON( &uplo, &n, a, &lda, &anorm, &rcond, work, iwork,
                 &info );
     }
- inline void pocon( char const uplo, integer_t const n,
- traits::complex_f* a, integer_t const lda, float const anorm,
- float& rcond, traits::complex_f* work, float* rwork,
- integer_t& info ) {
+ inline void pocon( const char uplo, const integer_t n,
+ const traits::complex_f* a, const integer_t lda,
+ const float anorm, float& rcond, traits::complex_f* work,
+ float* rwork, integer_t& info ) {
         LAPACK_CPOCON( &uplo, &n, traits::complex_ptr(a), &lda, &anorm,
                 &rcond, traits::complex_ptr(work), rwork, &info );
     }
- inline void pocon( char const uplo, integer_t const n,
- traits::complex_d* a, integer_t const lda, double const anorm,
- double& rcond, traits::complex_d* work, double* rwork,
- integer_t& info ) {
+ inline void pocon( const char uplo, const integer_t n,
+ const traits::complex_d* a, const integer_t lda,
+ const double anorm, double& rcond, traits::complex_d* work,
+ double* rwork, integer_t& info ) {
         LAPACK_ZPOCON( &uplo, &n, traits::complex_ptr(a), &lda, &anorm,
                 &rcond, traits::complex_ptr(work), rwork, &info );
     }
@@ -77,8 +77,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename WORK, typename IWORK >
- static void invoke( MatrixA& a, real_type const anorm, real_type& rcond,
- integer_t& info, detail::workspace2< WORK, IWORK > work ) {
+ static void invoke( const MatrixA& a, const real_type anorm,
+ real_type& rcond, integer_t& info, detail::workspace2< WORK,
+ IWORK > work ) {
         BOOST_ASSERT( traits::matrix_uplo_tag(a) == 'U' ||
                 traits::matrix_uplo_tag(a) == 'L' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
@@ -97,8 +98,8 @@
 
     // minimal workspace specialization
     template< typename MatrixA >
- static void invoke( MatrixA& a, real_type const anorm, real_type& rcond,
- integer_t& info, minimal_workspace work ) {
+ static void invoke( const MatrixA& a, const real_type anorm,
+ real_type& rcond, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork(
@@ -108,16 +109,16 @@
 
     // optimal workspace specialization
     template< typename MatrixA >
- static void invoke( MatrixA& a, real_type const anorm, real_type& rcond,
- integer_t& info, optimal_workspace work ) {
+ static void invoke( const MatrixA& a, const real_type anorm,
+ real_type& rcond, integer_t& info, optimal_workspace work ) {
         invoke( a, anorm, rcond, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -131,8 +132,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename WORK, typename RWORK >
- static void invoke( MatrixA& a, real_type const anorm, real_type& rcond,
- integer_t& info, detail::workspace2< WORK, RWORK > work ) {
+ static void invoke( const MatrixA& a, const real_type anorm,
+ real_type& rcond, integer_t& info, detail::workspace2< WORK,
+ RWORK > work ) {
         BOOST_ASSERT( traits::matrix_uplo_tag(a) == 'U' ||
                 traits::matrix_uplo_tag(a) == 'L' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
@@ -151,8 +153,8 @@
 
     // minimal workspace specialization
     template< typename MatrixA >
- static void invoke( MatrixA& a, real_type const anorm, real_type& rcond,
- integer_t& info, minimal_workspace work ) {
+ static void invoke( const MatrixA& a, const real_type anorm,
+ real_type& rcond, integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork(
@@ -162,16 +164,16 @@
 
     // optimal workspace specialization
     template< typename MatrixA >
- static void invoke( MatrixA& a, real_type const anorm, real_type& rcond,
- integer_t& info, optimal_workspace work ) {
+ static void invoke( const MatrixA& a, const real_type anorm,
+ real_type& rcond, integer_t& info, optimal_workspace work ) {
         invoke( a, anorm, rcond, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -179,9 +181,9 @@
 
 // template function to call pocon
 template< typename MatrixA, typename Workspace >
-inline integer_t pocon( MatrixA& a, typename traits::type_traits<
- typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const anorm,
+inline integer_t pocon( const MatrixA& a,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& rcond, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
@@ -192,9 +194,9 @@
 
 // template function to call pocon, default workspace type
 template< typename MatrixA >
-inline integer_t pocon( MatrixA& a, typename traits::type_traits<
- typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const anorm,
+inline integer_t pocon( const MatrixA& a,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& rcond ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/poequ.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/poequ.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/poequ.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,22 +34,23 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void poequ( integer_t const n, float* a, integer_t const lda,
+ inline void poequ( const integer_t n, const float* a, const integer_t lda,
             float* s, float& scond, float& amax, integer_t& info ) {
         LAPACK_SPOEQU( &n, a, &lda, s, &scond, &amax, &info );
     }
- inline void poequ( integer_t const n, double* a, integer_t const lda,
- double* s, double& scond, double& amax, integer_t& info ) {
+ inline void poequ( const integer_t n, const double* a,
+ const integer_t lda, double* s, double& scond, double& amax,
+ integer_t& info ) {
         LAPACK_DPOEQU( &n, a, &lda, s, &scond, &amax, &info );
     }
- inline void poequ( integer_t const n, traits::complex_f* a,
- integer_t const lda, float* s, float& scond, float& amax,
+ inline void poequ( const integer_t n, const traits::complex_f* a,
+ const integer_t lda, float* s, float& scond, float& amax,
             integer_t& info ) {
         LAPACK_CPOEQU( &n, traits::complex_ptr(a), &lda, s, &scond, &amax,
                 &info );
     }
- inline void poequ( integer_t const n, traits::complex_d* a,
- integer_t const lda, double* s, double& scond, double& amax,
+ inline void poequ( const integer_t n, const traits::complex_d* a,
+ const integer_t lda, double* s, double& scond, double& amax,
             integer_t& info ) {
         LAPACK_ZPOEQU( &n, traits::complex_ptr(a), &lda, s, &scond, &amax,
                 &info );
@@ -69,7 +70,7 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorS >
- static void invoke( MatrixA& a, VectorS& s, real_type& scond,
+ static void invoke( const MatrixA& a, VectorS& s, real_type& scond,
             real_type& amax, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::vector_traits<
@@ -92,7 +93,7 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorS >
- static void invoke( MatrixA& a, VectorS& s, real_type& scond,
+ static void invoke( const MatrixA& a, VectorS& s, real_type& scond,
             real_type& amax, integer_t& info ) {
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
         BOOST_ASSERT( traits::leading_dimension(a) >= std::max(1,
@@ -106,7 +107,7 @@
 
 // template function to call poequ
 template< typename MatrixA, typename VectorS >
-inline integer_t poequ( MatrixA& a, VectorS& s,
+inline integer_t poequ( const MatrixA& a, VectorS& s,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& scond,
         typename traits::type_traits< typename traits::matrix_traits<

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/porfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/porfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/porfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,26 +36,27 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void porfs( char const uplo, integer_t const n,
- integer_t const nrhs, float* a, integer_t const lda, float* af,
- integer_t const ldaf, float* b, integer_t const ldb, float* x,
- integer_t const ldx, float* ferr, float* berr, float* work,
- integer_t* iwork, integer_t& info ) {
+ inline void porfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const float* a, const integer_t lda,
+ const float* af, const integer_t ldaf, const float* b,
+ const integer_t ldb, float* x, const integer_t ldx, float* ferr,
+ float* berr, float* work, integer_t* iwork, integer_t& info ) {
         LAPACK_SPORFS( &uplo, &n, &nrhs, a, &lda, af, &ldaf, b, &ldb, x, &ldx,
                 ferr, berr, work, iwork, &info );
     }
- inline void porfs( char const uplo, integer_t const n,
- integer_t const nrhs, double* a, integer_t const lda, double* af,
- integer_t const ldaf, double* b, integer_t const ldb, double* x,
- integer_t const ldx, double* ferr, double* berr, double* work,
- integer_t* iwork, integer_t& info ) {
+ inline void porfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const double* a, const integer_t lda,
+ const double* af, const integer_t ldaf, const double* b,
+ const integer_t ldb, double* x, const integer_t ldx, double* ferr,
+ double* berr, double* work, integer_t* iwork, integer_t& info ) {
         LAPACK_DPORFS( &uplo, &n, &nrhs, a, &lda, af, &ldaf, b, &ldb, x, &ldx,
                 ferr, berr, work, iwork, &info );
     }
- inline void porfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* a, integer_t const lda,
- traits::complex_f* af, integer_t const ldaf, traits::complex_f* b,
- integer_t const ldb, traits::complex_f* x, integer_t const ldx,
+ inline void porfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* a,
+ const integer_t lda, const traits::complex_f* af,
+ const integer_t ldaf, const traits::complex_f* b,
+ const integer_t ldb, traits::complex_f* x, const integer_t ldx,
             float* ferr, float* berr, traits::complex_f* work, float* rwork,
             integer_t& info ) {
         LAPACK_CPORFS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda,
@@ -63,10 +64,11 @@
                 traits::complex_ptr(x), &ldx, ferr, berr,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void porfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* a, integer_t const lda,
- traits::complex_d* af, integer_t const ldaf, traits::complex_d* b,
- integer_t const ldb, traits::complex_d* x, integer_t const ldx,
+ inline void porfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* a,
+ const integer_t lda, const traits::complex_d* af,
+ const integer_t ldaf, const traits::complex_d* b,
+ const integer_t ldb, traits::complex_d* x, const integer_t ldx,
             double* ferr, double* berr, traits::complex_d* work,
             double* rwork, integer_t& info ) {
         LAPACK_ZPORFS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda,
@@ -91,9 +93,9 @@
     template< typename MatrixA, typename MatrixAF, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR,
             typename WORK, typename IWORK >
- static void invoke( MatrixA& a, MatrixAF& af, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- detail::workspace2< WORK, IWORK > work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ integer_t& info, detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
                 MatrixAF >::value_type >::value) );
@@ -141,9 +143,9 @@
     // minimal workspace specialization
     template< typename MatrixA, typename MatrixAF, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( MatrixA& a, MatrixAF& af, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork(
@@ -155,17 +157,17 @@
     // optimal workspace specialization
     template< typename MatrixA, typename MatrixAF, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( MatrixA& a, MatrixAF& af, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ integer_t& info, optimal_workspace work ) {
         invoke( a, af, b, x, ferr, berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -181,9 +183,9 @@
     template< typename MatrixA, typename MatrixAF, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR,
             typename WORK, typename RWORK >
- static void invoke( MatrixA& a, MatrixAF& af, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- detail::workspace2< WORK, RWORK > work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ integer_t& info, detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorFERR >::value_type, typename traits::vector_traits<
                 VectorBERR >::value_type >::value) );
@@ -228,9 +230,9 @@
     // minimal workspace specialization
     template< typename MatrixA, typename MatrixAF, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( MatrixA& a, MatrixAF& af, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork(
@@ -242,17 +244,17 @@
     // optimal workspace specialization
     template< typename MatrixA, typename MatrixAF, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( MatrixA& a, MatrixAF& af, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ integer_t& info, optimal_workspace work ) {
         invoke( a, af, b, x, ferr, berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -262,8 +264,9 @@
 template< typename MatrixA, typename MatrixAF, typename MatrixB,
         typename MatrixX, typename VectorFERR, typename VectorBERR,
         typename Workspace >
-inline integer_t porfs( MatrixA& a, MatrixAF& af, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
+inline integer_t porfs( const MatrixA& a, const MatrixAF& af,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     porfs_impl< value_type >::invoke( a, af, b, x, ferr, berr, info,
@@ -274,8 +277,8 @@
 // template function to call porfs, default workspace type
 template< typename MatrixA, typename MatrixAF, typename MatrixB,
         typename MatrixX, typename VectorFERR, typename VectorBERR >
-inline integer_t porfs( MatrixA& a, MatrixAF& af, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr ) {
+inline integer_t porfs( const MatrixA& a, const MatrixAF& af,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     porfs_impl< value_type >::invoke( a, af, b, x, ferr, berr, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potrf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potrf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potrf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,20 +31,20 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void potrf( char const uplo, integer_t const n, float* a,
- integer_t const lda, integer_t& info ) {
+ inline void potrf( const char uplo, const integer_t n, float* a,
+ const integer_t lda, integer_t& info ) {
         LAPACK_SPOTRF( &uplo, &n, a, &lda, &info );
     }
- inline void potrf( char const uplo, integer_t const n, double* a,
- integer_t const lda, integer_t& info ) {
+ inline void potrf( const char uplo, const integer_t n, double* a,
+ const integer_t lda, integer_t& info ) {
         LAPACK_DPOTRF( &uplo, &n, a, &lda, &info );
     }
- inline void potrf( char const uplo, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t& info ) {
+ inline void potrf( const char uplo, const integer_t n,
+ traits::complex_f* a, const integer_t lda, integer_t& info ) {
         LAPACK_CPOTRF( &uplo, &n, traits::complex_ptr(a), &lda, &info );
     }
- inline void potrf( char const uplo, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t& info ) {
+ inline void potrf( const char uplo, const integer_t n,
+ traits::complex_d* a, const integer_t lda, integer_t& info ) {
         LAPACK_ZPOTRF( &uplo, &n, traits::complex_ptr(a), &lda, &info );
     }
 }

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potri.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potri.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potri.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,20 +31,20 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void potri( char const uplo, integer_t const n, float* a,
- integer_t const lda, integer_t& info ) {
+ inline void potri( const char uplo, const integer_t n, float* a,
+ const integer_t lda, integer_t& info ) {
         LAPACK_SPOTRI( &uplo, &n, a, &lda, &info );
     }
- inline void potri( char const uplo, integer_t const n, double* a,
- integer_t const lda, integer_t& info ) {
+ inline void potri( const char uplo, const integer_t n, double* a,
+ const integer_t lda, integer_t& info ) {
         LAPACK_DPOTRI( &uplo, &n, a, &lda, &info );
     }
- inline void potri( char const uplo, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t& info ) {
+ inline void potri( const char uplo, const integer_t n,
+ traits::complex_f* a, const integer_t lda, integer_t& info ) {
         LAPACK_CPOTRI( &uplo, &n, traits::complex_ptr(a), &lda, &info );
     }
- inline void potri( char const uplo, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t& info ) {
+ inline void potri( const char uplo, const integer_t n,
+ traits::complex_d* a, const integer_t lda, integer_t& info ) {
         LAPACK_ZPOTRI( &uplo, &n, traits::complex_ptr(a), &lda, &info );
     }
 }

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/potrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,25 +31,27 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void potrs( char const uplo, integer_t const n,
- integer_t const nrhs, float* a, integer_t const lda, float* b,
- integer_t const ldb, integer_t& info ) {
+ inline void potrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const float* a, const integer_t lda,
+ float* b, const integer_t ldb, integer_t& info ) {
         LAPACK_SPOTRS( &uplo, &n, &nrhs, a, &lda, b, &ldb, &info );
     }
- inline void potrs( char const uplo, integer_t const n,
- integer_t const nrhs, double* a, integer_t const lda, double* b,
- integer_t const ldb, integer_t& info ) {
+ inline void potrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const double* a, const integer_t lda,
+ double* b, const integer_t ldb, integer_t& info ) {
         LAPACK_DPOTRS( &uplo, &n, &nrhs, a, &lda, b, &ldb, &info );
     }
- inline void potrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* a, integer_t const lda,
- traits::complex_f* b, integer_t const ldb, integer_t& info ) {
+ inline void potrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* a,
+ const integer_t lda, traits::complex_f* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_CPOTRS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void potrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* a, integer_t const lda,
- traits::complex_d* b, integer_t const ldb, integer_t& info ) {
+ inline void potrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* a,
+ const integer_t lda, traits::complex_d* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_ZPOTRS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -64,7 +66,7 @@
 
     // templated specialization
     template< typename MatrixA, typename MatrixB >
- static void invoke( MatrixA& a, MatrixB& b, integer_t& info ) {
+ static void invoke( const MatrixA& a, MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -87,7 +89,7 @@
 
 // template function to call potrs
 template< typename MatrixA, typename MatrixB >
-inline integer_t potrs( MatrixA& a, MatrixB& b ) {
+inline integer_t potrs( const MatrixA& a, MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     potrs_impl< value_type >::invoke( a, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pprfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pprfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pprfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,37 +36,39 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pprfs( char const uplo, integer_t const n,
- integer_t const nrhs, float* ap, float* afp, float* b,
- integer_t const ldb, float* x, integer_t const ldx, float* ferr,
- float* berr, float* work, integer_t* iwork, integer_t& info ) {
+ inline void pprfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const float* ap, const float* afp,
+ const float* b, const integer_t ldb, float* x,
+ const integer_t ldx, float* ferr, float* berr, float* work,
+ integer_t* iwork, integer_t& info ) {
         LAPACK_SPPRFS( &uplo, &n, &nrhs, ap, afp, b, &ldb, x, &ldx, ferr,
                 berr, work, iwork, &info );
     }
- inline void pprfs( char const uplo, integer_t const n,
- integer_t const nrhs, double* ap, double* afp, double* b,
- integer_t const ldb, double* x, integer_t const ldx, double* ferr,
- double* berr, double* work, integer_t* iwork, integer_t& info ) {
+ inline void pprfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const double* ap, const double* afp,
+ const double* b, const integer_t ldb, double* x,
+ const integer_t ldx, double* ferr, double* berr, double* work,
+ integer_t* iwork, integer_t& info ) {
         LAPACK_DPPRFS( &uplo, &n, &nrhs, ap, afp, b, &ldb, x, &ldx, ferr,
                 berr, work, iwork, &info );
     }
- inline void pprfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* ap,
- traits::complex_f* afp, traits::complex_f* b, integer_t const ldb,
- traits::complex_f* x, integer_t const ldx, float* ferr,
- float* berr, traits::complex_f* work, float* rwork,
+ inline void pprfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* ap,
+ const traits::complex_f* afp, const traits::complex_f* b,
+ const integer_t ldb, traits::complex_f* x, const integer_t ldx,
+ float* ferr, float* berr, traits::complex_f* work, float* rwork,
             integer_t& info ) {
         LAPACK_CPPRFS( &uplo, &n, &nrhs, traits::complex_ptr(ap),
                 traits::complex_ptr(afp), traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(x), &ldx, ferr, berr,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void pprfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* ap,
- traits::complex_d* afp, traits::complex_d* b, integer_t const ldb,
- traits::complex_d* x, integer_t const ldx, double* ferr,
- double* berr, traits::complex_d* work, double* rwork,
- integer_t& info ) {
+ inline void pprfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* ap,
+ const traits::complex_d* afp, const traits::complex_d* b,
+ const integer_t ldb, traits::complex_d* x, const integer_t ldx,
+ double* ferr, double* berr, traits::complex_d* work,
+ double* rwork, integer_t& info ) {
         LAPACK_ZPPRFS( &uplo, &n, &nrhs, traits::complex_ptr(ap),
                 traits::complex_ptr(afp), traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(x), &ldx, ferr, berr,
@@ -89,9 +91,10 @@
     template< typename MatrixAP, typename VectorAFP, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR,
             typename WORK, typename IWORK >
- static void invoke( integer_t const n, MatrixAP& ap, VectorAFP& afp,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, detail::workspace2< WORK, IWORK > work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const VectorAFP& afp, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAP >::value_type, typename traits::vector_traits<
                 VectorAFP >::value_type >::value) );
@@ -133,9 +136,10 @@
     // minimal workspace specialization
     template< typename MatrixAP, typename VectorAFP, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( integer_t const n, MatrixAP& ap, VectorAFP& afp,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, minimal_workspace work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const VectorAFP& afp, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork( n ) );
         invoke( n, ap, afp, b, x, ferr, berr, info, workspace( tmp_work,
@@ -145,17 +149,18 @@
     // optimal workspace specialization
     template< typename MatrixAP, typename VectorAFP, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( integer_t const n, MatrixAP& ap, VectorAFP& afp,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, optimal_workspace work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const VectorAFP& afp, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( n, ap, afp, b, x, ferr, berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -171,9 +176,10 @@
     template< typename MatrixAP, typename VectorAFP, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR,
             typename WORK, typename RWORK >
- static void invoke( integer_t const n, MatrixAP& ap, VectorAFP& afp,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, detail::workspace2< WORK, RWORK > work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const VectorAFP& afp, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorFERR >::value_type, typename traits::vector_traits<
                 VectorBERR >::value_type >::value) );
@@ -212,9 +218,10 @@
     // minimal workspace specialization
     template< typename MatrixAP, typename VectorAFP, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( integer_t const n, MatrixAP& ap, VectorAFP& afp,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, minimal_workspace work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const VectorAFP& afp, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
         invoke( n, ap, afp, b, x, ferr, berr, info, workspace( tmp_work,
@@ -224,17 +231,18 @@
     // optimal workspace specialization
     template< typename MatrixAP, typename VectorAFP, typename MatrixB,
             typename MatrixX, typename VectorFERR, typename VectorBERR >
- static void invoke( integer_t const n, MatrixAP& ap, VectorAFP& afp,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, optimal_workspace work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const VectorAFP& afp, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( n, ap, afp, b, x, ferr, berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -244,9 +252,9 @@
 template< typename MatrixAP, typename VectorAFP, typename MatrixB,
         typename MatrixX, typename VectorFERR, typename VectorBERR,
         typename Workspace >
-inline integer_t pprfs( integer_t const n, MatrixAP& ap, VectorAFP& afp,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- Workspace work ) {
+inline integer_t pprfs( const integer_t n, const MatrixAP& ap,
+ const VectorAFP& afp, const MatrixB& b, MatrixX& x, VectorFERR& ferr,
+ VectorBERR& berr, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAP >::value_type value_type;
     integer_t info(0);
     pprfs_impl< value_type >::invoke( n, ap, afp, b, x, ferr, berr, info,
@@ -257,8 +265,9 @@
 // template function to call pprfs, default workspace type
 template< typename MatrixAP, typename VectorAFP, typename MatrixB,
         typename MatrixX, typename VectorFERR, typename VectorBERR >
-inline integer_t pprfs( integer_t const n, MatrixAP& ap, VectorAFP& afp,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
+inline integer_t pprfs( const integer_t n, const MatrixAP& ap,
+ const VectorAFP& afp, const MatrixB& b, MatrixX& x, VectorFERR& ferr,
+ VectorBERR& berr ) {
     typedef typename traits::matrix_traits< MatrixAP >::value_type value_type;
     integer_t info(0);
     pprfs_impl< value_type >::invoke( n, ap, afp, b, x, ferr, berr, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pptrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pptrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pptrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,25 +31,25 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pptrs( char const uplo, integer_t const n,
- integer_t const nrhs, float* ap, float* b, integer_t const ldb,
- integer_t& info ) {
+ inline void pptrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const float* ap, float* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_SPPTRS( &uplo, &n, &nrhs, ap, b, &ldb, &info );
     }
- inline void pptrs( char const uplo, integer_t const n,
- integer_t const nrhs, double* ap, double* b, integer_t const ldb,
- integer_t& info ) {
+ inline void pptrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const double* ap, double* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_DPPTRS( &uplo, &n, &nrhs, ap, b, &ldb, &info );
     }
- inline void pptrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* ap, traits::complex_f* b,
- integer_t const ldb, integer_t& info ) {
+ inline void pptrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* ap,
+ traits::complex_f* b, const integer_t ldb, integer_t& info ) {
         LAPACK_CPPTRS( &uplo, &n, &nrhs, traits::complex_ptr(ap),
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void pptrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* ap, traits::complex_d* b,
- integer_t const ldb, integer_t& info ) {
+ inline void pptrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* ap,
+ traits::complex_d* b, const integer_t ldb, integer_t& info ) {
         LAPACK_ZPPTRS( &uplo, &n, &nrhs, traits::complex_ptr(ap),
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -64,7 +64,7 @@
 
     // templated specialization
     template< typename VectorAP, typename MatrixB >
- static void invoke( integer_t const n, VectorAP& ap, MatrixB& b,
+ static void invoke( const integer_t n, const VectorAP& ap, MatrixB& b,
             integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorAP >::value_type, typename traits::matrix_traits<
@@ -84,7 +84,8 @@
 
 // template function to call pptrs
 template< typename VectorAP, typename MatrixB >
-inline integer_t pptrs( integer_t const n, VectorAP& ap, MatrixB& b ) {
+inline integer_t pptrs( const integer_t n, const VectorAP& ap,
+ MatrixB& b ) {
     typedef typename traits::vector_traits< VectorAP >::value_type value_type;
     integer_t info(0);
     pptrs_impl< value_type >::invoke( n, ap, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pteqr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pteqr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pteqr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,24 +36,24 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pteqr( char const compz, integer_t const n, float* d,
- float* e, float* z, integer_t const ldz, float* work,
+ inline void pteqr( const char compz, const integer_t n, float* d,
+ float* e, float* z, const integer_t ldz, float* work,
             integer_t& info ) {
         LAPACK_SPTEQR( &compz, &n, d, e, z, &ldz, work, &info );
     }
- inline void pteqr( char const compz, integer_t const n, double* d,
- double* e, double* z, integer_t const ldz, double* work,
+ inline void pteqr( const char compz, const integer_t n, double* d,
+ double* e, double* z, const integer_t ldz, double* work,
             integer_t& info ) {
         LAPACK_DPTEQR( &compz, &n, d, e, z, &ldz, work, &info );
     }
- inline void pteqr( char const compz, integer_t const n, float* d,
- float* e, traits::complex_f* z, integer_t const ldz, float* work,
+ inline void pteqr( const char compz, const integer_t n, float* d,
+ float* e, traits::complex_f* z, const integer_t ldz, float* work,
             integer_t& info ) {
         LAPACK_CPTEQR( &compz, &n, d, e, traits::complex_ptr(z), &ldz, work,
                 &info );
     }
- inline void pteqr( char const compz, integer_t const n, double* d,
- double* e, traits::complex_d* z, integer_t const ldz,
+ inline void pteqr( const char compz, const integer_t n, double* d,
+ double* e, traits::complex_d* z, const integer_t ldz,
             double* work, integer_t& info ) {
         LAPACK_ZPTEQR( &compz, &n, d, e, traits::complex_ptr(z), &ldz, work,
                 &info );
@@ -74,7 +74,7 @@
     // user-defined workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ,
             typename WORK >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, detail::workspace1<
             WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -97,7 +97,7 @@
 
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         invoke( compz, n, d, e, z, info, workspace( tmp_work ) );
@@ -105,12 +105,12 @@
 
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, optimal_workspace work ) {
         invoke( compz, n, d, e, z, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 4*n;
     }
 };
@@ -125,7 +125,7 @@
     // user-defined workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ,
             typename WORK >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, detail::workspace1<
             WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -145,7 +145,7 @@
 
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         invoke( compz, n, d, e, z, info, workspace( tmp_work ) );
@@ -153,12 +153,12 @@
 
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, optimal_workspace work ) {
         invoke( compz, n, d, e, z, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 4*n;
     }
 };
@@ -167,7 +167,7 @@
 // template function to call pteqr
 template< typename VectorD, typename VectorE, typename MatrixZ,
         typename Workspace >
-inline integer_t pteqr( char const compz, integer_t const n, VectorD& d,
+inline integer_t pteqr( const char compz, const integer_t n, VectorD& d,
         VectorE& e, MatrixZ& z, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);
@@ -177,7 +177,7 @@
 
 // template function to call pteqr, default workspace type
 template< typename VectorD, typename VectorE, typename MatrixZ >
-inline integer_t pteqr( char const compz, integer_t const n, VectorD& d,
+inline integer_t pteqr( const char compz, const integer_t n, VectorD& d,
         VectorE& e, MatrixZ& z ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ptrfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ptrfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/ptrfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,24 +36,27 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void ptrfs( integer_t const n, integer_t const nrhs, float* d,
- float* e, float* df, float* ef, float* b, integer_t const ldb,
- float* x, integer_t const ldx, float* ferr, float* berr,
- float* work, integer_t& info ) {
+ inline void ptrfs( const integer_t n, const integer_t nrhs,
+ const float* d, const float* e, const float* df, const float* ef,
+ const float* b, const integer_t ldb, float* x,
+ const integer_t ldx, float* ferr, float* berr, float* work,
+ integer_t& info ) {
         LAPACK_SPTRFS( &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, ferr, berr,
                 work, &info );
     }
- inline void ptrfs( integer_t const n, integer_t const nrhs, double* d,
- double* e, double* df, double* ef, double* b, integer_t const ldb,
- double* x, integer_t const ldx, double* ferr, double* berr,
- double* work, integer_t& info ) {
+ inline void ptrfs( const integer_t n, const integer_t nrhs,
+ const double* d, const double* e, const double* df,
+ const double* ef, const double* b, const integer_t ldb, double* x,
+ const integer_t ldx, double* ferr, double* berr, double* work,
+ integer_t& info ) {
         LAPACK_DPTRFS( &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, ferr, berr,
                 work, &info );
     }
- inline void ptrfs( char const uplo, integer_t const n,
- integer_t const nrhs, float* d, traits::complex_f* e, float* df,
- traits::complex_f* ef, traits::complex_f* b, integer_t const ldb,
- traits::complex_f* x, integer_t const ldx, float* ferr,
+ inline void ptrfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const float* d, const traits::complex_f* e,
+ const float* df, const traits::complex_f* ef,
+ const traits::complex_f* b, const integer_t ldb,
+ traits::complex_f* x, const integer_t ldx, float* ferr,
             float* berr, traits::complex_f* work, float* rwork,
             integer_t& info ) {
         LAPACK_CPTRFS( &uplo, &n, &nrhs, d, traits::complex_ptr(e), df,
@@ -61,10 +64,11 @@
                 traits::complex_ptr(x), &ldx, ferr, berr,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void ptrfs( char const uplo, integer_t const n,
- integer_t const nrhs, double* d, traits::complex_d* e, double* df,
- traits::complex_d* ef, traits::complex_d* b, integer_t const ldb,
- traits::complex_d* x, integer_t const ldx, double* ferr,
+ inline void ptrfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const double* d, const traits::complex_d* e,
+ const double* df, const traits::complex_d* ef,
+ const traits::complex_d* b, const integer_t ldb,
+ traits::complex_d* x, const integer_t ldx, double* ferr,
             double* berr, traits::complex_d* work, double* rwork,
             integer_t& info ) {
         LAPACK_ZPTRFS( &uplo, &n, &nrhs, d, traits::complex_ptr(e), df,
@@ -89,9 +93,9 @@
     template< typename VectorD, typename VectorE, typename VectorDF,
             typename VectorEF, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR, typename WORK >
- static void invoke( integer_t const n, VectorD& d, VectorE& e,
- VectorDF& df, VectorEF& ef, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ static void invoke( const integer_t n, const VectorD& d, const VectorE& e,
+ const VectorDF& df, const VectorEF& ef, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorD >::value_type, typename traits::vector_traits<
@@ -139,9 +143,9 @@
     template< typename VectorD, typename VectorE, typename VectorDF,
             typename VectorEF, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR >
- static void invoke( integer_t const n, VectorD& d, VectorE& e,
- VectorDF& df, VectorEF& ef, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ static void invoke( const integer_t n, const VectorD& d, const VectorE& e,
+ const VectorDF& df, const VectorEF& ef, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         invoke( n, d, e, df, ef, b, x, ferr, berr, info,
@@ -152,14 +156,14 @@
     template< typename VectorD, typename VectorE, typename VectorDF,
             typename VectorEF, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR >
- static void invoke( integer_t const n, VectorD& d, VectorE& e,
- VectorDF& df, VectorEF& ef, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ static void invoke( const integer_t n, const VectorD& d, const VectorE& e,
+ const VectorDF& df, const VectorEF& ef, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
             optimal_workspace work ) {
         invoke( n, d, e, df, ef, b, x, ferr, berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 };
@@ -176,10 +180,10 @@
             typename VectorEF, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR, typename WORK,
             typename RWORK >
- static void invoke( char const uplo, integer_t const n, VectorD& d,
- VectorE& e, VectorDF& df, VectorEF& ef, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- detail::workspace2< WORK, RWORK > work ) {
+ static void invoke( const char uplo, const integer_t n, const VectorD& d,
+ const VectorE& e, const VectorDF& df, const VectorEF& ef,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ integer_t& info, detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorD >::value_type, typename traits::vector_traits<
                 VectorDF >::value_type >::value) );
@@ -227,10 +231,10 @@
     template< typename VectorD, typename VectorE, typename VectorDF,
             typename VectorEF, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR >
- static void invoke( char const uplo, integer_t const n, VectorD& d,
- VectorE& e, VectorDF& df, VectorEF& ef, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char uplo, const integer_t n, const VectorD& d,
+ const VectorE& e, const VectorDF& df, const VectorEF& ef,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
         invoke( uplo, n, d, e, df, ef, b, x, ferr, berr, info,
@@ -241,19 +245,19 @@
     template< typename VectorD, typename VectorE, typename VectorDF,
             typename VectorEF, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR >
- static void invoke( char const uplo, integer_t const n, VectorD& d,
- VectorE& e, VectorDF& df, VectorEF& ef, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char uplo, const integer_t n, const VectorD& d,
+ const VectorE& e, const VectorDF& df, const VectorEF& ef,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ integer_t& info, optimal_workspace work ) {
         invoke( uplo, n, d, e, df, ef, b, x, ferr, berr, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -263,9 +267,10 @@
 template< typename VectorD, typename VectorE, typename VectorDF,
         typename VectorEF, typename MatrixB, typename MatrixX,
         typename VectorFERR, typename VectorBERR, typename Workspace >
-inline integer_t ptrfs( integer_t const n, VectorD& d, VectorE& e,
- VectorDF& df, VectorEF& ef, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, Workspace work ) {
+inline integer_t ptrfs( const integer_t n, const VectorD& d,
+ const VectorE& e, const VectorDF& df, const VectorEF& ef,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
+ Workspace work ) {
     typedef typename traits::vector_traits< VectorE >::value_type value_type;
     integer_t info(0);
     ptrfs_impl< value_type >::invoke( n, d, e, df, ef, b, x, ferr, berr,
@@ -277,9 +282,9 @@
 template< typename VectorD, typename VectorE, typename VectorDF,
         typename VectorEF, typename MatrixB, typename MatrixX,
         typename VectorFERR, typename VectorBERR >
-inline integer_t ptrfs( integer_t const n, VectorD& d, VectorE& e,
- VectorDF& df, VectorEF& ef, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr ) {
+inline integer_t ptrfs( const integer_t n, const VectorD& d,
+ const VectorE& e, const VectorDF& df, const VectorEF& ef,
+ const MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::vector_traits< VectorE >::value_type value_type;
     integer_t info(0);
     ptrfs_impl< value_type >::invoke( n, d, e, df, ef, b, x, ferr, berr,
@@ -290,9 +295,10 @@
 template< typename VectorD, typename VectorE, typename VectorDF,
         typename VectorEF, typename MatrixB, typename MatrixX,
         typename VectorFERR, typename VectorBERR, typename Workspace >
-inline integer_t ptrfs( char const uplo, integer_t const n, VectorD& d,
- VectorE& e, VectorDF& df, VectorEF& ef, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
+inline integer_t ptrfs( const char uplo, const integer_t n,
+ const VectorD& d, const VectorE& e, const VectorDF& df,
+ const VectorEF& ef, const MatrixB& b, MatrixX& x, VectorFERR& ferr,
+ VectorBERR& berr, Workspace work ) {
     typedef typename traits::vector_traits< VectorE >::value_type value_type;
     integer_t info(0);
     ptrfs_impl< value_type >::invoke( uplo, n, d, e, df, ef, b, x, ferr,
@@ -304,9 +310,10 @@
 template< typename VectorD, typename VectorE, typename VectorDF,
         typename VectorEF, typename MatrixB, typename MatrixX,
         typename VectorFERR, typename VectorBERR >
-inline integer_t ptrfs( char const uplo, integer_t const n, VectorD& d,
- VectorE& e, VectorDF& df, VectorEF& ef, MatrixB& b, MatrixX& x,
- VectorFERR& ferr, VectorBERR& berr ) {
+inline integer_t ptrfs( const char uplo, const integer_t n,
+ const VectorD& d, const VectorE& e, const VectorDF& df,
+ const VectorEF& ef, const MatrixB& b, MatrixX& x, VectorFERR& ferr,
+ VectorBERR& berr ) {
     typedef typename traits::vector_traits< VectorE >::value_type value_type;
     integer_t info(0);
     ptrfs_impl< value_type >::invoke( uplo, n, d, e, df, ef, b, x, ferr,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pttrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pttrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/pttrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,23 +34,25 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void pttrs( integer_t const n, integer_t const nrhs, float* d,
- float* e, float* b, integer_t const ldb, integer_t& info ) {
+ inline void pttrs( const integer_t n, const integer_t nrhs,
+ const float* d, const float* e, float* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_SPTTRS( &n, &nrhs, d, e, b, &ldb, &info );
     }
- inline void pttrs( integer_t const n, integer_t const nrhs, double* d,
- double* e, double* b, integer_t const ldb, integer_t& info ) {
+ inline void pttrs( const integer_t n, const integer_t nrhs,
+ const double* d, const double* e, double* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_DPTTRS( &n, &nrhs, d, e, b, &ldb, &info );
     }
- inline void pttrs( char const uplo, integer_t const n,
- integer_t const nrhs, float* d, traits::complex_f* e,
- traits::complex_f* b, integer_t const ldb, integer_t& info ) {
+ inline void pttrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const float* d, const traits::complex_f* e,
+ traits::complex_f* b, const integer_t ldb, integer_t& info ) {
         LAPACK_CPTTRS( &uplo, &n, &nrhs, d, traits::complex_ptr(e),
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void pttrs( char const uplo, integer_t const n,
- integer_t const nrhs, double* d, traits::complex_d* e,
- traits::complex_d* b, integer_t const ldb, integer_t& info ) {
+ inline void pttrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const double* d, const traits::complex_d* e,
+ traits::complex_d* b, const integer_t ldb, integer_t& info ) {
         LAPACK_ZPTTRS( &uplo, &n, &nrhs, d, traits::complex_ptr(e),
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -69,8 +71,8 @@
 
     // templated specialization
     template< typename VectorD, typename VectorE, typename MatrixB >
- static void invoke( integer_t const n, VectorD& d, VectorE& e, MatrixB& b,
- integer_t& info ) {
+ static void invoke( const integer_t n, const VectorD& d, const VectorE& e,
+ MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorD >::value_type, typename traits::vector_traits<
                 VectorE >::value_type >::value) );
@@ -98,8 +100,8 @@
 
     // templated specialization
     template< typename VectorD, typename VectorE, typename MatrixB >
- static void invoke( char const uplo, integer_t const n, VectorD& d,
- VectorE& e, MatrixB& b, integer_t& info ) {
+ static void invoke( const char uplo, const integer_t n, const VectorD& d,
+ const VectorE& e, MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorE >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -118,8 +120,8 @@
 
 // template function to call pttrs
 template< typename VectorD, typename VectorE, typename MatrixB >
-inline integer_t pttrs( integer_t const n, VectorD& d, VectorE& e,
- MatrixB& b ) {
+inline integer_t pttrs( const integer_t n, const VectorD& d,
+ const VectorE& e, MatrixB& b ) {
     typedef typename traits::vector_traits< VectorE >::value_type value_type;
     integer_t info(0);
     pttrs_impl< value_type >::invoke( n, d, e, b, info );
@@ -127,8 +129,8 @@
 }
 // template function to call pttrs
 template< typename VectorD, typename VectorE, typename MatrixB >
-inline integer_t pttrs( char const uplo, integer_t const n, VectorD& d,
- VectorE& e, MatrixB& b ) {
+inline integer_t pttrs( const char uplo, const integer_t n,
+ const VectorD& d, const VectorE& e, MatrixB& b ) {
     typedef typename traits::vector_traits< VectorE >::value_type value_type;
     integer_t info(0);
     pttrs_impl< value_type >::invoke( uplo, n, d, e, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sbgst.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sbgst.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sbgst.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,17 +33,17 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sbgst( char const vect, char const uplo, integer_t const n,
- integer_t const ka, integer_t const kb, float* ab,
- integer_t const ldab, float* bb, integer_t const ldbb, float* x,
- integer_t const ldx, float* work, integer_t& info ) {
+ inline void sbgst( const char vect, const char uplo, const integer_t n,
+ const integer_t ka, const integer_t kb, float* ab,
+ const integer_t ldab, const float* bb, const integer_t ldbb,
+ float* x, const integer_t ldx, float* work, integer_t& info ) {
         LAPACK_SSBGST( &vect, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, x,
                 &ldx, work, &info );
     }
- inline void sbgst( char const vect, char const uplo, integer_t const n,
- integer_t const ka, integer_t const kb, double* ab,
- integer_t const ldab, double* bb, integer_t const ldbb, double* x,
- integer_t const ldx, double* work, integer_t& info ) {
+ inline void sbgst( const char vect, const char uplo, const integer_t n,
+ const integer_t ka, const integer_t kb, double* ab,
+ const integer_t ldab, const double* bb, const integer_t ldbb,
+ double* x, const integer_t ldx, double* work, integer_t& info ) {
         LAPACK_DSBGST( &vect, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, x,
                 &ldx, work, &info );
     }
@@ -59,10 +59,10 @@
     // user-defined workspace specialization
     template< typename MatrixAB, typename MatrixBB, typename MatrixX,
             typename WORK >
- static void invoke( char const vect, integer_t const n,
- integer_t const ka, integer_t const kb, MatrixAB& ab,
- MatrixBB& bb, MatrixX& x, integer_t& info, detail::workspace1<
- WORK > work ) {
+ static void invoke( const char vect, const integer_t n,
+ const integer_t ka, const integer_t kb, MatrixAB& ab,
+ const MatrixBB& bb, MatrixX& x, integer_t& info,
+ detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::matrix_traits<
                 MatrixBB >::value_type >::value) );
@@ -88,9 +88,9 @@
 
     // minimal workspace specialization
     template< typename MatrixAB, typename MatrixBB, typename MatrixX >
- static void invoke( char const vect, integer_t const n,
- integer_t const ka, integer_t const kb, MatrixAB& ab,
- MatrixBB& bb, MatrixX& x, integer_t& info,
+ static void invoke( const char vect, const integer_t n,
+ const integer_t ka, const integer_t kb, MatrixAB& ab,
+ const MatrixBB& bb, MatrixX& x, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         invoke( vect, n, ka, kb, ab, bb, x, info, workspace( tmp_work ) );
@@ -98,14 +98,14 @@
 
     // optimal workspace specialization
     template< typename MatrixAB, typename MatrixBB, typename MatrixX >
- static void invoke( char const vect, integer_t const n,
- integer_t const ka, integer_t const kb, MatrixAB& ab,
- MatrixBB& bb, MatrixX& x, integer_t& info,
+ static void invoke( const char vect, const integer_t n,
+ const integer_t ka, const integer_t kb, MatrixAB& ab,
+ const MatrixBB& bb, MatrixX& x, integer_t& info,
             optimal_workspace work ) {
         invoke( vect, n, ka, kb, ab, bb, x, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 };
@@ -114,9 +114,9 @@
 // template function to call sbgst
 template< typename MatrixAB, typename MatrixBB, typename MatrixX,
         typename Workspace >
-inline integer_t sbgst( char const vect, integer_t const n,
- integer_t const ka, integer_t const kb, MatrixAB& ab, MatrixBB& bb,
- MatrixX& x, Workspace work ) {
+inline integer_t sbgst( const char vect, const integer_t n,
+ const integer_t ka, const integer_t kb, MatrixAB& ab,
+ const MatrixBB& bb, MatrixX& x, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     sbgst_impl< value_type >::invoke( vect, n, ka, kb, ab, bb, x, info,
@@ -126,9 +126,9 @@
 
 // template function to call sbgst, default workspace type
 template< typename MatrixAB, typename MatrixBB, typename MatrixX >
-inline integer_t sbgst( char const vect, integer_t const n,
- integer_t const ka, integer_t const kb, MatrixAB& ab, MatrixBB& bb,
- MatrixX& x ) {
+inline integer_t sbgst( const char vect, const integer_t n,
+ const integer_t ka, const integer_t kb, MatrixAB& ab,
+ const MatrixBB& bb, MatrixX& x ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     sbgst_impl< value_type >::invoke( vect, n, ka, kb, ab, bb, x, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sbtrd.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sbtrd.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sbtrd.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,16 +33,16 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sbtrd( char const vect, char const uplo, integer_t const n,
- integer_t const kd, float* ab, integer_t const ldab, float* d,
- float* e, float* q, integer_t const ldq, float* work,
+ inline void sbtrd( const char vect, const char uplo, const integer_t n,
+ const integer_t kd, float* ab, const integer_t ldab, float* d,
+ float* e, float* q, const integer_t ldq, float* work,
             integer_t& info ) {
         LAPACK_SSBTRD( &vect, &uplo, &n, &kd, ab, &ldab, d, e, q, &ldq, work,
                 &info );
     }
- inline void sbtrd( char const vect, char const uplo, integer_t const n,
- integer_t const kd, double* ab, integer_t const ldab, double* d,
- double* e, double* q, integer_t const ldq, double* work,
+ inline void sbtrd( const char vect, const char uplo, const integer_t n,
+ const integer_t kd, double* ab, const integer_t ldab, double* d,
+ double* e, double* q, const integer_t ldq, double* work,
             integer_t& info ) {
         LAPACK_DSBTRD( &vect, &uplo, &n, &kd, ab, &ldab, d, e, q, &ldq, work,
                 &info );
@@ -59,8 +59,8 @@
     // user-defined workspace specialization
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ, typename WORK >
- static void invoke( char const vect, integer_t const n,
- integer_t const kd, MatrixAB& ab, VectorD& d, VectorE& e,
+ static void invoke( const char vect, const integer_t n,
+ const integer_t kd, MatrixAB& ab, VectorD& d, VectorE& e,
             MatrixQ& q, integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::vector_traits<
@@ -90,8 +90,8 @@
     // minimal workspace specialization
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ >
- static void invoke( char const vect, integer_t const n,
- integer_t const kd, MatrixAB& ab, VectorD& d, VectorE& e,
+ static void invoke( const char vect, const integer_t n,
+ const integer_t kd, MatrixAB& ab, VectorD& d, VectorE& e,
             MatrixQ& q, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         invoke( vect, n, kd, ab, d, e, q, info, workspace( tmp_work ) );
@@ -100,13 +100,13 @@
     // optimal workspace specialization
     template< typename MatrixAB, typename VectorD, typename VectorE,
             typename MatrixQ >
- static void invoke( char const vect, integer_t const n,
- integer_t const kd, MatrixAB& ab, VectorD& d, VectorE& e,
+ static void invoke( const char vect, const integer_t n,
+ const integer_t kd, MatrixAB& ab, VectorD& d, VectorE& e,
             MatrixQ& q, integer_t& info, optimal_workspace work ) {
         invoke( vect, n, kd, ab, d, e, q, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return n;
     }
 };
@@ -115,8 +115,8 @@
 // template function to call sbtrd
 template< typename MatrixAB, typename VectorD, typename VectorE,
         typename MatrixQ, typename Workspace >
-inline integer_t sbtrd( char const vect, integer_t const n,
- integer_t const kd, MatrixAB& ab, VectorD& d, VectorE& e, MatrixQ& q,
+inline integer_t sbtrd( const char vect, const integer_t n,
+ const integer_t kd, MatrixAB& ab, VectorD& d, VectorE& e, MatrixQ& q,
         Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
@@ -128,8 +128,8 @@
 // template function to call sbtrd, default workspace type
 template< typename MatrixAB, typename VectorD, typename VectorE,
         typename MatrixQ >
-inline integer_t sbtrd( char const vect, integer_t const n,
- integer_t const kd, MatrixAB& ab, VectorD& d, VectorE& e,
+inline integer_t sbtrd( const char vect, const integer_t n,
+ const integer_t kd, MatrixAB& ab, VectorD& d, VectorE& e,
         MatrixQ& q ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sprfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sprfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sprfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,39 +36,41 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sprfs( char const uplo, integer_t const n,
- integer_t const nrhs, float* ap, float* afp, integer_t* ipiv,
- float* b, integer_t const ldb, float* x, integer_t const ldx,
- float* ferr, float* berr, float* work, integer_t* iwork,
- integer_t& info ) {
+ inline void sprfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const float* ap, const float* afp,
+ const integer_t* ipiv, const float* b, const integer_t ldb,
+ float* x, const integer_t ldx, float* ferr, float* berr,
+ float* work, integer_t* iwork, integer_t& info ) {
         LAPACK_SSPRFS( &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx,
                 ferr, berr, work, iwork, &info );
     }
- inline void sprfs( char const uplo, integer_t const n,
- integer_t const nrhs, double* ap, double* afp, integer_t* ipiv,
- double* b, integer_t const ldb, double* x, integer_t const ldx,
- double* ferr, double* berr, double* work, integer_t* iwork,
- integer_t& info ) {
+ inline void sprfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const double* ap, const double* afp,
+ const integer_t* ipiv, const double* b, const integer_t ldb,
+ double* x, const integer_t ldx, double* ferr, double* berr,
+ double* work, integer_t* iwork, integer_t& info ) {
         LAPACK_DSPRFS( &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx,
                 ferr, berr, work, iwork, &info );
     }
- inline void sprfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* ap,
- traits::complex_f* afp, integer_t* ipiv, traits::complex_f* b,
- integer_t const ldb, traits::complex_f* x, integer_t const ldx,
- float* ferr, float* berr, traits::complex_f* work, float* rwork,
+ inline void sprfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* ap,
+ const traits::complex_f* afp, const integer_t* ipiv,
+ const traits::complex_f* b, const integer_t ldb,
+ traits::complex_f* x, const integer_t ldx, float* ferr,
+ float* berr, traits::complex_f* work, float* rwork,
             integer_t& info ) {
         LAPACK_CSPRFS( &uplo, &n, &nrhs, traits::complex_ptr(ap),
                 traits::complex_ptr(afp), ipiv, traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(x), &ldx, ferr, berr,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void sprfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* ap,
- traits::complex_d* afp, integer_t* ipiv, traits::complex_d* b,
- integer_t const ldb, traits::complex_d* x, integer_t const ldx,
- double* ferr, double* berr, traits::complex_d* work,
- double* rwork, integer_t& info ) {
+ inline void sprfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* ap,
+ const traits::complex_d* afp, const integer_t* ipiv,
+ const traits::complex_d* b, const integer_t ldb,
+ traits::complex_d* x, const integer_t ldx, double* ferr,
+ double* berr, traits::complex_d* work, double* rwork,
+ integer_t& info ) {
         LAPACK_ZSPRFS( &uplo, &n, &nrhs, traits::complex_ptr(ap),
                 traits::complex_ptr(afp), ipiv, traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(x), &ldx, ferr, berr,
@@ -91,10 +93,10 @@
     template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR, typename WORK, typename IWORK >
- static void invoke( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, detail::workspace2< WORK,
- IWORK > work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAP >::value_type, typename traits::matrix_traits<
                 MatrixAFP >::value_type >::value) );
@@ -138,9 +140,10 @@
     template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, minimal_workspace work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork( n ) );
         invoke( n, ap, afp, ipiv, b, x, ferr, berr, info, workspace( tmp_work,
@@ -151,18 +154,19 @@
     template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, optimal_workspace work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( n, ap, afp, ipiv, b, x, ferr, berr, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -178,10 +182,10 @@
     template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR, typename WORK, typename RWORK >
- static void invoke( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, detail::workspace2< WORK,
- RWORK > work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorFERR >::value_type, typename traits::vector_traits<
                 VectorBERR >::value_type >::value) );
@@ -222,9 +226,10 @@
     template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, minimal_workspace work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
         invoke( n, ap, afp, ipiv, b, x, ferr, berr, info, workspace( tmp_work,
@@ -235,18 +240,19 @@
     template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, integer_t& info, optimal_workspace work ) {
+ static void invoke( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( n, ap, afp, ipiv, b, x, ferr, berr, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -256,9 +262,9 @@
 template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR, typename Workspace >
-inline integer_t sprfs( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr, Workspace work ) {
+inline integer_t sprfs( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAP >::value_type value_type;
     integer_t info(0);
     sprfs_impl< value_type >::invoke( n, ap, afp, ipiv, b, x, ferr, berr,
@@ -270,9 +276,9 @@
 template< typename MatrixAP, typename MatrixAFP, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR >
-inline integer_t sprfs( integer_t const n, MatrixAP& ap, MatrixAFP& afp,
- VectorIPIV& ipiv, MatrixB& b, MatrixX& x, VectorFERR& ferr,
- VectorBERR& berr ) {
+inline integer_t sprfs( const integer_t n, const MatrixAP& ap,
+ const MatrixAFP& afp, const VectorIPIV& ipiv, const MatrixB& b,
+ MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::matrix_traits< MatrixAP >::value_type value_type;
     integer_t info(0);
     sprfs_impl< value_type >::invoke( n, ap, afp, ipiv, b, x, ferr, berr,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sptrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sptrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sptrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,25 +31,27 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sptrs( char const uplo, integer_t const n,
- integer_t const nrhs, float* ap, integer_t* ipiv, float* b,
- integer_t const ldb, integer_t& info ) {
+ inline void sptrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const float* ap, const integer_t* ipiv,
+ float* b, const integer_t ldb, integer_t& info ) {
         LAPACK_SSPTRS( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info );
     }
- inline void sptrs( char const uplo, integer_t const n,
- integer_t const nrhs, double* ap, integer_t* ipiv, double* b,
- integer_t const ldb, integer_t& info ) {
+ inline void sptrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const double* ap, const integer_t* ipiv,
+ double* b, const integer_t ldb, integer_t& info ) {
         LAPACK_DSPTRS( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info );
     }
- inline void sptrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* ap, integer_t* ipiv,
- traits::complex_f* b, integer_t const ldb, integer_t& info ) {
+ inline void sptrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* ap,
+ const integer_t* ipiv, traits::complex_f* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_CSPTRS( &uplo, &n, &nrhs, traits::complex_ptr(ap), ipiv,
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void sptrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* ap, integer_t* ipiv,
- traits::complex_d* b, integer_t const ldb, integer_t& info ) {
+ inline void sptrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* ap,
+ const integer_t* ipiv, traits::complex_d* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_ZSPTRS( &uplo, &n, &nrhs, traits::complex_ptr(ap), ipiv,
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -64,8 +66,9 @@
 
     // templated specialization
     template< typename MatrixAP, typename VectorIPIV, typename MatrixB >
- static void invoke( char const uplo, integer_t const n, MatrixAP& ap,
- VectorIPIV& ipiv, MatrixB& b, integer_t& info ) {
+ static void invoke( const char uplo, const integer_t n,
+ const MatrixAP& ap, const VectorIPIV& ipiv, MatrixB& b,
+ integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAP >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -85,8 +88,8 @@
 
 // template function to call sptrs
 template< typename MatrixAP, typename VectorIPIV, typename MatrixB >
-inline integer_t sptrs( char const uplo, integer_t const n, MatrixAP& ap,
- VectorIPIV& ipiv, MatrixB& b ) {
+inline integer_t sptrs( const char uplo, const integer_t n,
+ const MatrixAP& ap, const VectorIPIV& ipiv, MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixAP >::value_type value_type;
     integer_t info(0);
     sptrs_impl< value_type >::invoke( uplo, n, ap, ipiv, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stebz.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stebz.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stebz.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -33,21 +33,21 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void stebz( char const range, char const order, integer_t const n,
- float const vl, float const vu, integer_t const il,
- integer_t const iu, float const abstol, float* d, float* e,
- integer_t& m, integer_t& nsplit, float* w, integer_t* iblock,
- integer_t* isplit, float* work, integer_t* iwork,
- integer_t& info ) {
+ inline void stebz( const char range, const char order, const integer_t n,
+ const float vl, const float vu, const integer_t il,
+ const integer_t iu, const float abstol, const float* d,
+ const float* e, integer_t& m, integer_t& nsplit, float* w,
+ integer_t* iblock, integer_t* isplit, float* work,
+ integer_t* iwork, integer_t& info ) {
         LAPACK_SSTEBZ( &range, &order, &n, &vl, &vu, &il, &iu, &abstol, d, e,
                 &m, &nsplit, w, iblock, isplit, work, iwork, &info );
     }
- inline void stebz( char const range, char const order, integer_t const n,
- double const vl, double const vu, integer_t const il,
- integer_t const iu, double const abstol, double* d, double* e,
- integer_t& m, integer_t& nsplit, double* w, integer_t* iblock,
- integer_t* isplit, double* work, integer_t* iwork,
- integer_t& info ) {
+ inline void stebz( const char range, const char order, const integer_t n,
+ const double vl, const double vu, const integer_t il,
+ const integer_t iu, const double abstol, const double* d,
+ const double* e, integer_t& m, integer_t& nsplit, double* w,
+ integer_t* iblock, integer_t* isplit, double* work,
+ integer_t* iwork, integer_t& info ) {
         LAPACK_DSTEBZ( &range, &order, &n, &vl, &vu, &il, &iu, &abstol, d, e,
                 &m, &nsplit, w, iblock, isplit, work, iwork, &info );
     }
@@ -64,10 +64,10 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename VectorIBLOCK, typename VectorISPLIT, typename WORK,
             typename IWORK >
- static void invoke( char const range, char const order, integer_t const n,
- real_type const vl, real_type const vu, integer_t const il,
- integer_t const iu, real_type const abstol, VectorD& d,
- VectorE& e, integer_t& m, integer_t& nsplit, VectorW& w,
+ static void invoke( const char range, const char order, const integer_t n,
+ const real_type vl, const real_type vu, const integer_t il,
+ const integer_t iu, const real_type abstol, const VectorD& d,
+ const VectorE& e, integer_t& m, integer_t& nsplit, VectorW& w,
             VectorIBLOCK& iblock, VectorISPLIT& isplit, integer_t& info,
             detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -102,10 +102,10 @@
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename VectorW,
             typename VectorIBLOCK, typename VectorISPLIT >
- static void invoke( char const range, char const order, integer_t const n,
- real_type const vl, real_type const vu, integer_t const il,
- integer_t const iu, real_type const abstol, VectorD& d,
- VectorE& e, integer_t& m, integer_t& nsplit, VectorW& w,
+ static void invoke( const char range, const char order, const integer_t n,
+ const real_type vl, const real_type vu, const integer_t il,
+ const integer_t iu, const real_type abstol, const VectorD& d,
+ const VectorE& e, integer_t& m, integer_t& nsplit, VectorW& w,
             VectorIBLOCK& iblock, VectorISPLIT& isplit, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
@@ -117,21 +117,21 @@
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename VectorW,
             typename VectorIBLOCK, typename VectorISPLIT >
- static void invoke( char const range, char const order, integer_t const n,
- real_type const vl, real_type const vu, integer_t const il,
- integer_t const iu, real_type const abstol, VectorD& d,
- VectorE& e, integer_t& m, integer_t& nsplit, VectorW& w,
+ static void invoke( const char range, const char order, const integer_t n,
+ const real_type vl, const real_type vu, const integer_t il,
+ const integer_t iu, const real_type abstol, const VectorD& d,
+ const VectorE& e, integer_t& m, integer_t& nsplit, VectorW& w,
             VectorIBLOCK& iblock, VectorISPLIT& isplit, integer_t& info,
             optimal_workspace work ) {
         invoke( range, order, n, vl, vu, il, iu, abstol, d, e, m, nsplit, w,
                 iblock, isplit, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 4*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return 3*n;
     }
 };
@@ -140,16 +140,15 @@
 // template function to call stebz
 template< typename VectorD, typename VectorE, typename VectorW,
         typename VectorIBLOCK, typename VectorISPLIT, typename Workspace >
-inline integer_t stebz( char const range, char const order,
- integer_t const n, typename traits::type_traits<
+inline integer_t stebz( const char range, const char order,
+ const integer_t n, const typename traits::type_traits<
+ typename traits::vector_traits< VectorD >::value_type >::real_type vl,
+ const typename traits::type_traits< typename traits::vector_traits<
+ VectorD >::value_type >::real_type vu, const integer_t il,
+ const integer_t iu, const typename traits::type_traits<
         typename traits::vector_traits<
- VectorD >::value_type >::real_type const vl,
- typename traits::type_traits< typename traits::vector_traits<
- VectorD >::value_type >::real_type const vu, integer_t const il,
- integer_t const iu, typename traits::type_traits<
- typename traits::vector_traits<
- VectorD >::value_type >::real_type const abstol, VectorD& d,
- VectorE& e, integer_t& m, integer_t& nsplit, VectorW& w,
+ VectorD >::value_type >::real_type abstol, const VectorD& d,
+ const VectorE& e, integer_t& m, integer_t& nsplit, VectorW& w,
         VectorIBLOCK& iblock, VectorISPLIT& isplit, Workspace work ) {
     typedef typename traits::vector_traits< VectorD >::value_type value_type;
     integer_t info(0);
@@ -161,16 +160,15 @@
 // template function to call stebz, default workspace type
 template< typename VectorD, typename VectorE, typename VectorW,
         typename VectorIBLOCK, typename VectorISPLIT >
-inline integer_t stebz( char const range, char const order,
- integer_t const n, typename traits::type_traits<
- typename traits::vector_traits<
- VectorD >::value_type >::real_type const vl,
- typename traits::type_traits< typename traits::vector_traits<
- VectorD >::value_type >::real_type const vu, integer_t const il,
- integer_t const iu, typename traits::type_traits<
+inline integer_t stebz( const char range, const char order,
+ const integer_t n, const typename traits::type_traits<
+ typename traits::vector_traits< VectorD >::value_type >::real_type vl,
+ const typename traits::type_traits< typename traits::vector_traits<
+ VectorD >::value_type >::real_type vu, const integer_t il,
+ const integer_t iu, const typename traits::type_traits<
         typename traits::vector_traits<
- VectorD >::value_type >::real_type const abstol, VectorD& d,
- VectorE& e, integer_t& m, integer_t& nsplit, VectorW& w,
+ VectorD >::value_type >::real_type abstol, const VectorD& d,
+ const VectorE& e, integer_t& m, integer_t& nsplit, VectorW& w,
         VectorIBLOCK& iblock, VectorISPLIT& isplit ) {
     typedef typename traits::vector_traits< VectorD >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stedc.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stedc.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stedc.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,33 +37,33 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void stedc( char const compz, integer_t const n, float* d,
- float* e, float* z, integer_t const ldz, float* work,
- integer_t const lwork, integer_t* iwork, integer_t const liwork,
+ inline void stedc( const char compz, const integer_t n, float* d,
+ float* e, float* z, const integer_t ldz, float* work,
+ const integer_t lwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_SSTEDC( &compz, &n, d, e, z, &ldz, work, &lwork, iwork,
                 &liwork, &info );
     }
- inline void stedc( char const compz, integer_t const n, double* d,
- double* e, double* z, integer_t const ldz, double* work,
- integer_t const lwork, integer_t* iwork, integer_t const liwork,
+ inline void stedc( const char compz, const integer_t n, double* d,
+ double* e, double* z, const integer_t ldz, double* work,
+ const integer_t lwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_DSTEDC( &compz, &n, d, e, z, &ldz, work, &lwork, iwork,
                 &liwork, &info );
     }
- inline void stedc( char const compz, integer_t const n, float* d,
- float* e, traits::complex_f* z, integer_t const ldz,
- traits::complex_f* work, integer_t const lwork, float* rwork,
- integer_t const lrwork, integer_t* iwork, integer_t const liwork,
+ inline void stedc( const char compz, const integer_t n, float* d,
+ float* e, traits::complex_f* z, const integer_t ldz,
+ traits::complex_f* work, const integer_t lwork, float* rwork,
+ const integer_t lrwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_CSTEDC( &compz, &n, d, e, traits::complex_ptr(z), &ldz,
                 traits::complex_ptr(work), &lwork, rwork, &lrwork, iwork,
                 &liwork, &info );
     }
- inline void stedc( char const compz, integer_t const n, double* d,
- double* e, traits::complex_d* z, integer_t const ldz,
- traits::complex_d* work, integer_t const lwork, double* rwork,
- integer_t const lrwork, integer_t* iwork, integer_t const liwork,
+ inline void stedc( const char compz, const integer_t n, double* d,
+ double* e, traits::complex_d* z, const integer_t ldz,
+ traits::complex_d* work, const integer_t lwork, double* rwork,
+ const integer_t lrwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_ZSTEDC( &compz, &n, d, e, traits::complex_ptr(z), &ldz,
                 traits::complex_ptr(work), &lwork, rwork, &lrwork, iwork,
@@ -85,7 +85,7 @@
     // user-defined workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ,
             typename WORK, typename IWORK >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, detail::workspace2< WORK,
             IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -112,7 +112,7 @@
 
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
@@ -123,7 +123,7 @@
 
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         integer_t opt_size_iwork;
@@ -141,7 +141,7 @@
         $MIN_SIZE
     }
 
- static integer_t min_size_iwork( char const compz, integer_t const n ) {
+ static integer_t min_size_iwork( const char compz, const integer_t n ) {
         // some formula
     }
 };
@@ -156,7 +156,7 @@
     // user-defined workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ,
             typename WORK, typename RWORK, typename IWORK >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, detail::workspace3< WORK,
             RWORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -184,7 +184,7 @@
 
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
@@ -198,7 +198,7 @@
 
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, optimal_workspace work ) {
         value_type opt_size_work;
         real_type opt_size_rwork;
@@ -224,7 +224,7 @@
         $MIN_SIZE
     }
 
- static integer_t min_size_iwork( char const compz, integer_t const n ) {
+ static integer_t min_size_iwork( const char compz, const integer_t n ) {
         // some formula
     }
 };
@@ -233,7 +233,7 @@
 // template function to call stedc
 template< typename VectorD, typename VectorE, typename MatrixZ,
         typename Workspace >
-inline integer_t stedc( char const compz, integer_t const n, VectorD& d,
+inline integer_t stedc( const char compz, const integer_t n, VectorD& d,
         VectorE& e, MatrixZ& z, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);
@@ -243,7 +243,7 @@
 
 // template function to call stedc, default workspace type
 template< typename VectorD, typename VectorE, typename MatrixZ >
-inline integer_t stedc( char const compz, integer_t const n, VectorD& d,
+inline integer_t stedc( const char compz, const integer_t n, VectorD& d,
         VectorE& e, MatrixZ& z ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stegr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stegr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stegr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,40 +37,40 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void stegr( char const jobz, char const range, integer_t const n,
- float* d, float* e, float const vl, float const vu,
- integer_t const il, integer_t const iu, float const abstol,
- integer_t& m, float* w, float* z, integer_t const ldz,
- integer_t* isuppz, float* work, integer_t const lwork,
- integer_t* iwork, integer_t const liwork, integer_t& info ) {
+ inline void stegr( const char jobz, const char range, const integer_t n,
+ float* d, float* e, const float vl, const float vu,
+ const integer_t il, const integer_t iu, const float abstol,
+ integer_t& m, float* w, float* z, const integer_t ldz,
+ integer_t* isuppz, float* work, const integer_t lwork,
+ integer_t* iwork, const integer_t liwork, integer_t& info ) {
         LAPACK_SSTEGR( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol,
                 &m, w, z, &ldz, isuppz, work, &lwork, iwork, &liwork, &info );
     }
- inline void stegr( char const jobz, char const range, integer_t const n,
- double* d, double* e, double const vl, double const vu,
- integer_t const il, integer_t const iu, double const abstol,
- integer_t& m, double* w, double* z, integer_t const ldz,
- integer_t* isuppz, double* work, integer_t const lwork,
- integer_t* iwork, integer_t const liwork, integer_t& info ) {
+ inline void stegr( const char jobz, const char range, const integer_t n,
+ double* d, double* e, const double vl, const double vu,
+ const integer_t il, const integer_t iu, const double abstol,
+ integer_t& m, double* w, double* z, const integer_t ldz,
+ integer_t* isuppz, double* work, const integer_t lwork,
+ integer_t* iwork, const integer_t liwork, integer_t& info ) {
         LAPACK_DSTEGR( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol,
                 &m, w, z, &ldz, isuppz, work, &lwork, iwork, &liwork, &info );
     }
- inline void stegr( char const jobz, char const range, integer_t const n,
- float* d, float* e, float const vl, float const vu,
- integer_t const il, integer_t const iu, float const abstol,
- integer_t& m, float* w, traits::complex_f* z, integer_t const ldz,
- integer_t* isuppz, float* work, integer_t const lwork,
- integer_t* iwork, integer_t const liwork, integer_t& info ) {
+ inline void stegr( const char jobz, const char range, const integer_t n,
+ float* d, float* e, const float vl, const float vu,
+ const integer_t il, const integer_t iu, const float abstol,
+ integer_t& m, float* w, traits::complex_f* z, const integer_t ldz,
+ integer_t* isuppz, float* work, const integer_t lwork,
+ integer_t* iwork, const integer_t liwork, integer_t& info ) {
         LAPACK_CSTEGR( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol,
                 &m, w, traits::complex_ptr(z), &ldz, isuppz, work, &lwork,
                 iwork, &liwork, &info );
     }
- inline void stegr( char const jobz, char const range, integer_t const n,
- double* d, double* e, double const vl, double const vu,
- integer_t const il, integer_t const iu, double const abstol,
+ inline void stegr( const char jobz, const char range, const integer_t n,
+ double* d, double* e, const double vl, const double vu,
+ const integer_t il, const integer_t iu, const double abstol,
             integer_t& m, double* w, traits::complex_d* z,
- integer_t const ldz, integer_t* isuppz, double* work,
- integer_t const lwork, integer_t* iwork, integer_t const liwork,
+ const integer_t ldz, integer_t* isuppz, double* work,
+ const integer_t lwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_ZSTEGR( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol,
                 &m, w, traits::complex_ptr(z), &ldz, isuppz, work, &lwork,
@@ -93,9 +93,9 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ, typename WORK,
             typename IWORK >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, real_type const abstol,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, const real_type abstol,
             integer_t& m, VectorW& w, MatrixZ& z, VectorISUPPZ& isuppz,
             integer_t& info, detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -130,9 +130,9 @@
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, real_type const abstol,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, const real_type abstol,
             integer_t& m, VectorW& w, MatrixZ& z, VectorISUPPZ& isuppz,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n,
@@ -146,9 +146,9 @@
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, real_type const abstol,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, const real_type abstol,
             integer_t& m, VectorW& w, MatrixZ& z, VectorISUPPZ& isuppz,
             integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
@@ -165,7 +165,7 @@
                 info, workspace( tmp_work, tmp_iwork ) );
     }
 
- static integer_t min_size_work( integer_t const n, char const jobz ) {
+ static integer_t min_size_work( const integer_t n, const char jobz ) {
         if ( jobz == 'V' ) {
             return std::max( 1, 18*n );
         } else {
@@ -173,7 +173,7 @@
         }
     }
 
- static integer_t min_size_iwork( integer_t const n, char const jobz ) {
+ static integer_t min_size_iwork( const integer_t n, const char jobz ) {
         if ( jobz == 'V' ) {
             return std::max( 1, 10*n );
         } else {
@@ -193,9 +193,9 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ, typename WORK,
             typename IWORK >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, real_type const abstol,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, const real_type abstol,
             integer_t& m, VectorW& w, MatrixZ& z, VectorISUPPZ& isuppz,
             integer_t& info, detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -227,9 +227,9 @@
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, real_type const abstol,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, const real_type abstol,
             integer_t& m, VectorW& w, MatrixZ& z, VectorISUPPZ& isuppz,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n,
@@ -243,9 +243,9 @@
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, real_type const abstol,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, const real_type abstol,
             integer_t& m, VectorW& w, MatrixZ& z, VectorISUPPZ& isuppz,
             integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
@@ -262,7 +262,7 @@
                 info, workspace( tmp_work, tmp_iwork ) );
     }
 
- static integer_t min_size_work( integer_t const n, char const jobz ) {
+ static integer_t min_size_work( const integer_t n, const char jobz ) {
         if ( jobz == 'V' ) {
             return std::max( 1, 18*n );
         } else {
@@ -270,7 +270,7 @@
         }
     }
 
- static integer_t min_size_iwork( integer_t const n, char const jobz ) {
+ static integer_t min_size_iwork( const integer_t n, const char jobz ) {
         if ( jobz == 'V' ) {
             return std::max( 1, 10*n );
         } else {
@@ -283,16 +283,16 @@
 // template function to call stegr
 template< typename VectorD, typename VectorE, typename VectorW,
         typename MatrixZ, typename VectorISUPPZ, typename Workspace >
-inline integer_t stegr( char const jobz, char const range,
- integer_t const n, VectorD& d, VectorE& e,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixZ >::value_type >::real_type const vl,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixZ >::value_type >::real_type const vu, integer_t const il,
- integer_t const iu, typename traits::type_traits<
+inline integer_t stegr( const char jobz, const char range,
+ const integer_t n, VectorD& d, VectorE& e,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixZ >::value_type >::real_type vl,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixZ >::value_type >::real_type vu, const integer_t il,
+ const integer_t iu, const typename traits::type_traits<
         typename traits::matrix_traits<
- MatrixZ >::value_type >::real_type const abstol, integer_t& m,
- VectorW& w, MatrixZ& z, VectorISUPPZ& isuppz, Workspace work ) {
+ MatrixZ >::value_type >::real_type abstol, integer_t& m, VectorW& w,
+ MatrixZ& z, VectorISUPPZ& isuppz, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);
     stegr_impl< value_type >::invoke( jobz, range, n, d, e, vl, vu, il,
@@ -303,16 +303,16 @@
 // template function to call stegr, default workspace type
 template< typename VectorD, typename VectorE, typename VectorW,
         typename MatrixZ, typename VectorISUPPZ >
-inline integer_t stegr( char const jobz, char const range,
- integer_t const n, VectorD& d, VectorE& e,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixZ >::value_type >::real_type const vl,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixZ >::value_type >::real_type const vu, integer_t const il,
- integer_t const iu, typename traits::type_traits<
+inline integer_t stegr( const char jobz, const char range,
+ const integer_t n, VectorD& d, VectorE& e,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixZ >::value_type >::real_type vl,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixZ >::value_type >::real_type vu, const integer_t il,
+ const integer_t iu, const typename traits::type_traits<
         typename traits::matrix_traits<
- MatrixZ >::value_type >::real_type const abstol, integer_t& m,
- VectorW& w, MatrixZ& z, VectorISUPPZ& isuppz ) {
+ MatrixZ >::value_type >::real_type abstol, integer_t& m, VectorW& w,
+ MatrixZ& z, VectorISUPPZ& isuppz ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);
     stegr_impl< value_type >::invoke( jobz, range, n, d, e, vl, vu, il,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stein.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stein.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stein.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,32 +36,35 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void stein( integer_t const n, float* d, float* e,
- integer_t const m, float* w, integer_t* iblock, integer_t* isplit,
- float* z, integer_t const ldz, float* work, integer_t* iwork,
- integer_t* ifail, integer_t& info ) {
+ inline void stein( const integer_t n, const float* d, const float* e,
+ const integer_t m, const float* w, const integer_t* iblock,
+ const integer_t* isplit, float* z, const integer_t ldz,
+ float* work, integer_t* iwork, integer_t* ifail,
+ integer_t& info ) {
         LAPACK_SSTEIN( &n, d, e, &m, w, iblock, isplit, z, &ldz, work, iwork,
                 ifail, &info );
     }
- inline void stein( integer_t const n, double* d, double* e,
- integer_t const m, double* w, integer_t* iblock,
- integer_t* isplit, double* z, integer_t const ldz, double* work,
- integer_t* iwork, integer_t* ifail, integer_t& info ) {
+ inline void stein( const integer_t n, const double* d, const double* e,
+ const integer_t m, const double* w, const integer_t* iblock,
+ const integer_t* isplit, double* z, const integer_t ldz,
+ double* work, integer_t* iwork, integer_t* ifail,
+ integer_t& info ) {
         LAPACK_DSTEIN( &n, d, e, &m, w, iblock, isplit, z, &ldz, work, iwork,
                 ifail, &info );
     }
- inline void stein( integer_t const n, float* d, float* e,
- integer_t const m, float* w, integer_t* iblock, integer_t* isplit,
- traits::complex_f* z, integer_t const ldz, float* work,
- integer_t* iwork, integer_t* ifail, integer_t& info ) {
+ inline void stein( const integer_t n, const float* d, const float* e,
+ const integer_t m, const float* w, const integer_t* iblock,
+ const integer_t* isplit, traits::complex_f* z,
+ const integer_t ldz, float* work, integer_t* iwork,
+ integer_t* ifail, integer_t& info ) {
         LAPACK_CSTEIN( &n, d, e, &m, w, iblock, isplit,
                 traits::complex_ptr(z), &ldz, work, iwork, ifail, &info );
     }
- inline void stein( integer_t const n, double* d, double* e,
- integer_t const m, double* w, integer_t* iblock,
- integer_t* isplit, traits::complex_d* z, integer_t const ldz,
- double* work, integer_t* iwork, integer_t* ifail,
- integer_t& info ) {
+ inline void stein( const integer_t n, const double* d, const double* e,
+ const integer_t m, const double* w, const integer_t* iblock,
+ const integer_t* isplit, traits::complex_d* z,
+ const integer_t ldz, double* work, integer_t* iwork,
+ integer_t* ifail, integer_t& info ) {
         LAPACK_ZSTEIN( &n, d, e, &m, w, iblock, isplit,
                 traits::complex_ptr(z), &ldz, work, iwork, ifail, &info );
     }
@@ -82,9 +85,9 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename VectorIBLOCK, typename VectorISPLIT, typename MatrixZ,
             typename VectorIFAIL, typename WORK, typename IWORK >
- static void invoke( integer_t const n, VectorD& d, VectorE& e,
- integer_t const m, VectorW& w, VectorIBLOCK& iblock,
- VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
+ static void invoke( const integer_t n, const VectorD& d, const VectorE& e,
+ const integer_t m, const VectorW& w, const VectorIBLOCK& iblock,
+ const VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
             integer_t& info, detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorD >::value_type, typename traits::vector_traits<
@@ -125,9 +128,9 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename VectorIBLOCK, typename VectorISPLIT, typename MatrixZ,
             typename VectorIFAIL >
- static void invoke( integer_t const n, VectorD& d, VectorE& e,
- integer_t const m, VectorW& w, VectorIBLOCK& iblock,
- VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
+ static void invoke( const integer_t n, const VectorD& d, const VectorE& e,
+ const integer_t m, const VectorW& w, const VectorIBLOCK& iblock,
+ const VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork( n ) );
@@ -139,19 +142,19 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename VectorIBLOCK, typename VectorISPLIT, typename MatrixZ,
             typename VectorIFAIL >
- static void invoke( integer_t const n, VectorD& d, VectorE& e,
- integer_t const m, VectorW& w, VectorIBLOCK& iblock,
- VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
+ static void invoke( const integer_t n, const VectorD& d, const VectorE& e,
+ const integer_t m, const VectorW& w, const VectorIBLOCK& iblock,
+ const VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
             integer_t& info, optimal_workspace work ) {
         invoke( n, d, e, m, w, iblock, isplit, z, ifail, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 5*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -167,9 +170,9 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename VectorIBLOCK, typename VectorISPLIT, typename MatrixZ,
             typename VectorIFAIL, typename WORK, typename IWORK >
- static void invoke( integer_t const n, VectorD& d, VectorE& e,
- integer_t const m, VectorW& w, VectorIBLOCK& iblock,
- VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
+ static void invoke( const integer_t n, const VectorD& d, const VectorE& e,
+ const integer_t m, const VectorW& w, const VectorIBLOCK& iblock,
+ const VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
             integer_t& info, detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorD >::value_type, typename traits::vector_traits<
@@ -207,9 +210,9 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename VectorIBLOCK, typename VectorISPLIT, typename MatrixZ,
             typename VectorIFAIL >
- static void invoke( integer_t const n, VectorD& d, VectorE& e,
- integer_t const m, VectorW& w, VectorIBLOCK& iblock,
- VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
+ static void invoke( const integer_t n, const VectorD& d, const VectorE& e,
+ const integer_t m, const VectorW& w, const VectorIBLOCK& iblock,
+ const VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork( n ) );
@@ -221,19 +224,19 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename VectorIBLOCK, typename VectorISPLIT, typename MatrixZ,
             typename VectorIFAIL >
- static void invoke( integer_t const n, VectorD& d, VectorE& e,
- integer_t const m, VectorW& w, VectorIBLOCK& iblock,
- VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
+ static void invoke( const integer_t n, const VectorD& d, const VectorE& e,
+ const integer_t m, const VectorW& w, const VectorIBLOCK& iblock,
+ const VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
             integer_t& info, optimal_workspace work ) {
         invoke( n, d, e, m, w, iblock, isplit, z, ifail, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 5*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -243,10 +246,10 @@
 template< typename VectorD, typename VectorE, typename VectorW,
         typename VectorIBLOCK, typename VectorISPLIT, typename MatrixZ,
         typename VectorIFAIL, typename Workspace >
-inline integer_t stein( integer_t const n, VectorD& d, VectorE& e,
- integer_t const m, VectorW& w, VectorIBLOCK& iblock,
- VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail,
- Workspace work ) {
+inline integer_t stein( const integer_t n, const VectorD& d,
+ const VectorE& e, const integer_t m, const VectorW& w,
+ const VectorIBLOCK& iblock, const VectorISPLIT& isplit, MatrixZ& z,
+ VectorIFAIL& ifail, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);
     stein_impl< value_type >::invoke( n, d, e, m, w, iblock, isplit, z,
@@ -258,9 +261,10 @@
 template< typename VectorD, typename VectorE, typename VectorW,
         typename VectorIBLOCK, typename VectorISPLIT, typename MatrixZ,
         typename VectorIFAIL >
-inline integer_t stein( integer_t const n, VectorD& d, VectorE& e,
- integer_t const m, VectorW& w, VectorIBLOCK& iblock,
- VectorISPLIT& isplit, MatrixZ& z, VectorIFAIL& ifail ) {
+inline integer_t stein( const integer_t n, const VectorD& d,
+ const VectorE& e, const integer_t m, const VectorW& w,
+ const VectorIBLOCK& iblock, const VectorISPLIT& isplit, MatrixZ& z,
+ VectorIFAIL& ifail ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);
     stein_impl< value_type >::invoke( n, d, e, m, w, iblock, isplit, z,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stemr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stemr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/stemr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,45 +37,45 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void stemr( char const jobz, char const range, integer_t const n,
- float* d, float* e, float const vl, float const vu,
- integer_t const il, integer_t const iu, integer_t& m, float* w,
- float* z, integer_t const ldz, integer_t const nzc,
+ inline void stemr( const char jobz, const char range, const integer_t n,
+ float* d, float* e, const float vl, const float vu,
+ const integer_t il, const integer_t iu, integer_t& m, float* w,
+ float* z, const integer_t ldz, const integer_t nzc,
             integer_t* isuppz, logical_t& tryrac, float* work,
- integer_t const lwork, integer_t* iwork, integer_t const liwork,
+ const integer_t lwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_SSTEMR( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &m, w, z,
                 &ldz, &nzc, isuppz, &tryrac, work, &lwork, iwork, &liwork,
                 &info );
     }
- inline void stemr( char const jobz, char const range, integer_t const n,
- double* d, double* e, double const vl, double const vu,
- integer_t const il, integer_t const iu, integer_t& m, double* w,
- double* z, integer_t const ldz, integer_t const nzc,
+ inline void stemr( const char jobz, const char range, const integer_t n,
+ double* d, double* e, const double vl, const double vu,
+ const integer_t il, const integer_t iu, integer_t& m, double* w,
+ double* z, const integer_t ldz, const integer_t nzc,
             integer_t* isuppz, logical_t& tryrac, double* work,
- integer_t const lwork, integer_t* iwork, integer_t const liwork,
+ const integer_t lwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_DSTEMR( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &m, w, z,
                 &ldz, &nzc, isuppz, &tryrac, work, &lwork, iwork, &liwork,
                 &info );
     }
- inline void stemr( char const jobz, char const range, integer_t const n,
- float* d, float* e, float const vl, float const vu,
- integer_t const il, integer_t const iu, integer_t& m, float* w,
- traits::complex_f* z, integer_t const ldz, integer_t const nzc,
+ inline void stemr( const char jobz, const char range, const integer_t n,
+ float* d, float* e, const float vl, const float vu,
+ const integer_t il, const integer_t iu, integer_t& m, float* w,
+ traits::complex_f* z, const integer_t ldz, const integer_t nzc,
             integer_t* isuppz, logical_t& tryrac, float* work,
- integer_t const lwork, integer_t* iwork, integer_t const liwork,
+ const integer_t lwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_CSTEMR( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &m, w,
                 traits::complex_ptr(z), &ldz, &nzc, isuppz, &tryrac, work,
                 &lwork, iwork, &liwork, &info );
     }
- inline void stemr( char const jobz, char const range, integer_t const n,
- double* d, double* e, double const vl, double const vu,
- integer_t const il, integer_t const iu, integer_t& m, double* w,
- traits::complex_d* z, integer_t const ldz, integer_t const nzc,
+ inline void stemr( const char jobz, const char range, const integer_t n,
+ double* d, double* e, const double vl, const double vu,
+ const integer_t il, const integer_t iu, integer_t& m, double* w,
+ traits::complex_d* z, const integer_t ldz, const integer_t nzc,
             integer_t* isuppz, logical_t& tryrac, double* work,
- integer_t const lwork, integer_t* iwork, integer_t const liwork,
+ const integer_t lwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_ZSTEMR( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &m, w,
                 traits::complex_ptr(z), &ldz, &nzc, isuppz, &tryrac, work,
@@ -98,10 +98,10 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ, typename WORK,
             typename IWORK >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, integer_t& m, VectorW& w,
- MatrixZ& z, integer_t const nzc, VectorISUPPZ& isuppz,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, integer_t& m, VectorW& w,
+ MatrixZ& z, const integer_t nzc, VectorISUPPZ& isuppz,
             logical_t& tryrac, integer_t& info, detail::workspace2< WORK,
             IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -137,10 +137,10 @@
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, integer_t& m, VectorW& w,
- MatrixZ& z, integer_t const nzc, VectorISUPPZ& isuppz,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, integer_t& m, VectorW& w,
+ MatrixZ& z, const integer_t nzc, VectorISUPPZ& isuppz,
             logical_t& tryrac, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n,
                 jobz ) );
@@ -153,10 +153,10 @@
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, integer_t& m, VectorW& w,
- MatrixZ& z, integer_t const nzc, VectorISUPPZ& isuppz,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, integer_t& m, VectorW& w,
+ MatrixZ& z, const integer_t nzc, VectorISUPPZ& isuppz,
             logical_t& tryrac, integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         integer_t opt_size_iwork;
@@ -173,7 +173,7 @@
                 tryrac, info, workspace( tmp_work, tmp_iwork ) );
     }
 
- static integer_t min_size_work( integer_t const n, char const jobz ) {
+ static integer_t min_size_work( const integer_t n, const char jobz ) {
         if ( jobz == 'V' ) {
             return std::max( 1, 18*n );
         } else {
@@ -181,7 +181,7 @@
         }
     }
 
- static integer_t min_size_iwork( integer_t const n, char const jobz ) {
+ static integer_t min_size_iwork( const integer_t n, const char jobz ) {
         if ( jobz == 'V' ) {
             return std::max( 1, 10*n );
         } else {
@@ -201,10 +201,10 @@
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ, typename WORK,
             typename IWORK >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, integer_t& m, VectorW& w,
- MatrixZ& z, integer_t const nzc, VectorISUPPZ& isuppz,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, integer_t& m, VectorW& w,
+ MatrixZ& z, const integer_t nzc, VectorISUPPZ& isuppz,
             logical_t& tryrac, integer_t& info, detail::workspace2< WORK,
             IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -237,10 +237,10 @@
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, integer_t& m, VectorW& w,
- MatrixZ& z, integer_t const nzc, VectorISUPPZ& isuppz,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, integer_t& m, VectorW& w,
+ MatrixZ& z, const integer_t nzc, VectorISUPPZ& isuppz,
             logical_t& tryrac, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n,
                 jobz ) );
@@ -253,10 +253,10 @@
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename VectorW,
             typename MatrixZ, typename VectorISUPPZ >
- static void invoke( char const jobz, char const range, integer_t const n,
- VectorD& d, VectorE& e, real_type const vl, real_type const vu,
- integer_t const il, integer_t const iu, integer_t& m, VectorW& w,
- MatrixZ& z, integer_t const nzc, VectorISUPPZ& isuppz,
+ static void invoke( const char jobz, const char range, const integer_t n,
+ VectorD& d, VectorE& e, const real_type vl, const real_type vu,
+ const integer_t il, const integer_t iu, integer_t& m, VectorW& w,
+ MatrixZ& z, const integer_t nzc, VectorISUPPZ& isuppz,
             logical_t& tryrac, integer_t& info, optimal_workspace work ) {
         real_type opt_size_work;
         integer_t opt_size_iwork;
@@ -273,7 +273,7 @@
                 tryrac, info, workspace( tmp_work, tmp_iwork ) );
     }
 
- static integer_t min_size_work( integer_t const n, char const jobz ) {
+ static integer_t min_size_work( const integer_t n, const char jobz ) {
         if ( jobz == 'V' ) {
             return std::max( 1, 18*n );
         } else {
@@ -281,7 +281,7 @@
         }
     }
 
- static integer_t min_size_iwork( integer_t const n, char const jobz ) {
+ static integer_t min_size_iwork( const integer_t n, const char jobz ) {
         if ( jobz == 'V' ) {
             return std::max( 1, 10*n );
         } else {
@@ -294,14 +294,14 @@
 // template function to call stemr
 template< typename VectorD, typename VectorE, typename VectorW,
         typename MatrixZ, typename VectorISUPPZ, typename Workspace >
-inline integer_t stemr( char const jobz, char const range,
- integer_t const n, VectorD& d, VectorE& e,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixZ >::value_type >::real_type const vl,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixZ >::value_type >::real_type const vu, integer_t const il,
- integer_t const iu, integer_t& m, VectorW& w, MatrixZ& z,
- integer_t const nzc, VectorISUPPZ& isuppz, logical_t& tryrac,
+inline integer_t stemr( const char jobz, const char range,
+ const integer_t n, VectorD& d, VectorE& e,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixZ >::value_type >::real_type vl,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixZ >::value_type >::real_type vu, const integer_t il,
+ const integer_t iu, integer_t& m, VectorW& w, MatrixZ& z,
+ const integer_t nzc, VectorISUPPZ& isuppz, logical_t& tryrac,
         Workspace work ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);
@@ -313,14 +313,14 @@
 // template function to call stemr, default workspace type
 template< typename VectorD, typename VectorE, typename VectorW,
         typename MatrixZ, typename VectorISUPPZ >
-inline integer_t stemr( char const jobz, char const range,
- integer_t const n, VectorD& d, VectorE& e,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixZ >::value_type >::real_type const vl,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixZ >::value_type >::real_type const vu, integer_t const il,
- integer_t const iu, integer_t& m, VectorW& w, MatrixZ& z,
- integer_t const nzc, VectorISUPPZ& isuppz, logical_t& tryrac ) {
+inline integer_t stemr( const char jobz, const char range,
+ const integer_t n, VectorD& d, VectorE& e,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixZ >::value_type >::real_type vl,
+ const typename traits::type_traits< typename traits::matrix_traits<
+ MatrixZ >::value_type >::real_type vu, const integer_t il,
+ const integer_t iu, integer_t& m, VectorW& w, MatrixZ& z,
+ const integer_t nzc, VectorISUPPZ& isuppz, logical_t& tryrac ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);
     stemr_impl< value_type >::invoke( jobz, range, n, d, e, vl, vu, il,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/steqr.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/steqr.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/steqr.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,24 +36,24 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void steqr( char const compz, integer_t const n, float* d,
- float* e, float* z, integer_t const ldz, float* work,
+ inline void steqr( const char compz, const integer_t n, float* d,
+ float* e, float* z, const integer_t ldz, float* work,
             integer_t& info ) {
         LAPACK_SSTEQR( &compz, &n, d, e, z, &ldz, work, &info );
     }
- inline void steqr( char const compz, integer_t const n, double* d,
- double* e, double* z, integer_t const ldz, double* work,
+ inline void steqr( const char compz, const integer_t n, double* d,
+ double* e, double* z, const integer_t ldz, double* work,
             integer_t& info ) {
         LAPACK_DSTEQR( &compz, &n, d, e, z, &ldz, work, &info );
     }
- inline void steqr( char const compz, integer_t const n, float* d,
- float* e, traits::complex_f* z, integer_t const ldz, float* work,
+ inline void steqr( const char compz, const integer_t n, float* d,
+ float* e, traits::complex_f* z, const integer_t ldz, float* work,
             integer_t& info ) {
         LAPACK_CSTEQR( &compz, &n, d, e, traits::complex_ptr(z), &ldz, work,
                 &info );
     }
- inline void steqr( char const compz, integer_t const n, double* d,
- double* e, traits::complex_d* z, integer_t const ldz,
+ inline void steqr( const char compz, const integer_t n, double* d,
+ double* e, traits::complex_d* z, const integer_t ldz,
             double* work, integer_t& info ) {
         LAPACK_ZSTEQR( &compz, &n, d, e, traits::complex_ptr(z), &ldz, work,
                 &info );
@@ -74,7 +74,7 @@
     // user-defined workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ,
             typename WORK >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, detail::workspace1<
             WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -96,7 +96,7 @@
 
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
@@ -105,7 +105,7 @@
 
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, optimal_workspace work ) {
         invoke( compz, n, d, e, z, info, minimal_workspace() );
     }
@@ -125,7 +125,7 @@
     // user-defined workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ,
             typename WORK >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, detail::workspace1<
             WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
@@ -144,7 +144,7 @@
 
     // minimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
@@ -153,7 +153,7 @@
 
     // optimal workspace specialization
     template< typename VectorD, typename VectorE, typename MatrixZ >
- static void invoke( char const compz, integer_t const n, VectorD& d,
+ static void invoke( const char compz, const integer_t n, VectorD& d,
             VectorE& e, MatrixZ& z, integer_t& info, optimal_workspace work ) {
         invoke( compz, n, d, e, z, info, minimal_workspace() );
     }
@@ -167,7 +167,7 @@
 // template function to call steqr
 template< typename VectorD, typename VectorE, typename MatrixZ,
         typename Workspace >
-inline integer_t steqr( char const compz, integer_t const n, VectorD& d,
+inline integer_t steqr( const char compz, const integer_t n, VectorD& d,
         VectorE& e, MatrixZ& z, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);
@@ -177,7 +177,7 @@
 
 // template function to call steqr, default workspace type
 template< typename VectorD, typename VectorE, typename MatrixZ >
-inline integer_t steqr( char const compz, integer_t const n, VectorD& d,
+inline integer_t steqr( const char compz, const integer_t n, VectorD& d,
         VectorE& e, MatrixZ& z ) {
     typedef typename traits::matrix_traits< MatrixZ >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sterf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sterf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sterf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,11 +31,11 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sterf( integer_t const n, float* d, float* e,
+ inline void sterf( const integer_t n, float* d, float* e,
             integer_t& info ) {
         LAPACK_SSTERF( &n, d, e, &info );
     }
- inline void sterf( integer_t const n, double* d, double* e,
+ inline void sterf( const integer_t n, double* d, double* e,
             integer_t& info ) {
         LAPACK_DSTERF( &n, d, e, &info );
     }
@@ -50,7 +50,7 @@
 
     // templated specialization
     template< typename VectorD, typename VectorE >
- static void invoke( integer_t const n, VectorD& d, VectorE& e,
+ static void invoke( const integer_t n, VectorD& d, VectorE& e,
             integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorD >::value_type, typename traits::vector_traits<
@@ -65,7 +65,7 @@
 
 // template function to call sterf
 template< typename VectorD, typename VectorE >
-inline integer_t sterf( integer_t const n, VectorD& d, VectorE& e ) {
+inline integer_t sterf( const integer_t n, VectorD& d, VectorE& e ) {
     typedef typename traits::vector_traits< VectorD >::value_type value_type;
     integer_t info(0);
     sterf_impl< value_type >::invoke( n, d, e, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sycon.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sycon.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sycon.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,29 +36,29 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sycon( char const uplo, integer_t const n, float* a,
- integer_t const lda, integer_t* ipiv, float const anorm,
+ inline void sycon( const char uplo, const integer_t n, const float* a,
+ const integer_t lda, const integer_t* ipiv, const float anorm,
             float& rcond, float* work, integer_t* iwork, integer_t& info ) {
         LAPACK_SSYCON( &uplo, &n, a, &lda, ipiv, &anorm, &rcond, work, iwork,
                 &info );
     }
- inline void sycon( char const uplo, integer_t const n, double* a,
- integer_t const lda, integer_t* ipiv, double const anorm,
+ inline void sycon( const char uplo, const integer_t n, const double* a,
+ const integer_t lda, const integer_t* ipiv, const double anorm,
             double& rcond, double* work, integer_t* iwork, integer_t& info ) {
         LAPACK_DSYCON( &uplo, &n, a, &lda, ipiv, &anorm, &rcond, work, iwork,
                 &info );
     }
- inline void sycon( char const uplo, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t* ipiv,
- float const anorm, float& rcond, traits::complex_f* work,
- integer_t& info ) {
+ inline void sycon( const char uplo, const integer_t n,
+ const traits::complex_f* a, const integer_t lda,
+ const integer_t* ipiv, const float anorm, float& rcond,
+ traits::complex_f* work, integer_t& info ) {
         LAPACK_CSYCON( &uplo, &n, traits::complex_ptr(a), &lda, ipiv, &anorm,
                 &rcond, traits::complex_ptr(work), &info );
     }
- inline void sycon( char const uplo, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t* ipiv,
- double const anorm, double& rcond, traits::complex_d* work,
- integer_t& info ) {
+ inline void sycon( const char uplo, const integer_t n,
+ const traits::complex_d* a, const integer_t lda,
+ const integer_t* ipiv, const double anorm, double& rcond,
+ traits::complex_d* work, integer_t& info ) {
         LAPACK_ZSYCON( &uplo, &n, traits::complex_ptr(a), &lda, ipiv, &anorm,
                 &rcond, traits::complex_ptr(work), &info );
     }
@@ -78,9 +78,9 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorIPIV, typename WORK,
             typename IWORK >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- real_type const anorm, real_type& rcond, integer_t& info,
- detail::workspace2< WORK, IWORK > work ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
+ integer_t& info, detail::workspace2< WORK, IWORK > work ) {
         BOOST_ASSERT( uplo == 'U' || uplo == 'L' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
         BOOST_ASSERT( traits::leading_dimension(a) >= std::max(1,
@@ -100,9 +100,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- real_type const anorm, real_type& rcond, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork(
@@ -113,17 +113,17 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- real_type const anorm, real_type& rcond, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
+ integer_t& info, optimal_workspace work ) {
         invoke( uplo, a, ipiv, anorm, rcond, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -137,9 +137,9 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorIPIV, typename WORK >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- real_type const anorm, real_type& rcond, integer_t& info,
- detail::workspace1< WORK > work ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
+ integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_ASSERT( uplo == 'U' || uplo == 'L' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
         BOOST_ASSERT( traits::leading_dimension(a) >= std::max(1,
@@ -156,9 +156,9 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- real_type const anorm, real_type& rcond, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
+ integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         invoke( uplo, a, ipiv, anorm, rcond, info, workspace( tmp_work ) );
@@ -166,13 +166,13 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- real_type const anorm, real_type& rcond, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const real_type anorm, real_type& rcond,
+ integer_t& info, optimal_workspace work ) {
         invoke( uplo, a, ipiv, anorm, rcond, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 };
@@ -180,9 +180,10 @@
 
 // template function to call sycon
 template< typename MatrixA, typename VectorIPIV, typename Workspace >
-inline integer_t sycon( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const anorm,
+inline integer_t sycon( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const typename traits::type_traits<
+ typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& rcond, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
@@ -194,9 +195,10 @@
 
 // template function to call sycon, default workspace type
 template< typename MatrixA, typename VectorIPIV >
-inline integer_t sycon( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- typename traits::type_traits< typename traits::matrix_traits<
- MatrixA >::value_type >::real_type const anorm,
+inline integer_t sycon( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, const typename traits::type_traits<
+ typename traits::matrix_traits<
+ MatrixA >::value_type >::real_type anorm,
         typename traits::type_traits< typename traits::matrix_traits<
         MatrixA >::value_type >::real_type& rcond ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sygst.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sygst.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sygst.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,14 +31,14 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sygst( integer_t const itype, char const uplo,
- integer_t const n, float* a, integer_t const lda, float* b,
- integer_t const ldb, integer_t& info ) {
+ inline void sygst( const integer_t itype, const char uplo,
+ const integer_t n, float* a, const integer_t lda, const float* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_SSYGST( &itype, &uplo, &n, a, &lda, b, &ldb, &info );
     }
- inline void sygst( integer_t const itype, char const uplo,
- integer_t const n, double* a, integer_t const lda, double* b,
- integer_t const ldb, integer_t& info ) {
+ inline void sygst( const integer_t itype, const char uplo,
+ const integer_t n, double* a, const integer_t lda,
+ const double* b, const integer_t ldb, integer_t& info ) {
         LAPACK_DSYGST( &itype, &uplo, &n, a, &lda, b, &ldb, &info );
     }
 }
@@ -52,8 +52,8 @@
 
     // templated specialization
     template< typename MatrixA, typename MatrixB >
- static void invoke( integer_t const itype, integer_t const n, MatrixA& a,
- MatrixB& b, integer_t& info ) {
+ static void invoke( const integer_t itype, const integer_t n, MatrixA& a,
+ const MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -72,8 +72,8 @@
 
 // template function to call sygst
 template< typename MatrixA, typename MatrixB >
-inline integer_t sygst( integer_t const itype, integer_t const n,
- MatrixA& a, MatrixB& b ) {
+inline integer_t sygst( const integer_t itype, const integer_t n,
+ MatrixA& a, const MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     sygst_impl< value_type >::invoke( itype, n, a, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/syrfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/syrfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/syrfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,39 +36,45 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void syrfs( char const uplo, integer_t const n,
- integer_t const nrhs, float* a, integer_t const lda, float* af,
- integer_t const ldaf, integer_t* ipiv, float* b,
- integer_t const ldb, float* x, integer_t const ldx, float* ferr,
- float* berr, float* work, integer_t* iwork, integer_t& info ) {
+ inline void syrfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const float* a, const integer_t lda,
+ const float* af, const integer_t ldaf, const integer_t* ipiv,
+ const float* b, const integer_t ldb, float* x,
+ const integer_t ldx, float* ferr, float* berr, float* work,
+ integer_t* iwork, integer_t& info ) {
         LAPACK_SSYRFS( &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x,
                 &ldx, ferr, berr, work, iwork, &info );
     }
- inline void syrfs( char const uplo, integer_t const n,
- integer_t const nrhs, double* a, integer_t const lda, double* af,
- integer_t const ldaf, integer_t* ipiv, double* b,
- integer_t const ldb, double* x, integer_t const ldx, double* ferr,
- double* berr, double* work, integer_t* iwork, integer_t& info ) {
+ inline void syrfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const double* a, const integer_t lda,
+ const double* af, const integer_t ldaf, const integer_t* ipiv,
+ const double* b, const integer_t ldb, double* x,
+ const integer_t ldx, double* ferr, double* berr, double* work,
+ integer_t* iwork, integer_t& info ) {
         LAPACK_DSYRFS( &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x,
                 &ldx, ferr, berr, work, iwork, &info );
     }
- inline void syrfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* a, integer_t const lda,
- traits::complex_f* af, integer_t const ldaf, integer_t* ipiv,
- traits::complex_f* b, integer_t const ldb, traits::complex_f* x,
- integer_t const ldx, float* ferr, float* berr,
- traits::complex_f* work, float* rwork, integer_t& info ) {
+ inline void syrfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* a,
+ const integer_t lda, const traits::complex_f* af,
+ const integer_t ldaf, const integer_t* ipiv,
+ const traits::complex_f* b, const integer_t ldb,
+ traits::complex_f* x, const integer_t ldx, float* ferr,
+ float* berr, traits::complex_f* work, float* rwork,
+ integer_t& info ) {
         LAPACK_CSYRFS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(af), &ldaf, ipiv, traits::complex_ptr(b),
                 &ldb, traits::complex_ptr(x), &ldx, ferr, berr,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void syrfs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* a, integer_t const lda,
- traits::complex_d* af, integer_t const ldaf, integer_t* ipiv,
- traits::complex_d* b, integer_t const ldb, traits::complex_d* x,
- integer_t const ldx, double* ferr, double* berr,
- traits::complex_d* work, double* rwork, integer_t& info ) {
+ inline void syrfs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* a,
+ const integer_t lda, const traits::complex_d* af,
+ const integer_t ldaf, const integer_t* ipiv,
+ const traits::complex_d* b, const integer_t ldb,
+ traits::complex_d* x, const integer_t ldx, double* ferr,
+ double* berr, traits::complex_d* work, double* rwork,
+ integer_t& info ) {
         LAPACK_ZSYRFS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(af), &ldaf, ipiv, traits::complex_ptr(b),
                 &ldb, traits::complex_ptr(x), &ldx, ferr, berr,
@@ -91,9 +97,10 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR, typename WORK, typename IWORK >
- static void invoke( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, detail::workspace2< WORK, IWORK > work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
                 MatrixAF >::value_type >::value) );
@@ -145,9 +152,10 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, minimal_workspace work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork(
@@ -160,17 +168,18 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, optimal_workspace work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( a, af, ipiv, b, x, ferr, berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -186,9 +195,10 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR, typename WORK, typename RWORK >
- static void invoke( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, detail::workspace2< WORK, RWORK > work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ detail::workspace2< WORK, RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorFERR >::value_type, typename traits::vector_traits<
                 VectorBERR >::value_type >::value) );
@@ -237,9 +247,10 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, minimal_workspace work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork(
@@ -252,17 +263,18 @@
     template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
             typename MatrixB, typename MatrixX, typename VectorFERR,
             typename VectorBERR >
- static void invoke( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- integer_t& info, optimal_workspace work ) {
+ static void invoke( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, integer_t& info,
+ optimal_workspace work ) {
         invoke( a, af, ipiv, b, x, ferr, berr, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -272,9 +284,9 @@
 template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR, typename Workspace >
-inline integer_t syrfs( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- Workspace work ) {
+inline integer_t syrfs( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     syrfs_impl< value_type >::invoke( a, af, ipiv, b, x, ferr, berr,
@@ -286,8 +298,9 @@
 template< typename MatrixA, typename MatrixAF, typename VectorIPIV,
         typename MatrixB, typename MatrixX, typename VectorFERR,
         typename VectorBERR >
-inline integer_t syrfs( MatrixA& a, MatrixAF& af, VectorIPIV& ipiv,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
+inline integer_t syrfs( const MatrixA& a, const MatrixAF& af,
+ const VectorIPIV& ipiv, const MatrixB& b, MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     syrfs_impl< value_type >::invoke( a, af, ipiv, b, x, ferr, berr,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrd.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrd.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrd.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -34,14 +34,14 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sytrd( char const uplo, integer_t const n, float* a,
- integer_t const lda, float* d, float* e, float* tau, float* work,
- integer_t const lwork, integer_t& info ) {
+ inline void sytrd( const char uplo, const integer_t n, float* a,
+ const integer_t lda, float* d, float* e, float* tau, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SSYTRD( &uplo, &n, a, &lda, d, e, tau, work, &lwork, &info );
     }
- inline void sytrd( char const uplo, integer_t const n, double* a,
- integer_t const lda, double* d, double* e, double* tau,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void sytrd( const char uplo, const integer_t n, double* a,
+ const integer_t lda, double* d, double* e, double* tau,
+ double* work, const integer_t lwork, integer_t& info ) {
         LAPACK_DSYTRD( &uplo, &n, a, &lda, d, e, tau, work, &lwork, &info );
     }
 }

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrf.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrf.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrf.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,25 +37,25 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sytrf( char const uplo, integer_t const n, float* a,
- integer_t const lda, integer_t* ipiv, float* work,
- integer_t const lwork, integer_t& info ) {
+ inline void sytrf( const char uplo, const integer_t n, float* a,
+ const integer_t lda, integer_t* ipiv, float* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_SSYTRF( &uplo, &n, a, &lda, ipiv, work, &lwork, &info );
     }
- inline void sytrf( char const uplo, integer_t const n, double* a,
- integer_t const lda, integer_t* ipiv, double* work,
- integer_t const lwork, integer_t& info ) {
+ inline void sytrf( const char uplo, const integer_t n, double* a,
+ const integer_t lda, integer_t* ipiv, double* work,
+ const integer_t lwork, integer_t& info ) {
         LAPACK_DSYTRF( &uplo, &n, a, &lda, ipiv, work, &lwork, &info );
     }
- inline void sytrf( char const uplo, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t* ipiv,
- traits::complex_f* work, integer_t const lwork, integer_t& info ) {
+ inline void sytrf( const char uplo, const integer_t n,
+ traits::complex_f* a, const integer_t lda, integer_t* ipiv,
+ traits::complex_f* work, const integer_t lwork, integer_t& info ) {
         LAPACK_CSYTRF( &uplo, &n, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(work), &lwork, &info );
     }
- inline void sytrf( char const uplo, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t* ipiv,
- traits::complex_d* work, integer_t const lwork, integer_t& info ) {
+ inline void sytrf( const char uplo, const integer_t n,
+ traits::complex_d* a, const integer_t lda, integer_t* ipiv,
+ traits::complex_d* work, const integer_t lwork, integer_t& info ) {
         LAPACK_ZSYTRF( &uplo, &n, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(work), &lwork, &info );
     }

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytri.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytri.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytri.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,24 +36,24 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sytri( char const uplo, integer_t const n, float* a,
- integer_t const lda, integer_t* ipiv, float* work,
+ inline void sytri( const char uplo, const integer_t n, float* a,
+ const integer_t lda, const integer_t* ipiv, float* work,
             integer_t& info ) {
         LAPACK_SSYTRI( &uplo, &n, a, &lda, ipiv, work, &info );
     }
- inline void sytri( char const uplo, integer_t const n, double* a,
- integer_t const lda, integer_t* ipiv, double* work,
+ inline void sytri( const char uplo, const integer_t n, double* a,
+ const integer_t lda, const integer_t* ipiv, double* work,
             integer_t& info ) {
         LAPACK_DSYTRI( &uplo, &n, a, &lda, ipiv, work, &info );
     }
- inline void sytri( char const uplo, integer_t const n,
- traits::complex_f* a, integer_t const lda, integer_t* ipiv,
+ inline void sytri( const char uplo, const integer_t n,
+ traits::complex_f* a, const integer_t lda, const integer_t* ipiv,
             traits::complex_f* work, integer_t& info ) {
         LAPACK_CSYTRI( &uplo, &n, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(work), &info );
     }
- inline void sytri( char const uplo, integer_t const n,
- traits::complex_d* a, integer_t const lda, integer_t* ipiv,
+ inline void sytri( const char uplo, const integer_t n,
+ traits::complex_d* a, const integer_t lda, const integer_t* ipiv,
             traits::complex_d* work, integer_t& info ) {
         LAPACK_ZSYTRI( &uplo, &n, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(work), &info );
@@ -73,7 +73,7 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorIPIV, typename WORK >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
+ static void invoke( const char uplo, MatrixA& a, const VectorIPIV& ipiv,
             integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_ASSERT( uplo == 'U' || uplo == 'L' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
@@ -91,7 +91,7 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
+ static void invoke( const char uplo, MatrixA& a, const VectorIPIV& ipiv,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
@@ -100,12 +100,12 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
+ static void invoke( const char uplo, MatrixA& a, const VectorIPIV& ipiv,
             integer_t& info, optimal_workspace work ) {
         invoke( uplo, a, ipiv, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return n;
     }
 };
@@ -119,7 +119,7 @@
 
     // user-defined workspace specialization
     template< typename MatrixA, typename VectorIPIV, typename WORK >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
+ static void invoke( const char uplo, MatrixA& a, const VectorIPIV& ipiv,
             integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_ASSERT( uplo == 'U' || uplo == 'L' );
         BOOST_ASSERT( traits::matrix_num_columns(a) >= 0 );
@@ -137,7 +137,7 @@
 
     // minimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
+ static void invoke( const char uplo, MatrixA& a, const VectorIPIV& ipiv,
             integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 traits::matrix_num_columns(a) ) );
@@ -146,12 +146,12 @@
 
     // optimal workspace specialization
     template< typename MatrixA, typename VectorIPIV >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
+ static void invoke( const char uplo, MatrixA& a, const VectorIPIV& ipiv,
             integer_t& info, optimal_workspace work ) {
         invoke( uplo, a, ipiv, info, minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 };
@@ -159,8 +159,8 @@
 
 // template function to call sytri
 template< typename MatrixA, typename VectorIPIV, typename Workspace >
-inline integer_t sytri( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- Workspace work ) {
+inline integer_t sytri( const char uplo, MatrixA& a,
+ const VectorIPIV& ipiv, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     sytri_impl< value_type >::invoke( uplo, a, ipiv, info, work );
@@ -169,7 +169,8 @@
 
 // template function to call sytri, default workspace type
 template< typename MatrixA, typename VectorIPIV >
-inline integer_t sytri( char const uplo, MatrixA& a, VectorIPIV& ipiv ) {
+inline integer_t sytri( const char uplo, MatrixA& a,
+ const VectorIPIV& ipiv ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     sytri_impl< value_type >::invoke( uplo, a, ipiv, info,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/sytrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,28 +31,29 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void sytrs( char const uplo, integer_t const n,
- integer_t const nrhs, float* a, integer_t const lda,
- integer_t* ipiv, float* b, integer_t const ldb, integer_t& info ) {
+ inline void sytrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const float* a, const integer_t lda,
+ const integer_t* ipiv, float* b, const integer_t ldb,
+ integer_t& info ) {
         LAPACK_SSYTRS( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info );
     }
- inline void sytrs( char const uplo, integer_t const n,
- integer_t const nrhs, double* a, integer_t const lda,
- integer_t* ipiv, double* b, integer_t const ldb,
+ inline void sytrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const double* a, const integer_t lda,
+ const integer_t* ipiv, double* b, const integer_t ldb,
             integer_t& info ) {
         LAPACK_DSYTRS( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info );
     }
- inline void sytrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_f* a, integer_t const lda,
- integer_t* ipiv, traits::complex_f* b, integer_t const ldb,
- integer_t& info ) {
+ inline void sytrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_f* a,
+ const integer_t lda, const integer_t* ipiv, traits::complex_f* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_CSYTRS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(b), &ldb, &info );
     }
- inline void sytrs( char const uplo, integer_t const n,
- integer_t const nrhs, traits::complex_d* a, integer_t const lda,
- integer_t* ipiv, traits::complex_d* b, integer_t const ldb,
- integer_t& info ) {
+ inline void sytrs( const char uplo, const integer_t n,
+ const integer_t nrhs, const traits::complex_d* a,
+ const integer_t lda, const integer_t* ipiv, traits::complex_d* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_ZSYTRS( &uplo, &n, &nrhs, traits::complex_ptr(a), &lda, ipiv,
                 traits::complex_ptr(b), &ldb, &info );
     }
@@ -67,8 +68,8 @@
 
     // templated specialization
     template< typename MatrixA, typename VectorIPIV, typename MatrixB >
- static void invoke( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- MatrixB& b, integer_t& info ) {
+ static void invoke( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -92,8 +93,8 @@
 
 // template function to call sytrs
 template< typename MatrixA, typename VectorIPIV, typename MatrixB >
-inline integer_t sytrs( char const uplo, MatrixA& a, VectorIPIV& ipiv,
- MatrixB& b ) {
+inline integer_t sytrs( const char uplo, const MatrixA& a,
+ const VectorIPIV& ipiv, MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     sytrs_impl< value_type >::invoke( uplo, a, ipiv, b, info );

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbcon.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbcon.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbcon.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,31 +36,31 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void tbcon( char const norm, char const uplo, char const diag,
- integer_t const n, integer_t const kd, float* ab,
- integer_t const ldab, float& rcond, float* work, integer_t* iwork,
+ inline void tbcon( const char norm, const char uplo, const char diag,
+ const integer_t n, const integer_t kd, const float* ab,
+ const integer_t ldab, float& rcond, float* work, integer_t* iwork,
             integer_t& info ) {
         LAPACK_STBCON( &norm, &uplo, &diag, &n, &kd, ab, &ldab, &rcond, work,
                 iwork, &info );
     }
- inline void tbcon( char const norm, char const uplo, char const diag,
- integer_t const n, integer_t const kd, double* ab,
- integer_t const ldab, double& rcond, double* work,
+ inline void tbcon( const char norm, const char uplo, const char diag,
+ const integer_t n, const integer_t kd, const double* ab,
+ const integer_t ldab, double& rcond, double* work,
             integer_t* iwork, integer_t& info ) {
         LAPACK_DTBCON( &norm, &uplo, &diag, &n, &kd, ab, &ldab, &rcond, work,
                 iwork, &info );
     }
- inline void tbcon( char const norm, char const uplo, char const diag,
- integer_t const n, integer_t const kd, traits::complex_f* ab,
- integer_t const ldab, float& rcond, traits::complex_f* work,
- float* rwork, integer_t& info ) {
+ inline void tbcon( const char norm, const char uplo, const char diag,
+ const integer_t n, const integer_t kd,
+ const traits::complex_f* ab, const integer_t ldab, float& rcond,
+ traits::complex_f* work, float* rwork, integer_t& info ) {
         LAPACK_CTBCON( &norm, &uplo, &diag, &n, &kd, traits::complex_ptr(ab),
                 &ldab, &rcond, traits::complex_ptr(work), rwork, &info );
     }
- inline void tbcon( char const norm, char const uplo, char const diag,
- integer_t const n, integer_t const kd, traits::complex_d* ab,
- integer_t const ldab, double& rcond, traits::complex_d* work,
- double* rwork, integer_t& info ) {
+ inline void tbcon( const char norm, const char uplo, const char diag,
+ const integer_t n, const integer_t kd,
+ const traits::complex_d* ab, const integer_t ldab, double& rcond,
+ traits::complex_d* work, double* rwork, integer_t& info ) {
         LAPACK_ZTBCON( &norm, &uplo, &diag, &n, &kd, traits::complex_ptr(ab),
                 &ldab, &rcond, traits::complex_ptr(work), rwork, &info );
     }
@@ -79,8 +79,8 @@
 
     // user-defined workspace specialization
     template< typename MatrixAB, typename WORK, typename IWORK >
- static void invoke( char const norm, char const uplo, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab,
+ static void invoke( const char norm, const char uplo, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
             real_type& rcond, integer_t& info, detail::workspace2< WORK,
             IWORK > work ) {
         BOOST_ASSERT( norm == '1' || norm == 'O' || norm == 'I' );
@@ -101,8 +101,8 @@
 
     // minimal workspace specialization
     template< typename MatrixAB >
- static void invoke( char const norm, char const uplo, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab,
+ static void invoke( const char norm, const char uplo, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
             real_type& rcond, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork( n ) );
@@ -112,18 +112,18 @@
 
     // optimal workspace specialization
     template< typename MatrixAB >
- static void invoke( char const norm, char const uplo, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab,
+ static void invoke( const char norm, const char uplo, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
             real_type& rcond, integer_t& info, optimal_workspace work ) {
         invoke( norm, uplo, diag, n, kd, ab, rcond, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -137,8 +137,8 @@
 
     // user-defined workspace specialization
     template< typename MatrixAB, typename WORK, typename RWORK >
- static void invoke( char const norm, char const uplo, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab,
+ static void invoke( const char norm, const char uplo, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
             real_type& rcond, integer_t& info, detail::workspace2< WORK,
             RWORK > work ) {
         BOOST_ASSERT( norm == '1' || norm == 'O' || norm == 'I' );
@@ -159,8 +159,8 @@
 
     // minimal workspace specialization
     template< typename MatrixAB >
- static void invoke( char const norm, char const uplo, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab,
+ static void invoke( const char norm, const char uplo, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
             real_type& rcond, integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
@@ -170,18 +170,18 @@
 
     // optimal workspace specialization
     template< typename MatrixAB >
- static void invoke( char const norm, char const uplo, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab,
+ static void invoke( const char norm, const char uplo, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
             real_type& rcond, integer_t& info, optimal_workspace work ) {
         invoke( norm, uplo, diag, n, kd, ab, rcond, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -189,9 +189,10 @@
 
 // template function to call tbcon
 template< typename MatrixAB, typename Workspace >
-inline integer_t tbcon( char const norm, char const uplo,
- char const diag, integer_t const n, integer_t const kd, MatrixAB& ab,
- typename traits::type_traits< typename traits::matrix_traits<
+inline integer_t tbcon( const char norm, const char uplo,
+ const char diag, const integer_t n, const integer_t kd,
+ const MatrixAB& ab, typename traits::type_traits<
+ typename traits::matrix_traits<
         MatrixAB >::value_type >::real_type& rcond, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
@@ -202,9 +203,10 @@
 
 // template function to call tbcon, default workspace type
 template< typename MatrixAB >
-inline integer_t tbcon( char const norm, char const uplo,
- char const diag, integer_t const n, integer_t const kd, MatrixAB& ab,
- typename traits::type_traits< typename traits::matrix_traits<
+inline integer_t tbcon( const char norm, const char uplo,
+ const char diag, const integer_t n, const integer_t kd,
+ const MatrixAB& ab, typename traits::type_traits<
+ typename traits::matrix_traits<
         MatrixAB >::value_type >::real_type& rcond ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbrfs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbrfs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbrfs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,39 +36,43 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void tbrfs( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, integer_t const nrhs,
- float* ab, integer_t const ldab, float* b, integer_t const ldb,
- float* x, integer_t const ldx, float* ferr, float* berr,
- float* work, integer_t* iwork, integer_t& info ) {
+ inline void tbrfs( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const integer_t nrhs,
+ const float* ab, const integer_t ldab, const float* b,
+ const integer_t ldb, const float* x, const integer_t ldx,
+ float* ferr, float* berr, float* work, integer_t* iwork,
+ integer_t& info ) {
         LAPACK_STBRFS( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b,
                 &ldb, x, &ldx, ferr, berr, work, iwork, &info );
     }
- inline void tbrfs( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, integer_t const nrhs,
- double* ab, integer_t const ldab, double* b, integer_t const ldb,
- double* x, integer_t const ldx, double* ferr, double* berr,
- double* work, integer_t* iwork, integer_t& info ) {
+ inline void tbrfs( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const integer_t nrhs,
+ const double* ab, const integer_t ldab, const double* b,
+ const integer_t ldb, const double* x, const integer_t ldx,
+ double* ferr, double* berr, double* work, integer_t* iwork,
+ integer_t& info ) {
         LAPACK_DTBRFS( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b,
                 &ldb, x, &ldx, ferr, berr, work, iwork, &info );
     }
- inline void tbrfs( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, integer_t const nrhs,
- traits::complex_f* ab, integer_t const ldab, traits::complex_f* b,
- integer_t const ldb, traits::complex_f* x, integer_t const ldx,
- float* ferr, float* berr, traits::complex_f* work, float* rwork,
+ inline void tbrfs( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const integer_t nrhs,
+ const traits::complex_f* ab, const integer_t ldab,
+ const traits::complex_f* b, const integer_t ldb,
+ const traits::complex_f* x, const integer_t ldx, float* ferr,
+ float* berr, traits::complex_f* work, float* rwork,
             integer_t& info ) {
         LAPACK_CTBRFS( &uplo, &trans, &diag, &n, &kd, &nrhs,
                 traits::complex_ptr(ab), &ldab, traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(x), &ldx, ferr, berr,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void tbrfs( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, integer_t const nrhs,
- traits::complex_d* ab, integer_t const ldab, traits::complex_d* b,
- integer_t const ldb, traits::complex_d* x, integer_t const ldx,
- double* ferr, double* berr, traits::complex_d* work,
- double* rwork, integer_t& info ) {
+ inline void tbrfs( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const integer_t nrhs,
+ const traits::complex_d* ab, const integer_t ldab,
+ const traits::complex_d* b, const integer_t ldb,
+ const traits::complex_d* x, const integer_t ldx, double* ferr,
+ double* berr, traits::complex_d* work, double* rwork,
+ integer_t& info ) {
         LAPACK_ZTBRFS( &uplo, &trans, &diag, &n, &kd, &nrhs,
                 traits::complex_ptr(ab), &ldab, traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(x), &ldx, ferr, berr,
@@ -91,10 +95,11 @@
     template< typename MatrixAB, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR, typename WORK,
             typename IWORK >
- static void invoke( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab, MatrixB& b,
- MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- detail::workspace2< WORK, IWORK > work ) {
+ static void invoke( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
+ const MatrixB& b, const MatrixX& x, VectorFERR& ferr,
+ VectorBERR& berr, integer_t& info, detail::workspace2< WORK,
+ IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -135,10 +140,10 @@
     // minimal workspace specialization
     template< typename MatrixAB, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR >
- static void invoke( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab, MatrixB& b,
- MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
+ const MatrixB& b, const MatrixX& x, VectorFERR& ferr,
+ VectorBERR& berr, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         traits::detail::array< integer_t > tmp_iwork( min_size_iwork( n ) );
         invoke( uplo, trans, diag, n, kd, ab, b, x, ferr, berr, info,
@@ -148,19 +153,19 @@
     // optimal workspace specialization
     template< typename MatrixAB, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR >
- static void invoke( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab, MatrixB& b,
- MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
+ const MatrixB& b, const MatrixX& x, VectorFERR& ferr,
+ VectorBERR& berr, integer_t& info, optimal_workspace work ) {
         invoke( uplo, trans, diag, n, kd, ab, b, x, ferr, berr, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 3*n;
     }
 
- static integer_t min_size_iwork( integer_t const n ) {
+ static integer_t min_size_iwork( const integer_t n ) {
         return n;
     }
 };
@@ -176,10 +181,11 @@
     template< typename MatrixAB, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR, typename WORK,
             typename RWORK >
- static void invoke( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab, MatrixB& b,
- MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- detail::workspace2< WORK, RWORK > work ) {
+ static void invoke( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
+ const MatrixB& b, const MatrixX& x, VectorFERR& ferr,
+ VectorBERR& berr, integer_t& info, detail::workspace2< WORK,
+ RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::vector_traits<
                 VectorFERR >::value_type, typename traits::vector_traits<
                 VectorBERR >::value_type >::value) );
@@ -217,10 +223,10 @@
     // minimal workspace specialization
     template< typename MatrixAB, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR >
- static void invoke( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab, MatrixB& b,
- MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- minimal_workspace work ) {
+ static void invoke( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
+ const MatrixB& b, const MatrixX& x, VectorFERR& ferr,
+ VectorBERR& berr, integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
         invoke( uplo, trans, diag, n, kd, ab, b, x, ferr, berr, info,
@@ -230,19 +236,19 @@
     // optimal workspace specialization
     template< typename MatrixAB, typename MatrixB, typename MatrixX,
             typename VectorFERR, typename VectorBERR >
- static void invoke( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab, MatrixB& b,
- MatrixX& x, VectorFERR& ferr, VectorBERR& berr, integer_t& info,
- optimal_workspace work ) {
+ static void invoke( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
+ const MatrixB& b, const MatrixX& x, VectorFERR& ferr,
+ VectorBERR& berr, integer_t& info, optimal_workspace work ) {
         invoke( uplo, trans, diag, n, kd, ab, b, x, ferr, berr, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return n;
     }
 };
@@ -251,10 +257,10 @@
 // template function to call tbrfs
 template< typename MatrixAB, typename MatrixB, typename MatrixX,
         typename VectorFERR, typename VectorBERR, typename Workspace >
-inline integer_t tbrfs( char const uplo, char const trans,
- char const diag, integer_t const n, integer_t const kd, MatrixAB& ab,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr,
- Workspace work ) {
+inline integer_t tbrfs( const char uplo, const char trans,
+ const char diag, const integer_t n, const integer_t kd,
+ const MatrixAB& ab, const MatrixB& b, const MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     tbrfs_impl< value_type >::invoke( uplo, trans, diag, n, kd, ab, b, x,
@@ -265,9 +271,10 @@
 // template function to call tbrfs, default workspace type
 template< typename MatrixAB, typename MatrixB, typename MatrixX,
         typename VectorFERR, typename VectorBERR >
-inline integer_t tbrfs( char const uplo, char const trans,
- char const diag, integer_t const n, integer_t const kd, MatrixAB& ab,
- MatrixB& b, MatrixX& x, VectorFERR& ferr, VectorBERR& berr ) {
+inline integer_t tbrfs( const char uplo, const char trans,
+ const char diag, const integer_t n, const integer_t kd,
+ const MatrixAB& ab, const MatrixB& b, const MatrixX& x,
+ VectorFERR& ferr, VectorBERR& berr ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     tbrfs_impl< value_type >::invoke( uplo, trans, diag, n, kd, ab, b, x,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbtrs.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbtrs.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tbtrs.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -31,32 +31,32 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void tbtrs( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, integer_t const nrhs,
- float* ab, integer_t const ldab, float* b, integer_t const ldb,
- integer_t& info ) {
+ inline void tbtrs( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const integer_t nrhs,
+ const float* ab, const integer_t ldab, float* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_STBTRS( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b,
                 &ldb, &info );
     }
- inline void tbtrs( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, integer_t const nrhs,
- double* ab, integer_t const ldab, double* b, integer_t const ldb,
- integer_t& info ) {
+ inline void tbtrs( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const integer_t nrhs,
+ const double* ab, const integer_t ldab, double* b,
+ const integer_t ldb, integer_t& info ) {
         LAPACK_DTBTRS( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b,
                 &ldb, &info );
     }
- inline void tbtrs( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, integer_t const nrhs,
- traits::complex_f* ab, integer_t const ldab, traits::complex_f* b,
- integer_t const ldb, integer_t& info ) {
+ inline void tbtrs( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const integer_t nrhs,
+ const traits::complex_f* ab, const integer_t ldab,
+ traits::complex_f* b, const integer_t ldb, integer_t& info ) {
         LAPACK_CTBTRS( &uplo, &trans, &diag, &n, &kd, &nrhs,
                 traits::complex_ptr(ab), &ldab, traits::complex_ptr(b), &ldb,
                 &info );
     }
- inline void tbtrs( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, integer_t const nrhs,
- traits::complex_d* ab, integer_t const ldab, traits::complex_d* b,
- integer_t const ldb, integer_t& info ) {
+ inline void tbtrs( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const integer_t nrhs,
+ const traits::complex_d* ab, const integer_t ldab,
+ traits::complex_d* b, const integer_t ldb, integer_t& info ) {
         LAPACK_ZTBTRS( &uplo, &trans, &diag, &n, &kd, &nrhs,
                 traits::complex_ptr(ab), &ldab, traits::complex_ptr(b), &ldb,
                 &info );
@@ -72,9 +72,9 @@
 
     // templated specialization
     template< typename MatrixAB, typename MatrixB >
- static void invoke( char const uplo, char const trans, char const diag,
- integer_t const n, integer_t const kd, MatrixAB& ab, MatrixB& b,
- integer_t& info ) {
+ static void invoke( const char uplo, const char trans, const char diag,
+ const integer_t n, const integer_t kd, const MatrixAB& ab,
+ MatrixB& b, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixAB >::value_type, typename traits::matrix_traits<
                 MatrixB >::value_type >::value) );
@@ -96,9 +96,9 @@
 
 // template function to call tbtrs
 template< typename MatrixAB, typename MatrixB >
-inline integer_t tbtrs( char const uplo, char const trans,
- char const diag, integer_t const n, integer_t const kd, MatrixAB& ab,
- MatrixB& b ) {
+inline integer_t tbtrs( const char uplo, const char trans,
+ const char diag, const integer_t n, const integer_t kd,
+ const MatrixAB& ab, MatrixB& b ) {
     typedef typename traits::matrix_traits< MatrixAB >::value_type value_type;
     integer_t info(0);
     tbtrs_impl< value_type >::invoke( uplo, trans, diag, n, kd, ab, b,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgevc.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgevc.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgevc.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,39 +36,44 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void tgevc( char const side, char const howmny, logical_t* select,
- integer_t const n, float* s, integer_t const lds, float* p,
- integer_t const ldp, float* vl, integer_t const ldvl, float* vr,
- integer_t const ldvr, integer_t const mm, integer_t& m,
- float* work, integer_t& info ) {
+ inline void tgevc( const char side, const char howmny,
+ const logical_t* select, const integer_t n, const float* s,
+ const integer_t lds, const float* p, const integer_t ldp,
+ float* vl, const integer_t ldvl, float* vr, const integer_t ldvr,
+ const integer_t mm, integer_t& m, float* work, integer_t& info ) {
         LAPACK_STGEVC( &side, &howmny, select, &n, s, &lds, p, &ldp, vl,
                 &ldvl, vr, &ldvr, &mm, &m, work, &info );
     }
- inline void tgevc( char const side, char const howmny, logical_t* select,
- integer_t const n, double* s, integer_t const lds, double* p,
- integer_t const ldp, double* vl, integer_t const ldvl, double* vr,
- integer_t const ldvr, integer_t const mm, integer_t& m,
+ inline void tgevc( const char side, const char howmny,
+ const logical_t* select, const integer_t n, const double* s,
+ const integer_t lds, const double* p, const integer_t ldp,
+ double* vl, const integer_t ldvl, double* vr,
+ const integer_t ldvr, const integer_t mm, integer_t& m,
             double* work, integer_t& info ) {
         LAPACK_DTGEVC( &side, &howmny, select, &n, s, &lds, p, &ldp, vl,
                 &ldvl, vr, &ldvr, &mm, &m, work, &info );
     }
- inline void tgevc( char const side, char const howmny, logical_t* select,
- integer_t const n, traits::complex_f* s, integer_t const lds,
- traits::complex_f* p, integer_t const ldp, traits::complex_f* vl,
- integer_t const ldvl, traits::complex_f* vr, integer_t const ldvr,
- integer_t const mm, integer_t& m, traits::complex_f* work,
- float* rwork, integer_t& info ) {
+ inline void tgevc( const char side, const char howmny,
+ const logical_t* select, const integer_t n,
+ const traits::complex_f* s, const integer_t lds,
+ const traits::complex_f* p, const integer_t ldp,
+ traits::complex_f* vl, const integer_t ldvl,
+ traits::complex_f* vr, const integer_t ldvr, const integer_t mm,
+ integer_t& m, traits::complex_f* work, float* rwork,
+ integer_t& info ) {
         LAPACK_CTGEVC( &side, &howmny, select, &n, traits::complex_ptr(s),
                 &lds, traits::complex_ptr(p), &ldp, traits::complex_ptr(vl),
                 &ldvl, traits::complex_ptr(vr), &ldvr, &mm, &m,
                 traits::complex_ptr(work), rwork, &info );
     }
- inline void tgevc( char const side, char const howmny, logical_t* select,
- integer_t const n, traits::complex_d* s, integer_t const lds,
- traits::complex_d* p, integer_t const ldp, traits::complex_d* vl,
- integer_t const ldvl, traits::complex_d* vr, integer_t const ldvr,
- integer_t const mm, integer_t& m, traits::complex_d* work,
- double* rwork, integer_t& info ) {
+ inline void tgevc( const char side, const char howmny,
+ const logical_t* select, const integer_t n,
+ const traits::complex_d* s, const integer_t lds,
+ const traits::complex_d* p, const integer_t ldp,
+ traits::complex_d* vl, const integer_t ldvl,
+ traits::complex_d* vr, const integer_t ldvr, const integer_t mm,
+ integer_t& m, traits::complex_d* work, double* rwork,
+ integer_t& info ) {
         LAPACK_ZTGEVC( &side, &howmny, select, &n, traits::complex_ptr(s),
                 &lds, traits::complex_ptr(p), &ldp, traits::complex_ptr(vl),
                 &ldvl, traits::complex_ptr(vr), &ldvr, &mm, &m,
@@ -90,10 +95,10 @@
     // user-defined workspace specialization
     template< typename VectorSELECT, typename MatrixS, typename MatrixP,
             typename MatrixVL, typename MatrixVR, typename WORK >
- static void invoke( char const side, char const howmny,
- VectorSELECT& select, integer_t const n, MatrixS& s, MatrixP& p,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- integer_t& info, detail::workspace1< WORK > work ) {
+ static void invoke( const char side, const char howmny,
+ const VectorSELECT& select, const integer_t n, const MatrixS& s,
+ const MatrixP& p, MatrixVL& vl, MatrixVR& vr, const integer_t mm,
+ integer_t& m, integer_t& info, detail::workspace1< WORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixS >::value_type, typename traits::matrix_traits<
                 MatrixP >::value_type >::value) );
@@ -122,10 +127,10 @@
     // minimal workspace specialization
     template< typename VectorSELECT, typename MatrixS, typename MatrixP,
             typename MatrixVL, typename MatrixVR >
- static void invoke( char const side, char const howmny,
- VectorSELECT& select, integer_t const n, MatrixS& s, MatrixP& p,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- integer_t& info, minimal_workspace work ) {
+ static void invoke( const char side, const char howmny,
+ const VectorSELECT& select, const integer_t n, const MatrixS& s,
+ const MatrixP& p, MatrixVL& vl, MatrixVR& vr, const integer_t mm,
+ integer_t& m, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work( n ) );
         invoke( side, howmny, select, n, s, p, vl, vr, mm, m, info,
                 workspace( tmp_work ) );
@@ -134,15 +139,15 @@
     // optimal workspace specialization
     template< typename VectorSELECT, typename MatrixS, typename MatrixP,
             typename MatrixVL, typename MatrixVR >
- static void invoke( char const side, char const howmny,
- VectorSELECT& select, integer_t const n, MatrixS& s, MatrixP& p,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- integer_t& info, optimal_workspace work ) {
+ static void invoke( const char side, const char howmny,
+ const VectorSELECT& select, const integer_t n, const MatrixS& s,
+ const MatrixP& p, MatrixVL& vl, MatrixVR& vr, const integer_t mm,
+ integer_t& m, integer_t& info, optimal_workspace work ) {
         invoke( side, howmny, select, n, s, p, vl, vr, mm, m, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 6*n;
     }
 };
@@ -158,10 +163,11 @@
     template< typename VectorSELECT, typename MatrixS, typename MatrixP,
             typename MatrixVL, typename MatrixVR, typename WORK,
             typename RWORK >
- static void invoke( char const side, char const howmny,
- VectorSELECT& select, integer_t const n, MatrixS& s, MatrixP& p,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- integer_t& info, detail::workspace2< WORK, RWORK > work ) {
+ static void invoke( const char side, const char howmny,
+ const VectorSELECT& select, const integer_t n, const MatrixS& s,
+ const MatrixP& p, MatrixVL& vl, MatrixVR& vr, const integer_t mm,
+ integer_t& m, integer_t& info, detail::workspace2< WORK,
+ RWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixS >::value_type, typename traits::matrix_traits<
                 MatrixP >::value_type >::value) );
@@ -193,10 +199,10 @@
     // minimal workspace specialization
     template< typename VectorSELECT, typename MatrixS, typename MatrixP,
             typename MatrixVL, typename MatrixVR >
- static void invoke( char const side, char const howmny,
- VectorSELECT& select, integer_t const n, MatrixS& s, MatrixP& p,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- integer_t& info, minimal_workspace work ) {
+ static void invoke( const char side, const char howmny,
+ const VectorSELECT& select, const integer_t n, const MatrixS& s,
+ const MatrixP& p, MatrixVL& vl, MatrixVR& vr, const integer_t mm,
+ integer_t& m, integer_t& info, minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work( n ) );
         traits::detail::array< real_type > tmp_rwork( min_size_rwork( n ) );
         invoke( side, howmny, select, n, s, p, vl, vr, mm, m, info,
@@ -206,19 +212,19 @@
     // optimal workspace specialization
     template< typename VectorSELECT, typename MatrixS, typename MatrixP,
             typename MatrixVL, typename MatrixVR >
- static void invoke( char const side, char const howmny,
- VectorSELECT& select, integer_t const n, MatrixS& s, MatrixP& p,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- integer_t& info, optimal_workspace work ) {
+ static void invoke( const char side, const char howmny,
+ const VectorSELECT& select, const integer_t n, const MatrixS& s,
+ const MatrixP& p, MatrixVL& vl, MatrixVR& vr, const integer_t mm,
+ integer_t& m, integer_t& info, optimal_workspace work ) {
         invoke( side, howmny, select, n, s, p, vl, vr, mm, m, info,
                 minimal_workspace() );
     }
 
- static integer_t min_size_work( integer_t const n ) {
+ static integer_t min_size_work( const integer_t n ) {
         return 2*n;
     }
 
- static integer_t min_size_rwork( integer_t const n ) {
+ static integer_t min_size_rwork( const integer_t n ) {
         return 2*n;
     }
 };
@@ -227,10 +233,10 @@
 // template function to call tgevc
 template< typename VectorSELECT, typename MatrixS, typename MatrixP,
         typename MatrixVL, typename MatrixVR, typename Workspace >
-inline integer_t tgevc( char const side, char const howmny,
- VectorSELECT& select, integer_t const n, MatrixS& s, MatrixP& p,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m,
- Workspace work ) {
+inline integer_t tgevc( const char side, const char howmny,
+ const VectorSELECT& select, const integer_t n, const MatrixS& s,
+ const MatrixP& p, MatrixVL& vl, MatrixVR& vr, const integer_t mm,
+ integer_t& m, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixS >::value_type value_type;
     integer_t info(0);
     tgevc_impl< value_type >::invoke( side, howmny, select, n, s, p, vl,
@@ -241,9 +247,10 @@
 // template function to call tgevc, default workspace type
 template< typename VectorSELECT, typename MatrixS, typename MatrixP,
         typename MatrixVL, typename MatrixVR >
-inline integer_t tgevc( char const side, char const howmny,
- VectorSELECT& select, integer_t const n, MatrixS& s, MatrixP& p,
- MatrixVL& vl, MatrixVR& vr, integer_t const mm, integer_t& m ) {
+inline integer_t tgevc( const char side, const char howmny,
+ const VectorSELECT& select, const integer_t n, const MatrixS& s,
+ const MatrixP& p, MatrixVL& vl, MatrixVR& vr, const integer_t mm,
+ integer_t& m ) {
     typedef typename traits::matrix_traits< MatrixS >::value_type value_type;
     integer_t info(0);
     tgevc_impl< value_type >::invoke( side, howmny, select, n, s, p, vl,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgexc.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgexc.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgexc.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,36 +37,36 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void tgexc( logical_t const wantq, logical_t const wantz,
- integer_t const n, float* a, integer_t const lda, float* b,
- integer_t const ldb, float* q, integer_t const ldq, float* z,
- integer_t const ldz, integer_t& ifst, integer_t& ilst,
- float* work, integer_t const lwork, integer_t& info ) {
+ inline void tgexc( const logical_t wantq, const logical_t wantz,
+ const integer_t n, float* a, const integer_t lda, float* b,
+ const integer_t ldb, float* q, const integer_t ldq, float* z,
+ const integer_t ldz, integer_t& ifst, integer_t& ilst,
+ float* work, const integer_t lwork, integer_t& info ) {
         LAPACK_STGEXC( &wantq, &wantz, &n, a, &lda, b, &ldb, q, &ldq, z, &ldz,
                 &ifst, &ilst, work, &lwork, &info );
     }
- inline void tgexc( logical_t const wantq, logical_t const wantz,
- integer_t const n, double* a, integer_t const lda, double* b,
- integer_t const ldb, double* q, integer_t const ldq, double* z,
- integer_t const ldz, integer_t& ifst, integer_t& ilst,
- double* work, integer_t const lwork, integer_t& info ) {
+ inline void tgexc( const logical_t wantq, const logical_t wantz,
+ const integer_t n, double* a, const integer_t lda, double* b,
+ const integer_t ldb, double* q, const integer_t ldq, double* z,
+ const integer_t ldz, integer_t& ifst, integer_t& ilst,
+ double* work, const integer_t lwork, integer_t& info ) {
         LAPACK_DTGEXC( &wantq, &wantz, &n, a, &lda, b, &ldb, q, &ldq, z, &ldz,
                 &ifst, &ilst, work, &lwork, &info );
     }
- inline void tgexc( logical_t const wantq, logical_t const wantz,
- integer_t const n, traits::complex_f* a, integer_t const lda,
- traits::complex_f* b, integer_t const ldb, traits::complex_f* q,
- integer_t const ldq, traits::complex_f* z, integer_t const ldz,
- integer_t const ifst, integer_t& ilst, integer_t& info ) {
+ inline void tgexc( const logical_t wantq, const logical_t wantz,
+ const integer_t n, traits::complex_f* a, const integer_t lda,
+ traits::complex_f* b, const integer_t ldb, traits::complex_f* q,
+ const integer_t ldq, traits::complex_f* z, const integer_t ldz,
+ const integer_t ifst, integer_t& ilst, integer_t& info ) {
         LAPACK_CTGEXC( &wantq, &wantz, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(b), &ldb, traits::complex_ptr(q), &ldq,
                 traits::complex_ptr(z), &ldz, &ifst, &ilst, &info );
     }
- inline void tgexc( logical_t const wantq, logical_t const wantz,
- integer_t const n, traits::complex_d* a, integer_t const lda,
- traits::complex_d* b, integer_t const ldb, traits::complex_d* q,
- integer_t const ldq, traits::complex_d* z, integer_t const ldz,
- integer_t const ifst, integer_t& ilst, integer_t& info ) {
+ inline void tgexc( const logical_t wantq, const logical_t wantz,
+ const integer_t n, traits::complex_d* a, const integer_t lda,
+ traits::complex_d* b, const integer_t ldb, traits::complex_d* q,
+ const integer_t ldq, traits::complex_d* z, const integer_t ldz,
+ const integer_t ifst, integer_t& ilst, integer_t& info ) {
         LAPACK_ZTGEXC( &wantq, &wantz, &n, traits::complex_ptr(a), &lda,
                 traits::complex_ptr(b), &ldb, traits::complex_ptr(q), &ldq,
                 traits::complex_ptr(z), &ldz, &ifst, &ilst, &info );
@@ -87,8 +87,8 @@
     // templated specialization
     template< typename MatrixA, typename MatrixB, typename MatrixQ,
             typename MatrixZ >
- static void invoke( logical_t const wantq, logical_t const wantz,
- integer_t const n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
+ static void invoke( const logical_t wantq, const logical_t wantz,
+ const integer_t n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
             integer_t& ifst, integer_t& ilst, integer_t& info ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
@@ -124,9 +124,9 @@
     // user-defined workspace specialization
     template< typename MatrixA, typename MatrixB, typename MatrixQ,
             typename MatrixZ, $WORKSPACE_TYPENAMES >
- static void invoke( logical_t const wantq, logical_t const wantz,
- integer_t const n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
- integer_t const ifst, integer_t& ilst, integer_t& info,
+ static void invoke( const logical_t wantq, const logical_t wantz,
+ const integer_t n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
+ const integer_t ifst, integer_t& ilst, integer_t& info,
             detail::workspace$WORKSPACE_SIZE< $WORKSPACE_TYPES > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
@@ -150,9 +150,9 @@
     // minimal workspace specialization
     template< typename MatrixA, typename MatrixB, typename MatrixQ,
             typename MatrixZ >
- static void invoke( logical_t const wantq, logical_t const wantz,
- integer_t const n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
- integer_t const ifst, integer_t& ilst, integer_t& info,
+ static void invoke( const logical_t wantq, const logical_t wantz,
+ const integer_t n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
+ const integer_t ifst, integer_t& ilst, integer_t& info,
             minimal_workspace work ) {
 $SETUP_MIN_WORKARRAYS_POST
         invoke( wantq, wantz, n, a, b, q, z, ifst, ilst, info,
@@ -162,9 +162,9 @@
     // optimal workspace specialization
     template< typename MatrixA, typename MatrixB, typename MatrixQ,
             typename MatrixZ >
- static void invoke( logical_t const wantq, logical_t const wantz,
- integer_t const n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
- integer_t const ifst, integer_t& ilst, integer_t& info,
+ static void invoke( const logical_t wantq, const logical_t wantz,
+ const integer_t n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
+ const integer_t ifst, integer_t& ilst, integer_t& info,
             optimal_workspace work ) {
 $OPT_WORKSPACE_FUNC
     }
@@ -176,8 +176,8 @@
 // template function to call tgexc
 template< typename MatrixA, typename MatrixB, typename MatrixQ,
         typename MatrixZ >
-inline integer_t tgexc( logical_t const wantq, logical_t const wantz,
- integer_t const n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
+inline integer_t tgexc( const logical_t wantq, const logical_t wantz,
+ const integer_t n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
         integer_t& ifst, integer_t& ilst ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
@@ -188,9 +188,9 @@
 // template function to call tgexc
 template< typename MatrixA, typename MatrixB, typename MatrixQ,
         typename MatrixZ, typename Workspace >
-inline integer_t tgexc( logical_t const wantq, logical_t const wantz,
- integer_t const n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
- integer_t const ifst, integer_t& ilst, Workspace work ) {
+inline integer_t tgexc( const logical_t wantq, const logical_t wantz,
+ const integer_t n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
+ const integer_t ifst, integer_t& ilst, Workspace work ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     tgexc_impl< value_type >::invoke( wantq, wantz, n, a, b, q, z, ifst,
@@ -201,9 +201,9 @@
 // template function to call tgexc, default workspace type
 template< typename MatrixA, typename MatrixB, typename MatrixQ,
         typename MatrixZ >
-inline integer_t tgexc( logical_t const wantq, logical_t const wantz,
- integer_t const n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
- integer_t const ifst, integer_t& ilst ) {
+inline integer_t tgexc( const logical_t wantq, const logical_t wantz,
+ const integer_t n, MatrixA& a, MatrixB& b, MatrixQ& q, MatrixZ& z,
+ const integer_t ifst, integer_t& ilst ) {
     typedef typename traits::matrix_traits< MatrixA >::value_type value_type;
     integer_t info(0);
     tgexc_impl< value_type >::invoke( wantq, wantz, n, a, b, q, z, ifst,

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgsen.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgsen.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgsen.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -37,39 +37,39 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void tgsen( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, logical_t* select, integer_t const n,
- float* a, integer_t const lda, float* b, integer_t const ldb,
+ inline void tgsen( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const logical_t* select, const integer_t n,
+ float* a, const integer_t lda, float* b, const integer_t ldb,
             float* alphar, float* alphai, float* beta, float* q,
- integer_t const ldq, float* z, integer_t const ldz, integer_t& m,
+ const integer_t ldq, float* z, const integer_t ldz, integer_t& m,
             float& pl, float& pr, float* dif, float* work,
- integer_t const lwork, integer_t* iwork, integer_t const liwork,
+ const integer_t lwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_STGSEN( &ijob, &wantq, &wantz, select, &n, a, &lda, b, &ldb,
                 alphar, alphai, beta, q, &ldq, z, &ldz, &m, &pl, &pr, dif,
                 work, &lwork, iwork, &liwork, &info );
     }
- inline void tgsen( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, logical_t* select, integer_t const n,
- double* a, integer_t const lda, double* b, integer_t const ldb,
+ inline void tgsen( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const logical_t* select, const integer_t n,
+ double* a, const integer_t lda, double* b, const integer_t ldb,
             double* alphar, double* alphai, double* beta, double* q,
- integer_t const ldq, double* z, integer_t const ldz, integer_t& m,
+ const integer_t ldq, double* z, const integer_t ldz, integer_t& m,
             double& pl, double& pr, double* dif, double* work,
- integer_t const lwork, integer_t* iwork, integer_t const liwork,
+ const integer_t lwork, integer_t* iwork, const integer_t liwork,
             integer_t& info ) {
         LAPACK_DTGSEN( &ijob, &wantq, &wantz, select, &n, a, &lda, b, &ldb,
                 alphar, alphai, beta, q, &ldq, z, &ldz, &m, &pl, &pr, dif,
                 work, &lwork, iwork, &liwork, &info );
     }
- inline void tgsen( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, logical_t* select, integer_t const n,
- traits::complex_f* a, integer_t const lda, traits::complex_f* b,
- integer_t const ldb, traits::complex_f* alpha,
+ inline void tgsen( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const logical_t* select, const integer_t n,
+ traits::complex_f* a, const integer_t lda, traits::complex_f* b,
+ const integer_t ldb, traits::complex_f* alpha,
             traits::complex_f* beta, traits::complex_f* q,
- integer_t const ldq, traits::complex_f* z, integer_t const ldz,
+ const integer_t ldq, traits::complex_f* z, const integer_t ldz,
             integer_t& m, float& pl, float& pr, float* dif,
- traits::complex_f* work, integer_t const lwork, integer_t* iwork,
- integer_t const liwork, integer_t& info ) {
+ traits::complex_f* work, const integer_t lwork, integer_t* iwork,
+ const integer_t liwork, integer_t& info ) {
         LAPACK_CTGSEN( &ijob, &wantq, &wantz, select, &n,
                 traits::complex_ptr(a), &lda, traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(alpha), traits::complex_ptr(beta),
@@ -77,15 +77,15 @@
                 &m, &pl, &pr, dif, traits::complex_ptr(work), &lwork, iwork,
                 &liwork, &info );
     }
- inline void tgsen( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, logical_t* select, integer_t const n,
- traits::complex_d* a, integer_t const lda, traits::complex_d* b,
- integer_t const ldb, traits::complex_d* alpha,
+ inline void tgsen( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const logical_t* select, const integer_t n,
+ traits::complex_d* a, const integer_t lda, traits::complex_d* b,
+ const integer_t ldb, traits::complex_d* alpha,
             traits::complex_d* beta, traits::complex_d* q,
- integer_t const ldq, traits::complex_d* z, integer_t const ldz,
+ const integer_t ldq, traits::complex_d* z, const integer_t ldz,
             integer_t& m, double& pl, double& pr, double* dif,
- traits::complex_d* work, integer_t const lwork, integer_t* iwork,
- integer_t const liwork, integer_t& info ) {
+ traits::complex_d* work, const integer_t lwork, integer_t* iwork,
+ const integer_t liwork, integer_t& info ) {
         LAPACK_ZTGSEN( &ijob, &wantq, &wantz, select, &n,
                 traits::complex_ptr(a), &lda, traits::complex_ptr(b), &ldb,
                 traits::complex_ptr(alpha), traits::complex_ptr(beta),
@@ -111,9 +111,9 @@
             typename VectorALPHAR, typename VectorALPHAI, typename VectorBETA,
             typename MatrixQ, typename MatrixZ, typename VectorDIF,
             typename WORK, typename IWORK >
- static void invoke( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, VectorSELECT& select, integer_t const n,
- MatrixA& a, MatrixB& b, VectorALPHAR& alphar,
+ static void invoke( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const VectorSELECT& select,
+ const integer_t n, MatrixA& a, MatrixB& b, VectorALPHAR& alphar,
             VectorALPHAI& alphai, VectorBETA& beta, MatrixQ& q, MatrixZ& z,
             integer_t& m, real_type& pl, real_type& pr, VectorDIF& dif,
             integer_t& info, detail::workspace2< WORK, IWORK > work ) {
@@ -166,9 +166,9 @@
     template< typename VectorSELECT, typename MatrixA, typename MatrixB,
             typename VectorALPHAR, typename VectorALPHAI, typename VectorBETA,
             typename MatrixQ, typename MatrixZ, typename VectorDIF >
- static void invoke( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, VectorSELECT& select, integer_t const n,
- MatrixA& a, MatrixB& b, VectorALPHAR& alphar,
+ static void invoke( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const VectorSELECT& select,
+ const integer_t n, MatrixA& a, MatrixB& b, VectorALPHAR& alphar,
             VectorALPHAI& alphai, VectorBETA& beta, MatrixQ& q, MatrixZ& z,
             integer_t& m, real_type& pl, real_type& pr, VectorDIF& dif,
             integer_t& info, minimal_workspace work ) {
@@ -184,9 +184,9 @@
     template< typename VectorSELECT, typename MatrixA, typename MatrixB,
             typename VectorALPHAR, typename VectorALPHAI, typename VectorBETA,
             typename MatrixQ, typename MatrixZ, typename VectorDIF >
- static void invoke( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, VectorSELECT& select, integer_t const n,
- MatrixA& a, MatrixB& b, VectorALPHAR& alphar,
+ static void invoke( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const VectorSELECT& select,
+ const integer_t n, MatrixA& a, MatrixB& b, VectorALPHAR& alphar,
             VectorALPHAI& alphai, VectorBETA& beta, MatrixQ& q, MatrixZ& z,
             integer_t& m, real_type& pl, real_type& pr, VectorDIF& dif,
             integer_t& info, optimal_workspace work ) {
@@ -229,11 +229,11 @@
             typename VectorALPHA, typename VectorBETA, typename MatrixQ,
             typename MatrixZ, typename VectorDIF, typename WORK,
             typename IWORK >
- static void invoke( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, VectorSELECT& select, integer_t const n,
- MatrixA& a, MatrixB& b, VectorALPHA& alpha, VectorBETA& beta,
- MatrixQ& q, MatrixZ& z, integer_t& m, real_type& pl,
- real_type& pr, VectorDIF& dif, integer_t& info,
+ static void invoke( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const VectorSELECT& select,
+ const integer_t n, MatrixA& a, MatrixB& b, VectorALPHA& alpha,
+ VectorBETA& beta, MatrixQ& q, MatrixZ& z, integer_t& m,
+ real_type& pl, real_type& pr, VectorDIF& dif, integer_t& info,
             detail::workspace2< WORK, IWORK > work ) {
         BOOST_STATIC_ASSERT( (boost::is_same< typename traits::matrix_traits<
                 MatrixA >::value_type, typename traits::matrix_traits<
@@ -276,11 +276,11 @@
     template< typename VectorSELECT, typename MatrixA, typename MatrixB,
             typename VectorALPHA, typename VectorBETA, typename MatrixQ,
             typename MatrixZ, typename VectorDIF >
- static void invoke( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, VectorSELECT& select, integer_t const n,
- MatrixA& a, MatrixB& b, VectorALPHA& alpha, VectorBETA& beta,
- MatrixQ& q, MatrixZ& z, integer_t& m, real_type& pl,
- real_type& pr, VectorDIF& dif, integer_t& info,
+ static void invoke( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const VectorSELECT& select,
+ const integer_t n, MatrixA& a, MatrixB& b, VectorALPHA& alpha,
+ VectorBETA& beta, MatrixQ& q, MatrixZ& z, integer_t& m,
+ real_type& pl, real_type& pr, VectorDIF& dif, integer_t& info,
             minimal_workspace work ) {
         traits::detail::array< value_type > tmp_work( min_size_work(
                 $CALL_MIN_SIZE ) );
@@ -294,11 +294,11 @@
     template< typename VectorSELECT, typename MatrixA, typename MatrixB,
             typename VectorALPHA, typename VectorBETA, typename MatrixQ,
             typename MatrixZ, typename VectorDIF >
- static void invoke( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, VectorSELECT& select, integer_t const n,
- MatrixA& a, MatrixB& b, VectorALPHA& alpha, VectorBETA& beta,
- MatrixQ& q, MatrixZ& z, integer_t& m, real_type& pl,
- real_type& pr, VectorDIF& dif, integer_t& info,
+ static void invoke( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const VectorSELECT& select,
+ const integer_t n, MatrixA& a, MatrixB& b, VectorALPHA& alpha,
+ VectorBETA& beta, MatrixQ& q, MatrixZ& z, integer_t& m,
+ real_type& pl, real_type& pr, VectorDIF& dif, integer_t& info,
             optimal_workspace work ) {
         value_type opt_size_work;
         integer_t opt_size_iwork;
@@ -333,8 +333,8 @@
         typename VectorALPHAR, typename VectorALPHAI, typename VectorBETA,
         typename MatrixQ, typename MatrixZ, typename VectorDIF,
         typename Workspace >
-inline integer_t tgsen( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, VectorSELECT& select, integer_t const n,
+inline integer_t tgsen( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const VectorSELECT& select, const integer_t n,
         MatrixA& a, MatrixB& b, VectorALPHAR& alphar, VectorALPHAI& alphai,
         VectorBETA& beta, MatrixQ& q, MatrixZ& z, integer_t& m,
         typename traits::type_traits< typename traits::matrix_traits<
@@ -353,8 +353,8 @@
 template< typename VectorSELECT, typename MatrixA, typename MatrixB,
         typename VectorALPHAR, typename VectorALPHAI, typename VectorBETA,
         typename MatrixQ, typename MatrixZ, typename VectorDIF >
-inline integer_t tgsen( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, VectorSELECT& select, integer_t const n,
+inline integer_t tgsen( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const VectorSELECT& select, const integer_t n,
         MatrixA& a, MatrixB& b, VectorALPHAR& alphar, VectorALPHAI& alphai,
         VectorBETA& beta, MatrixQ& q, MatrixZ& z, integer_t& m,
         typename traits::type_traits< typename traits::matrix_traits<
@@ -372,8 +372,8 @@
 template< typename VectorSELECT, typename MatrixA, typename MatrixB,
         typename VectorALPHA, typename VectorBETA, typename MatrixQ,
         typename MatrixZ, typename VectorDIF, typename Workspace >
-inline integer_t tgsen( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, VectorSELECT& select, integer_t const n,
+inline integer_t tgsen( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const VectorSELECT& select, const integer_t n,
         MatrixA& a, MatrixB& b, VectorALPHA& alpha, VectorBETA& beta,
         MatrixQ& q, MatrixZ& z, integer_t& m, typename traits::type_traits<
         typename traits::matrix_traits<
@@ -392,8 +392,8 @@
 template< typename VectorSELECT, typename MatrixA, typename MatrixB,
         typename VectorALPHA, typename VectorBETA, typename MatrixQ,
         typename MatrixZ, typename VectorDIF >
-inline integer_t tgsen( integer_t const ijob, logical_t const wantq,
- logical_t const wantz, VectorSELECT& select, integer_t const n,
+inline integer_t tgsen( const integer_t ijob, const logical_t wantq,
+ const logical_t wantz, const VectorSELECT& select, const integer_t n,
         MatrixA& a, MatrixB& b, VectorALPHA& alpha, VectorBETA& beta,
         MatrixQ& q, MatrixZ& z, integer_t& m, typename traits::type_traits<
         typename traits::matrix_traits<

Modified: sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgsja.hpp
==============================================================================
--- sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgsja.hpp (original)
+++ sandbox/numeric_bindings/boost/numeric/bindings/lapack/computational/tgsja.hpp 2009-09-17 07:43:11 EDT (Thu, 17 Sep 2009)
@@ -36,37 +36,37 @@
 
 // overloaded functions to call lapack
 namespace detail {
- inline void tgsja( char const jobu, char const jobv, char const jobq,
- integer_t const m, integer_t const p, integer_t const n,
- integer_t const k, integer_t const l, float* a,
- integer_t const lda, float* b, integer_t const ldb,
- float const tola, float const tolb, float* alpha, float* beta,
- float* u, integer_t const ldu, float* v, integer_t const ldv,
- float* q, integer_t const ldq, float* work, integer_t& ncycle,
+ inline void tgsja( const char jobu, const char jobv, const char jobq,
+ const integer_t m, const integer_t p, const integer_t n,
+ const integer_t k, const integer_t l, float* a,
+ const integer_t lda, float* b, const integer_t ldb,
+ const float tola, const float tolb, float* alpha, float* beta,
+ float* u, const integer_t ldu, float* v, const integer_t ldv,
+ float* q, const integer_t ldq, float* work, integer_t& ncycle,
             integer_t& info ) {
         LAPACK_STGSJA( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l, a, &lda, b,
                 &ldb, &tola, &tolb, alpha, beta, u, &ldu, v, &ldv, q, &ldq,
                 work, &ncycle, &info );
     }
- inline void tgsja( char const jobu, char const jobv, char const jobq,
- integer_t const m, integer_t const p, integer_t const n,
- integer_t const k, integer_t const l, double* a,
- integer_t const lda, double* b, integer_t const ldb,
- double const tola, double const tolb, double* alpha, double* beta,
- double* u, integer_t const ldu, double* v, integer_t const ldv,
- double* q, integer_t const ldq, double* work, integer_t& ncycle,
+ inline void tgsja( const char jobu, const char jobv, const char jobq,
+ const integer_t m, const integer_t p, const integer_t n,
+ const integer_t k, const integer_t l, double* a,
+ const integer_t lda, double* b, const integer_t ldb,
+ const double tola, const double tolb, double* alpha, double* beta,
+ double* u, const integer_t ldu, double* v, const integer_t ldv,
+ double* q, const integer_t ldq, double* work, integer_t& ncycle,
             integer_t& info ) {
         LAPACK_DTGSJA( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l, a, &lda, b,
                 &ldb, &tola, &tolb, alpha, beta, u, &ldu, v, &ldv, q, &ldq,
                 work, &ncycle, &info );
     }
- inline void tgsja( char const jobu, char const jobv, char const jobq,
- integer_t const m, integer_t const p, integer_t const n,
- integer_t const k, integer_t const l, traits::complex_f* a,
- integer_t const lda, traits::complex_f* b, integer_t const ldb,
- float const tola, float const tolb, float* alpha, float* beta,
- traits::complex_f* u, integer_t const ldu, traits::complex_f* v,
- integer_t const ldv, traits::complex_f* q, integer_t const ldq,
+ inline void tgsja( const char jobu, const char jobv, const char jobq,
+ const integer_t m, const integer_t p, const integer_t n,
+ const integer_t k, const integer_t l, traits::complex_f* a,
+ const integer_t lda, traits::complex_f* b, const integer_t ldb,
+ const float tola, const float tolb, float* alpha, float* beta,
+ traits::complex_f* u, const integer_t ldu, traits::complex_f* v,
+ const integer_t ldv, traits::complex_f* q, const integer_t ldq,
             traits::complex_f* work, integer_t& ncycle, integer_t& info ) {
         LAPACK_CTGSJA( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l,
                 traits::complex_ptr(a), &lda, traits::complex_ptr(b), &ldb,
@@ -74,13 +74,13 @@
                 traits::complex_ptr(v), &ldv, traits::complex_ptr(q), &ldq,
                 traits::complex_ptr(work), &ncycle, &info );
     }
- inline void tgsja( char const jobu, char const jobv, char const jobq,
- integer_t const m, integer_t const p, integer_t const n,
- integer_t const k, integer_t const l, traits::complex_d* a,
- integer_t const lda, traits::complex_d* b, integer_t const ldb,
- double const tola, double const tolb, double* alpha, double* beta,
- traits::complex_d* u, integer_t const ldu, traits::complex_d* v,
- integer_t const ldv, traits::complex_d* q, integer_t const ldq,
+ inline void tgsja( const char jobu, const char jobv, const char jobq,
+ const integer_t m, const integer_t p, const integer_t n,
+ const integer_t k, const integer_t l, traits::complex_d* a,
+ const integer_t lda, traits::complex_d* b, const integer_t ldb,
+ const double tola, const double tolb, double* alpha, double* beta,
+ traits::complex_d* u, const integer_t ldu, traits::complex_d* v,
+ const integer_t ldv, traits::complex_d* q, const integer_t ldq,
             traits::complex_d* work, integer_t& ncycle, integer_t& info ) {
         LAPACK_ZTGSJA( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l,
                 traits::complex_ptr(a), &lda, traits::complex_ptr(b), &ldb,
@@ -105,9 +105,9 @@
     template< typename MatrixA, typename MatrixB, typename VectorALPHA,
             typename VectorBETA, typename MatrixU, typename MatrixV,
             typename MatrixQ, typename WORK >
- static void invoke( char const jobu, char const jobv, char const jobq,
- integer_t const k, integer_t const l, MatrixA& a, MatrixB& b,
- real_type const tola, real_type const tolb, VectorALPHA& alpha,
+ static void invoke( const char jobu, const char jobv, const char jobq,
+ const integer_t k, const integer_t l, MatrixA& a, MatrixB& b,
+ const real_type tola, const real_type tolb, VectorALPHA& alpha,
             VectorBETA& beta, MatrixU& u, MatrixV& v, MatrixQ& q,
             integer_t& ncycle, integer_t& info, detail::workspace1<
             WORK > work ) {
@@ -160,9 +160,9 @@
     template< typename MatrixA, typename MatrixB, typename VectorALPHA,
             typename VectorBETA, typename MatrixU, typename MatrixV,
             typename MatrixQ >
- static void invoke( char const jobu, char const jobv, char const jobq,
- integer_t const k, integer_t const l, MatrixA& a, MatrixB& b,
- real_type const tola, real_type const tolb, VectorALPHA& alpha,
+ static void invoke( const char jobu, const char jobv, const char jobq,
+ const integer_t k, const integer_t l, MatrixA& a, MatrixB& b,
+ const real_type tola, const real_type tolb, VectorALPHA& alpha,
             VectorBETA& beta, MatrixU& u, MatrixV& v, MatrixQ& q,
             integer_t& ncycle, integer_t& info, minimal_workspace work ) {
         traits::detail::array< real_type > tmp_work( min_size_work(
@@ -175,16 +175,16 @@
     template< typename MatrixA, typename MatrixB, typename VectorAL