From 4cb92b1e1694ad5f86c23437aad1a91be2a5a7c6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?B=C3=A5rd=20Skaflestad?= Date: Sat, 3 Jul 2010 11:07:56 +0000 Subject: [PATCH] The LAPACK and BLAS operators do not modify their (char*) parameters. Declare these operators as taking (const char*)s. --- blas_lapack.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/blas_lapack.h b/blas_lapack.h index 3c73d1918..4231e5736 100644 --- a/blas_lapack.h +++ b/blas_lapack.h @@ -1,19 +1,19 @@ /* C <- a1*op(A)*op(B) + a2*C where op(X) in {X, X.'} */ -void dgemm_(char *transA , char *transB , +void dgemm_(const char *transA , const char *transB , const MAT_SIZE_T* m, const MAT_SIZE_T* n , const MAT_SIZE_T* k , const double* a1, const double* A , const MAT_SIZE_T* ldA, const double* B, const MAT_SIZE_T* ldB, const double* a2, double* C , const MAT_SIZE_T* ldC); /* C <- a1*A*A' + a2*C *or* C <- a1*A'*A + a2*C */ -void dsyrk_(char *uplo, char *trans, +void dsyrk_(const char *uplo, const char *trans, const MAT_SIZE_T *n , const MAT_SIZE_T *k , const double *a1 , const double *A , const MAT_SIZE_T *ldA, const double *a2 , double *C , const MAT_SIZE_T *ldC); /* B <- a*op(A)*B *or* B <- a*B*op(A) where op(X) \in {X, X.', X'} */ -void dtrmm_(char *, char *, char *, char *, +void dtrmm_(const char *, const char *, const char *, const char *, const MAT_SIZE_T *m, const MAT_SIZE_T* n , const double *a, const double *A, const MAT_SIZE_T* ldA,