Skip to content

GitLab

Commit a0d492ae authored by Edoardo Morandi's avatar Edoardo Morandi Committed by Davis E. King
Browse files

Fixed constness for lapack functions (#1737)

parent 879202b7
Hide whitespace changes
Inline Side-by-side
Showing with 54 additions and 54 deletions
dlib/matrix/lapack/gees.h
View file @ a0d492ae
...@@ -21,15 +21,15 @@ namespace dlib ...@@ -21,15 +21,15 @@ namespace dlib
extern "C" extern "C"
{ {
void DLIB_FORTRAN_ID(dgees) (char *jobvs, char *sort, L_fp select, integer *n, void DLIB_FORTRAN_ID(dgees) (const char *jobvs, const char *sort, const L_fp select, const integer *n,
double *a, integer *lda, integer *sdim, double *wr, double *a, const integer *lda, integer *sdim, double *wr,
double *wi, double *vs, integer *ldvs, double *work, double *wi, double *vs, const integer *ldvs, double *work,
integer *lwork, logical *bwork, integer *info); const integer *lwork, logical *bwork, integer *info);
void DLIB_FORTRAN_ID(sgees) (char *jobvs, char *sort, L_fp select, integer *n, void DLIB_FORTRAN_ID(sgees) (const char *jobvs, const char *sort, const L_fp select, const integer *n,
float *a, integer *lda, integer *sdim, float *wr, float *a, const integer *lda, integer *sdim, float *wr,
float *wi, float *vs, integer *ldvs, float *work, float *wi, float *vs, const integer *ldvs, float *work,
integer *lwork, logical *bwork, integer *info); const integer *lwork, logical *bwork, integer *info);
} }
......
dlib/matrix/lapack/geev.h
View file @ a0d492ae
...@@ -14,15 +14,15 @@ namespace dlib ...@@ -14,15 +14,15 @@ namespace dlib
{ {
extern "C" extern "C"
{ {
void DLIB_FORTRAN_ID(dgeev) (char *jobvl, char *jobvr, integer *n, double * a, void DLIB_FORTRAN_ID(dgeev) (const char *jobvl, const char *jobvr, const integer *n, double * a,
integer *lda, double *wr, double *wi, double *vl, const integer *lda, double *wr, double *wi, double *vl,
integer *ldvl, double *vr, integer *ldvr, double *work, const integer *ldvl, double *vr, const integer *ldvr, double *work,
integer *lwork, integer *info); const integer *lwork, integer *info);
void DLIB_FORTRAN_ID(sgeev) (char *jobvl, char *jobvr, integer *n, float * a, void DLIB_FORTRAN_ID(sgeev) (const char *jobvl, const char *jobvr, const integer *n, float * a,
integer *lda, float *wr, float *wi, float *vl, const integer *lda, float *wr, float *wi, float *vl,
integer *ldvl, float *vr, integer *ldvr, float *work, const integer *ldvl, float *vr, const integer *ldvr, float *work,
integer *lwork, integer *info); const integer *lwork, integer *info);
} }
......
dlib/matrix/lapack/geqrf.h
View file @ a0d492ae
...@@ -14,12 +14,12 @@ namespace dlib ...@@ -14,12 +14,12 @@ namespace dlib
{ {
extern "C" extern "C"
{ {
void DLIB_FORTRAN_ID(dgeqrf) (integer *m, integer *n, double *a, integer * void DLIB_FORTRAN_ID(dgeqrf) (const integer *m, const integer *n, double *a, const integer*
lda, double *tau, double *work, integer *lwork, lda, double *tau, double *work, const integer *lwork,
integer *info); integer *info);
void DLIB_FORTRAN_ID(sgeqrf) (integer *m, integer *n, float *a, integer * void DLIB_FORTRAN_ID(sgeqrf) (const integer *m, const integer *n, float *a, const integer*
lda, float *tau, float *work, integer *lwork, lda, float *tau, float *work, const integer *lwork,
integer *info); integer *info);
} }
......
dlib/matrix/lapack/getrf.h
View file @ a0d492ae
...@@ -14,11 +14,11 @@ namespace dlib ...@@ -14,11 +14,11 @@ namespace dlib
{ {
extern "C" extern "C"
{ {
void DLIB_FORTRAN_ID(dgetrf) (integer* m, integer *n, double *a, void DLIB_FORTRAN_ID(dgetrf) (const integer *m, const integer *n, double *a,
integer* lda, integer *ipiv, integer *info); const integer *lda, integer *ipiv, integer *info);
void DLIB_FORTRAN_ID(sgetrf) (integer* m, integer *n, float *a, void DLIB_FORTRAN_ID(sgetrf) (const integer *m, const integer *n, float *a,
integer* lda, integer *ipiv, integer *info); const integer *lda, integer *ipiv, integer *info);
} }
......
dlib/matrix/lapack/ormqr.h
View file @ a0d492ae
...@@ -14,14 +14,14 @@ namespace dlib ...@@ -14,14 +14,14 @@ namespace dlib
{ {
extern "C" extern "C"
{ {
void DLIB_FORTRAN_ID(dormqr) (char *side, char *trans, integer *m, integer *n, void DLIB_FORTRAN_ID(dormqr) (const char *side, const char *trans, const integer *m, const integer *n,
integer *k, const double *a, integer *lda, const double *tau, const integer *k, const double *a, const integer *lda, const double *tau,
double * c_, integer *ldc, double *work, integer *lwork, double * c_, const integer *ldc, double *work, const integer *lwork,
integer *info); integer *info);
void DLIB_FORTRAN_ID(sormqr) (char *side, char *trans, integer *m, integer *n, void DLIB_FORTRAN_ID(sormqr) (const char *side, const char *trans, const integer *m, const integer *n,
integer *k, const float *a, integer *lda, const float *tau, const integer *k, const float *a, const integer *lda, const float *tau,
float * c_, integer *ldc, float *work, integer *lwork, float * c_, const integer *ldc, float *work, const integer *lwork,
integer *info); integer *info);
} }
......
dlib/matrix/lapack/pbtrf.h
View file @ a0d492ae
...@@ -13,11 +13,11 @@ namespace dlib ...@@ -13,11 +13,11 @@ namespace dlib
{ {
extern "C" extern "C"
{ {
void DLIB_FORTRAN_ID(dpbtrf) (const char* uplo, const integer* n, const integer* kd, void DLIB_FORTRAN_ID(dpbtrf) (const char *uplo, const integer *n, const integer *kd,
double* ab, const integer* ldab, integer* info); double *ab, const integer *ldab, integer *info);
void DLIB_FORTRAN_ID(spbtrf) (const char* uplo, const integer* n, const integer* kd, void DLIB_FORTRAN_ID(spbtrf) (const char *uplo, const integer *n, const integer *kd,
float* ab, const integer* ldab, integer* info); float *ab, const integer *ldab, integer *info);
} }
......
dlib/matrix/lapack/potrf.h
View file @ a0d492ae
...@@ -14,11 +14,11 @@ namespace dlib ...@@ -14,11 +14,11 @@ namespace dlib
{ {
extern "C" extern "C"
{ {
void DLIB_FORTRAN_ID(dpotrf) (char *uplo, integer *n, double *a, void DLIB_FORTRAN_ID(dpotrf) (const char *uplo, const integer *n, double *a,
integer* lda, integer *info); const integer *lda, integer *info);
void DLIB_FORTRAN_ID(spotrf) (char *uplo, integer *n, float *a, void DLIB_FORTRAN_ID(spotrf) (const char *uplo, const integer *n, float *a,
integer* lda, integer *info); const integer *lda, integer *info);
} }
......
dlib/matrix/lapack/syev.h
View file @ a0d492ae
...@@ -14,12 +14,12 @@ namespace dlib ...@@ -14,12 +14,12 @@ namespace dlib
{ {
extern "C" extern "C"
{ {
void DLIB_FORTRAN_ID(dsyev) (char *jobz, char *uplo, integer *n, double *a, void DLIB_FORTRAN_ID(dsyev) (const char *jobz, const char *uplo, const integer *n, double *a,
integer *lda, double *w, double *work, integer *lwork, const integer *lda, double *w, double *work, const integer *lwork,
integer *info); integer *info);
void DLIB_FORTRAN_ID(ssyev) (char *jobz, char *uplo, integer *n, float *a, void DLIB_FORTRAN_ID(ssyev) (const char *jobz, const char *uplo, const integer *n, float *a,
integer *lda, float *w, float *work, integer *lwork, const integer *lda, float *w, float *work, const integer *lwork,
integer *info); integer *info);
} }
......
dlib/matrix/lapack/syevr.h
View file @ a0d492ae
...@@ -14,17 +14,17 @@ namespace dlib ...@@ -14,17 +14,17 @@ namespace dlib
{ {
extern "C" extern "C"
{ {
void DLIB_FORTRAN_ID(dsyevr) (char *jobz, char *range, char *uplo, integer *n, void DLIB_FORTRAN_ID(dsyevr) (const char *jobz, const char *range, const char *uplo, const integer *n,
double *a, integer *lda, double *vl, double *vu, integer * il, double *a, const integer *lda, const double *vl, const double *vu, const integer *il,
integer *iu, double *abstol, integer *m, double *w, const integer *iu, const double *abstol, integer *m, double *w,
double *z_, integer *ldz, integer *isuppz, double *work, double *z_, const integer *ldz, integer *isuppz, double *work,
integer *lwork, integer *iwork, integer *liwork, integer *info); const integer *lwork, integer *iwork, const integer *liwork, integer *info);
void DLIB_FORTRAN_ID(ssyevr) (char *jobz, char *range, char *uplo, integer *n, void DLIB_FORTRAN_ID(ssyevr) (const char *jobz, const char *range, const char *uplo, const integer *n,
float *a, integer *lda, float *vl, float *vu, integer * il, float *a, const integer *lda, const float *vl, const float *vu, const integer *il,
integer *iu, float *abstol, integer *m, float *w, const integer *iu, const float *abstol, integer *m, float *w,
float *z_, integer *ldz, integer *isuppz, float *work, float *z_, integer *ldz, integer *isuppz, float *work,
integer *lwork, integer *iwork, integer *liwork, integer *info); const integer *lwork, integer *iwork, const integer *liwork, integer *info);
} }
inline int syevr (char jobz, char range, char uplo, integer n, inline int syevr (char jobz, char range, char uplo, integer n,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment