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.
296296static 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.
309309static 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}
321321static 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.
334334static 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
399399void potrf ( const char &uplo, const int &n, float * A, const int &lda, int &info )
400400{
401401 spotrf_ (&uplo, &n, A, &lda, &info );
402- }
402+ }
403403static inline
404404void potrf ( const char &uplo, const int &n, double * A, const int &lda, int &info )
405405{
406406 dpotrf_ (&uplo, &n, A, &lda, &info );
407- }
407+ }
408408static inline
409409void 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+ }
413413static inline
414414void potrf ( const char &uplo, const int &n, std::complex <double >* A, const int &lda, int &info )
415415{
0 commit comments