We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 0d3f2d0 + 0857ee1 commit 76ed3b3Copy full SHA for 76ed3b3
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
110
float* a, const int* lda,
111
const float* vl, const float* vu, const int* il, const int* iu,
112
const float* abstol, int* m, float* w, float* z, const int* ldz,
113
- float* work, const int* lwork, float* rwork, int* iwork, int* ifail, int* info);
+ float* work, const int* lwork, int* iwork, int* ifail, int* info);
114
115
void dsyevx_(const char* jobz, const char* range, const char* uplo, const int* n,
116
double* a, const int* lda,
@@ -356,7 +356,7 @@ void heevx(const char jobz, const char range, const char uplo, const int n,
356
ssyevx_(&jobz, &range, &uplo, &n,
357
a, &lda, &vl, &vu, &il, &iu,
358
&abstol, &m, w, z, &ldz,
359
- work, &lwork, rwork, iwork, ifail, &info);
+ work, &lwork, iwork, ifail, &info);
360
}
361
// wrap function of fortran lapack routine zheevx.
362
static inline
0 commit comments