@@ -29,50 +29,50 @@ namespace Lapack_Interface
2929 const char uplo_changed = Blas_Interface::change_uplo (uplo);
3030 spotrf_ ( &uplo_changed, &n, A, &lda, &info );
3131 return info;
32- }
32+ }
3333 inline int potrf ( const char &uplo, const int &n, double *const A, const int &lda )
3434 {
3535 int info;
3636 const char uplo_changed = Blas_Interface::change_uplo (uplo);
3737 dpotrf_ ( &uplo_changed, &n, A, &lda, &info );
3838 return info;
39- }
39+ }
4040 inline int potrf ( const char &uplo, const int &n, std::complex <float >*const A, const int &lda )
4141 {
4242 int info;
4343 const char uplo_changed = Blas_Interface::change_uplo (uplo);
4444 cpotrf_ ( &uplo_changed, &n, A, &lda, &info );
4545 return info;
46- }
46+ }
4747 inline int potrf ( const char &uplo, const int &n, std::complex <double >*const A, const int &lda )
4848 {
4949 int info;
5050 const char uplo_changed = Blas_Interface::change_uplo (uplo);
5151 zpotrf_ ( &uplo_changed, &n, A, &lda, &info );
5252 return info;
53- }
53+ }
5454
5555 // potri takes potrf's output to perform matrix inversion
5656 inline int potri ( const char &uplo, const int &n, float *const A, const int &lda )
5757 {
5858 int info;
5959 const char uplo_changed = Blas_Interface::change_uplo (uplo);
60- spotri_ ( &uplo_changed, &n, A, &lda, &info);
61- return info;
62- }
60+ spotri_ ( &uplo_changed, &n, A, &lda, &info);
61+ return info;
62+ }
6363 inline int potri ( const char &uplo, const int &n, double *const A, const int &lda )
6464 {
6565 int info;
6666 const char uplo_changed = Blas_Interface::change_uplo (uplo);
67- dpotri_ ( &uplo_changed, &n, A, &lda, &info);
68- return info;
67+ dpotri_ ( &uplo_changed, &n, A, &lda, &info);
68+ return info;
6969 }
7070 inline int potri ( const char &uplo, const int &n, std::complex <float >*const A, const int &lda )
7171 {
7272 int info;
7373 const char uplo_changed = Blas_Interface::change_uplo (uplo);
74- cpotri_ ( &uplo_changed, &n, A, &lda, &info);
75- return info;
74+ cpotri_ ( &uplo_changed, &n, A, &lda, &info);
75+ return info;
7676 }
7777 inline int potri ( const char &uplo, const int &n, std::complex <double >*const A, const int &lda )
7878 {
@@ -149,7 +149,7 @@ namespace Lapack_Interface
149149 const int lwork = std::real (work_tmp);
150150 std::vector<std::complex <T>> WORK (std::max (1 ,lwork));
151151 return heev (jobz, uplo, n, A, lda, W, WORK.data (), lwork, RWORK.data ());
152- }
152+ }
153153}
154154
155155}
0 commit comments