Skip to content

Commit f98a920

Browse files
committed
Remove itype parameter for heevx that is required only in gv
1 parent 39bbfe4 commit f98a920

File tree

1 file changed

+13
-13
lines changed
  • source/source_base/module_container/base/third_party

1 file changed

+13
-13
lines changed

source/source_base/module_container/base/third_party/lapack.h

Lines changed: 13 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -3,9 +3,9 @@
33
* @brief This is a direct wrapper of some LAPACK routines.
44
* \b Column-Major version.
55
* Direct wrapping of standard LAPACK routines. (Column-Major, fortran style)
6-
*
6+
*
77
* @warning For Row-major version, please refer to \c source/source_base/module_external/lapack_connector.h.
8-
*
8+
*
99
* @note
1010
* Some slight modification are made to fit the C++ style for overloading purpose.
1111
* You can find some function with different parameter list than the original LAPACK routine.
@@ -294,7 +294,7 @@ void hegvx(const int itype, const char jobz, const char range, const char uplo,
294294

295295
// wrap function of fortran lapack routine zheevx.
296296
static inline
297-
void heevx( const int itype, const char jobz, const char range, const char uplo, const int n,
297+
void heevx(const char jobz, const char range, const char uplo, const int n,
298298
float* a, const int lda,
299299
const float vl, const float vu, const int il, const int iu, const float abstol,
300300
const int m, float* w, float* z, const int ldz,
@@ -307,19 +307,19 @@ void heevx( const int itype, const char jobz, const char range, const char uplo,
307307
}
308308
// wrap function of fortran lapack routine zheevx.
309309
static inline
310-
void heevx( const int itype, const char jobz, const char range, const char uplo, const int n,
311-
double* a, const int lda,
312-
const double vl, const double vu, const int il, const int iu, const double abstol,
313-
const int m, double* w, double* z, const int ldz,
314-
double* work, const int lwork, double* rwork, int* iwork, int* ifail, int info)
310+
void heevx(const char jobz, const char range, const char uplo, const int n,
311+
double* a, const int lda,
312+
const double vl, const double vu, const int il, const int iu, const double abstol,
313+
const int m, double* w, double* z, const int ldz,
314+
double* work, const int lwork, double* rwork, int* iwork, int* ifail, int info)
315315
{
316316
dsyevx_(&jobz, &range, &uplo, &n,
317317
a, &lda, &vl, &vu, &il, &iu,
318318
&abstol, &m, w, z, &ldz,
319319
work, &lwork, rwork, iwork, ifail, &info);
320320
}
321321
static inline
322-
void heevx( const int itype, const char jobz, const char range, const char uplo, const int n,
322+
void heevx(const char jobz, const char range, const char uplo, const int n,
323323
std::complex<float>* a, const int lda,
324324
const float vl, const float vu, const int il, const int iu, const float abstol,
325325
const int m, float* w, std::complex<float>* z, const int ldz,
@@ -332,7 +332,7 @@ void heevx( const int itype, const char jobz, const char range, const char uplo,
332332
}
333333
// wrap function of fortran lapack routine zheevx.
334334
static inline
335-
void heevx( const int itype, const char jobz, const char range, const char uplo, const int n,
335+
void heevx(const char jobz, const char range, const char uplo, const int n,
336336
std::complex<double>* a, const int lda,
337337
const double vl, const double vu, const int il, const int iu, const double abstol,
338338
const int m, double* w, std::complex<double>* z, const int ldz,
@@ -399,17 +399,17 @@ static inline
399399
void potrf( const char &uplo, const int &n, float* A, const int &lda, int &info )
400400
{
401401
spotrf_(&uplo, &n, A, &lda, &info );
402-
}
402+
}
403403
static inline
404404
void potrf( const char &uplo, const int &n, double* A, const int &lda, int &info )
405405
{
406406
dpotrf_(&uplo, &n, A, &lda, &info );
407-
}
407+
}
408408
static inline
409409
void potrf( const char &uplo, const int &n, std::complex<float>* A, const int &lda, int &info )
410410
{
411411
cpotrf_(&uplo, &n, A, &lda, &info );
412-
}
412+
}
413413
static inline
414414
void potrf( const char &uplo, const int &n, std::complex<double>* A, const int &lda, int &info )
415415
{

0 commit comments

Comments
 (0)