diff --git a/source/source_base/module_container/base/third_party/lapack.h b/source/source_base/module_container/base/third_party/lapack.h index bfb19eaca4..9538761734 100644 --- a/source/source_base/module_container/base/third_party/lapack.h +++ b/source/source_base/module_container/base/third_party/lapack.h @@ -110,7 +110,7 @@ void ssyevx_(const char* jobz, const char* range, const char* uplo, const int* n float* a, const int* lda, const float* vl, const float* vu, const int* il, const int* iu, const float* abstol, int* m, float* w, float* z, const int* ldz, - float* work, const int* lwork, float* rwork, int* iwork, int* ifail, int* info); + float* work, const int* lwork, int* iwork, int* ifail, int* info); void dsyevx_(const char* jobz, const char* range, const char* uplo, const int* n, double* a, const int* lda, @@ -338,7 +338,7 @@ void heevx(const char jobz, const char range, const char uplo, const int n, ssyevx_(&jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, &abstol, &m, w, z, &ldz, - work, &lwork, rwork, iwork, ifail, &info); + work, &lwork, iwork, ifail, &info); } // wrap function of fortran lapack routine zheevx. static inline