From a56a3407188a65ba0255c7a0578348213f8840f0 Mon Sep 17 00:00:00 2001 From: Ernesto Prudencio Date: Mon, 20 May 2024 10:39:27 -0600 Subject: [PATCH] Formatting --- lapack/tpls/KokkosLapack_Host_tpl.cpp | 64 +++++++++++++++------------ 1 file changed, 35 insertions(+), 29 deletions(-) diff --git a/lapack/tpls/KokkosLapack_Host_tpl.cpp b/lapack/tpls/KokkosLapack_Host_tpl.cpp index 89085619e8..9d751f75b6 100644 --- a/lapack/tpls/KokkosLapack_Host_tpl.cpp +++ b/lapack/tpls/KokkosLapack_Host_tpl.cpp @@ -87,15 +87,16 @@ void F77_BLAS_MANGLE(ztrtri, ZTRTRI)(const char*, const char*, int*, /// Geqrf /// -void F77_BLAS_MANGLE(sgeqrf, SGEQRF)(int*, int*, float*, int*, float*, float*, int*, - int*); -void F77_BLAS_MANGLE(dgeqrf, DGEQRF)(int*, int*, double*, int*, double*, double*, - int*, int*); -void F77_BLAS_MANGLE(cgeqrf, CGEQRF)(int*, int*, std::complex*, int*, std::complex*, - std::complex*, int*, int*); +void F77_BLAS_MANGLE(sgeqrf, SGEQRF)(int*, int*, float*, int*, float*, float*, + int*, int*); +void F77_BLAS_MANGLE(dgeqrf, DGEQRF)(int*, int*, double*, int*, double*, + double*, int*, int*); +void F77_BLAS_MANGLE(cgeqrf, CGEQRF)(int*, int*, std::complex*, int*, + std::complex*, std::complex*, + int*, int*); void F77_BLAS_MANGLE(zgeqrf, ZGEQRF)(int*, int*, std::complex*, int*, - std::complex*, std::complex*, int*, int*); - + std::complex*, + std::complex*, int*, int*); } #define F77_FUNC_SGESV F77_BLAS_MANGLE(sgesv, SGESV) @@ -192,14 +193,14 @@ int HostLapack::geqrf(int m, int n, double* a, int lda, double* tau, /// template <> -void HostLapack >::gesv(int n, int rhs, - std::complex* a, int lda, - int* ipiv, std::complex* b, - int ldb, int info) { +void HostLapack>::gesv(int n, int rhs, + std::complex* a, int lda, + int* ipiv, std::complex* b, + int ldb, int info) { F77_FUNC_CGESV(&n, &rhs, a, &lda, ipiv, b, &ldb, &info); } template <> -void HostLapack >::gesvd( +void HostLapack>::gesvd( const char jobu, const char jobvt, const int m, const int n, std::complex* a, const int lda, float* s, std::complex* u, const int ldu, std::complex* vt, const int ldvt, @@ -208,16 +209,18 @@ void HostLapack >::gesvd( &lwork, rwork, &info); } template <> -int HostLapack >::trtri(const char uplo, const char diag, - int n, const std::complex* a, - int lda) { +int HostLapack>::trtri(const char uplo, const char diag, + int n, const std::complex* a, + int lda) { int info = 0; F77_FUNC_CTRTRI(&uplo, &diag, &n, a, &lda, &info); return info; } template <> -int HostLapack>::geqrf(int m, int n, std::complex* a, int lda, std::complex* tau, - std::complex* work, int lwork) { +int HostLapack>::geqrf(int m, int n, std::complex* a, + int lda, std::complex* tau, + std::complex* work, + int lwork) { int info = 0; F77_FUNC_CGEQRF(&m, &n, a, &lda, tau, work, &lwork, &info); return info; @@ -228,14 +231,14 @@ int HostLapack>::geqrf(int m, int n, std::complex* a, /// template <> -void HostLapack >::gesv(int n, int rhs, - std::complex* a, int lda, - int* ipiv, std::complex* b, - int ldb, int info) { +void HostLapack>::gesv(int n, int rhs, + std::complex* a, int lda, + int* ipiv, std::complex* b, + int ldb, int info) { F77_FUNC_ZGESV(&n, &rhs, a, &lda, ipiv, b, &ldb, &info); } template <> -void HostLapack >::gesvd( +void HostLapack>::gesvd( const char jobu, const char jobvt, const int m, const int n, std::complex* a, const int lda, double* s, std::complex* u, const int ldu, std::complex* vt, const int ldvt, @@ -244,17 +247,20 @@ void HostLapack >::gesvd( &lwork, rwork, &info); } template <> -int HostLapack >::trtri(const char uplo, const char diag, - int n, - const std::complex* a, - int lda) { +int HostLapack>::trtri(const char uplo, const char diag, + int n, + const std::complex* a, + int lda) { int info = 0; F77_FUNC_ZTRTRI(&uplo, &diag, &n, a, &lda, &info); return info; } template <> -int HostLapack>::geqrf(int m, int n, std::complex* a, int lda, std::complex* tau, - std::complex* work, int lwork) { +int HostLapack>::geqrf(int m, int n, + std::complex* a, int lda, + std::complex* tau, + std::complex* work, + int lwork) { int info = 0; F77_FUNC_ZGEQRF(&m, &n, a, &lda, tau, work, &lwork, &info); return info;