From 4fe39bc214d0b2e3e102a16adda8896c50455c44 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Thu, 14 Nov 2024 13:33:25 +0100
Subject: [PATCH] Fix cblas/lapacke prototype by removing incorrect and useless
const
---
.../include/chameleon/chameleon_zlapack.h | 106 +++++++++---------
lapack_api/src/lapack_api_common.c | 10 +-
lapack_api/src/lapack_zgemm.c | 20 ++--
lapack_api/src/lapack_zhemm.c | 20 ++--
lapack_api/src/lapack_zher2k.c | 20 ++--
lapack_api/src/lapack_zherk.c | 16 +--
lapack_api/src/lapack_zlacpy.c | 6 +-
lapack_api/src/lapack_zlange.c | 6 +-
lapack_api/src/lapack_zlanhe.c | 6 +-
lapack_api/src/lapack_zlansy.c | 6 +-
lapack_api/src/lapack_zlantr.c | 8 +-
lapack_api/src/lapack_zlaset.c | 10 +-
lapack_api/src/lapack_zlauum.c | 8 +-
lapack_api/src/lapack_zposv.c | 8 +-
lapack_api/src/lapack_zpotrf.c | 6 +-
lapack_api/src/lapack_zpotri.c | 6 +-
lapack_api/src/lapack_zpotrs.c | 8 +-
lapack_api/src/lapack_zsymm.c | 22 ++--
lapack_api/src/lapack_zsyr2k.c | 22 ++--
lapack_api/src/lapack_zsyrk.c | 18 +--
lapack_api/src/lapack_ztrmm.c | 22 ++--
lapack_api/src/lapack_ztrsm.c | 24 ++--
lapack_api/src/lapack_ztrtri.c | 6 +-
23 files changed, 192 insertions(+), 192 deletions(-)
diff --git a/lapack_api/include/chameleon/chameleon_zlapack.h b/lapack_api/include/chameleon/chameleon_zlapack.h
index c7da8cf49..5f8bdae88 100644
--- a/lapack_api/include/chameleon/chameleon_zlapack.h
+++ b/lapack_api/include/chameleon/chameleon_zlapack.h
@@ -27,57 +27,57 @@ BEGIN_C_DECLS
/**
* Declarations of math functions (LAPACK layout, Cblas/Lapacke interface) - alphabetical order
*/
-void CHAMELEON_cblas_zgemm( const CBLAS_ORDER order, const CBLAS_TRANSPOSE transA, const CBLAS_TRANSPOSE transB,
- const int M, const int N, const int K,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb,
- const void *beta, CHAMELEON_Complex64_t *C, const int ldc );
-
-void CHAMELEON_cblas_zhemm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo,
- const int M, const int N,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb,
- const void *beta, CHAMELEON_Complex64_t *C, const int ldc );
-
-void CHAMELEON_cblas_zher2k( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans,
- const int N, const int K,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb,
- const double beta, CHAMELEON_Complex64_t *C, const int ldc );
-
-void CHAMELEON_cblas_zherk( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans,
- const int N, const int K,
- const double alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const double beta, CHAMELEON_Complex64_t *C, const int ldc );
-
-void CHAMELEON_cblas_zsymm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo,
- const int M, const int N,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb,
- const void *beta, CHAMELEON_Complex64_t *C, const int ldc );
-
-void CHAMELEON_cblas_zsyr2k( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans,
- const int N, const int K,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb,
- const void *beta, CHAMELEON_Complex64_t *C, const int ldc );
-
-void CHAMELEON_cblas_zsyrk( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans,
- const int N, const int K,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const void *beta, CHAMELEON_Complex64_t *C, const int ldc );
-
-void CHAMELEON_cblas_ztrmm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo,
- const CBLAS_TRANSPOSE trans, const CBLAS_DIAG diag,
- const int M, const int N,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb );
-
-void CHAMELEON_cblas_ztrsm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo,
- const CBLAS_TRANSPOSE trans, const CBLAS_DIAG diag,
- const int M, const int N,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb );
+void CHAMELEON_cblas_zgemm( CBLAS_ORDER order, CBLAS_TRANSPOSE transA, CBLAS_TRANSPOSE transB,
+ int M, int N, int K,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const CHAMELEON_Complex64_t *B, int ldb,
+ const void *beta, CHAMELEON_Complex64_t *C, int ldc );
+
+void CHAMELEON_cblas_zhemm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
+ int M, int N,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const CHAMELEON_Complex64_t *B, int ldb,
+ const void *beta, CHAMELEON_Complex64_t *C, int ldc );
+
+void CHAMELEON_cblas_zher2k( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
+ int N, int K,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const CHAMELEON_Complex64_t *B, int ldb,
+ double beta, CHAMELEON_Complex64_t *C, int ldc );
+
+void CHAMELEON_cblas_zherk( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
+ int N, int K,
+ double alpha, const CHAMELEON_Complex64_t *A, int lda,
+ double beta, CHAMELEON_Complex64_t *C, int ldc );
+
+void CHAMELEON_cblas_zsymm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
+ int M, int N,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const CHAMELEON_Complex64_t *B, int ldb,
+ const void *beta, CHAMELEON_Complex64_t *C, int ldc );
+
+void CHAMELEON_cblas_zsyr2k( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
+ int N, int K,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const CHAMELEON_Complex64_t *B, int ldb,
+ const void *beta, CHAMELEON_Complex64_t *C, int ldc );
+
+void CHAMELEON_cblas_zsyrk( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
+ int N, int K,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const void *beta, CHAMELEON_Complex64_t *C, int ldc );
+
+void CHAMELEON_cblas_ztrmm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
+ CBLAS_TRANSPOSE trans, CBLAS_DIAG diag,
+ int M, int N,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ CHAMELEON_Complex64_t *B, int ldb );
+
+void CHAMELEON_cblas_ztrsm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
+ CBLAS_TRANSPOSE trans, CBLAS_DIAG diag,
+ int M, int N,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ CHAMELEON_Complex64_t *B, int ldb );
int CHAMELEON_lapacke_zlacpy( int matrix_layout, char uplo, int M, int N,
const CHAMELEON_Complex64_t *A, int lda,
@@ -96,8 +96,8 @@ double CHAMELEON_lapacke_zlantr( int matrix_layout, char norm, char uplo, char d
int M, int N, const CHAMELEON_Complex64_t *A, int lda );
int CHAMELEON_lapacke_zlaset( int matrix_layout, char uplo, int M, int N,
- const CHAMELEON_Complex64_t alpha, const CHAMELEON_Complex64_t beta,
- CHAMELEON_Complex64_t *A, int lda );
+ CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t beta,
+ CHAMELEON_Complex64_t *A, int lda );
int CHAMELEON_lapacke_zlauum( int matrix_layout, char uplo, int N,
CHAMELEON_Complex64_t *A, int lda );
diff --git a/lapack_api/src/lapack_api_common.c b/lapack_api/src/lapack_api_common.c
index cdf37d088..1fb71106c 100644
--- a/lapack_api/src/lapack_api_common.c
+++ b/lapack_api/src/lapack_api_common.c
@@ -24,7 +24,7 @@
* @return The CBLAS equivalent parameter (CblasNoTrans, CblasTrans or
* CblasConjTrans).
*/
-int chameleon_blastocblas_trans(const char* trans)
+int chameleon_blastocblas_trans(const char *trans)
{
if ( (*trans == 'N') || (*trans == 'n') ) {
return CblasNoTrans;
@@ -44,7 +44,7 @@ int chameleon_blastocblas_trans(const char* trans)
* @param[in] uplo The input char BLAS side parameter
* @return The CBLAS equivalent parameter (CblasLeft or CblasRight).
*/
-int chameleon_blastocblas_side(const char* side)
+int chameleon_blastocblas_side(const char *side)
{
if ( (*side == 'L') || (*side == 'l') ) {
return CblasLeft;
@@ -62,7 +62,7 @@ int chameleon_blastocblas_side(const char* side)
* @param[in] uplo The input char BLAS uplo parameter
* @return The CBLAS equivalent parameter (CblasUpper or CblasLower).
*/
-int chameleon_blastocblas_uplo(const char* uplo)
+int chameleon_blastocblas_uplo(const char *uplo)
{
if ( (*uplo == 'U') || (*uplo == 'u') ) {
return CblasUpper;
@@ -80,7 +80,7 @@ int chameleon_blastocblas_uplo(const char* uplo)
* @param[in] diag The input char BLAS diag parameter
* @return The CBLAS equivalent parameter (CblasUnit or CblasNonUnit).
*/
-int chameleon_blastocblas_diag(const char* diag)
+int chameleon_blastocblas_diag(const char *diag)
{
if ( (*diag == 'U') || (*diag == 'u') ) {
return CblasUnit;
@@ -98,7 +98,7 @@ int chameleon_blastocblas_diag(const char* diag)
* @param[in] norm The input char LAPACK norm parameter
* @return The Chameleon equivalent parameter (ChamMaxNorm, ChamOneNorm, etc).
*/
-int chameleon_lapacktochameleon_norm(const char* norm)
+int chameleon_lapacktochameleon_norm(const char *norm)
{
if ( (*norm == 'M') || (*norm == 'm') ) {
return ChamMaxNorm;
diff --git a/lapack_api/src/lapack_zgemm.c b/lapack_api/src/lapack_zgemm.c
index 8b4d2a847..92dc839ac 100644
--- a/lapack_api/src/lapack_zgemm.c
+++ b/lapack_api/src/lapack_zgemm.c
@@ -23,11 +23,11 @@
/* Fortran BLAS interface */
#define CHAMELEON_blas_zgemm CHAMELEON_GLOBAL( chameleon_blas_zgemm, CHAMELEON_BLAS_ZGEMM )
-void CHAMELEON_blas_zgemm ( const char* transa, const char* transb,
- const int* m, const int* n, const int* k,
- const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda,
- const CHAMELEON_Complex64_t* b, const int* ldb,
- const CHAMELEON_Complex64_t* beta, CHAMELEON_Complex64_t* c, const int* ldc )
+void CHAMELEON_blas_zgemm ( const char *transa, const char *transb,
+ const int *m, const int *n, const int *k,
+ const CHAMELEON_Complex64_t *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
+ const CHAMELEON_Complex64_t *b, const int *ldb,
+ const CHAMELEON_Complex64_t *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{
CHAMELEON_cblas_zgemm( CblasColMajor,
chameleon_blastocblas_trans(transa),
@@ -119,11 +119,11 @@ void CHAMELEON_blas_zgemm ( const char* transa, const char* transb,
* @sa CHAMELEON_cblas_sgemm
*
*/
-void CHAMELEON_cblas_zgemm( const CBLAS_ORDER order, const CBLAS_TRANSPOSE transA, const CBLAS_TRANSPOSE transB,
- const int M, const int N, const int K,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb,
- const void *beta, CHAMELEON_Complex64_t *C, const int ldc )
+void CHAMELEON_cblas_zgemm( CBLAS_ORDER order, CBLAS_TRANSPOSE transA, CBLAS_TRANSPOSE transB,
+ int M, int N, int K,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const CHAMELEON_Complex64_t *B, int ldb,
+ const void *beta, CHAMELEON_Complex64_t *C, int ldc )
{
if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zgemm", "illegal value of order" );
diff --git a/lapack_api/src/lapack_zhemm.c b/lapack_api/src/lapack_zhemm.c
index 672fc286e..884782198 100644
--- a/lapack_api/src/lapack_zhemm.c
+++ b/lapack_api/src/lapack_zhemm.c
@@ -23,11 +23,11 @@
/* Fortran BLAS interface */
#define CHAMELEON_blas_zhemm CHAMELEON_GLOBAL( chameleon_blas_zhemm, CHAMELEON_BLAS_ZHEMM )
-void CHAMELEON_blas_zhemm ( const char* side, const char* uplo,
- const int* m, const int* n,
- const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda,
- const CHAMELEON_Complex64_t* b, const int* ldb,
- const CHAMELEON_Complex64_t* beta, CHAMELEON_Complex64_t* c, const int* ldc )
+void CHAMELEON_blas_zhemm ( const char *side, const char *uplo,
+ const int *m, const int *n,
+ const CHAMELEON_Complex64_t *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
+ const CHAMELEON_Complex64_t *b, const int *ldb,
+ const CHAMELEON_Complex64_t *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{
CHAMELEON_cblas_zhemm( CblasColMajor,
chameleon_blastocblas_side(side),
@@ -117,11 +117,11 @@ void CHAMELEON_blas_zhemm ( const char* side, const char* uplo,
* @sa CHAMELEON_cblas_shemm
*
*/
-void CHAMELEON_cblas_zhemm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo,
- const int M, const int N,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb,
- const void *beta, CHAMELEON_Complex64_t *C, const int ldc )
+void CHAMELEON_cblas_zhemm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
+ int M, int N,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const CHAMELEON_Complex64_t *B, int ldb,
+ const void *beta, CHAMELEON_Complex64_t *C, int ldc )
{
if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zhemm", "illegal value of order" );
diff --git a/lapack_api/src/lapack_zher2k.c b/lapack_api/src/lapack_zher2k.c
index 474894cfe..62ea46b7f 100644
--- a/lapack_api/src/lapack_zher2k.c
+++ b/lapack_api/src/lapack_zher2k.c
@@ -23,11 +23,11 @@
/* Fortran BLAS interface */
#define CHAMELEON_blas_zher2k CHAMELEON_GLOBAL( chameleon_blas_zher2k, CHAMELEON_BLAS_ZHER2K )
-void CHAMELEON_blas_zher2k ( const char* uplo, const char* trans,
- const int* n, const int* k,
- const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda,
- const CHAMELEON_Complex64_t* b, const int* ldb,
- const double* beta, CHAMELEON_Complex64_t* c, const int* ldc )
+void CHAMELEON_blas_zher2k ( const char *uplo, const char *trans,
+ const int *n, const int *k,
+ const CHAMELEON_Complex64_t *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
+ const CHAMELEON_Complex64_t *b, const int *ldb,
+ const double *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{
CHAMELEON_cblas_zher2k( CblasColMajor,
chameleon_blastocblas_uplo(uplo),
@@ -119,11 +119,11 @@ void CHAMELEON_blas_zher2k ( const char* uplo, const char* trans,
* @sa CHAMELEON_cblas_sher2k
*
*/
-void CHAMELEON_cblas_zher2k( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans,
- const int N, const int K,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb,
- const double beta, CHAMELEON_Complex64_t *C, const int ldc )
+void CHAMELEON_cblas_zher2k( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
+ int N, int K,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const CHAMELEON_Complex64_t *B, int ldb,
+ double beta, CHAMELEON_Complex64_t *C, int ldc )
{
if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zher2k", "illegal value of order" );
diff --git a/lapack_api/src/lapack_zherk.c b/lapack_api/src/lapack_zherk.c
index 984ec6b47..f60bec85b 100644
--- a/lapack_api/src/lapack_zherk.c
+++ b/lapack_api/src/lapack_zherk.c
@@ -23,10 +23,10 @@
/* Fortran BLAS interface */
#define CHAMELEON_blas_zherk CHAMELEON_GLOBAL( chameleon_blas_zherk, CHAMELEON_BLAS_ZHERK )
-void CHAMELEON_blas_zherk ( const char* uplo, const char* trans,
- const int* n, const int* k,
- const double* alpha, const CHAMELEON_Complex64_t* a, const int* lda,
- const double* beta, CHAMELEON_Complex64_t* c, const int* ldc )
+void CHAMELEON_blas_zherk ( const char *uplo, const char *trans,
+ const int *n, const int *k,
+ const double *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
+ const double *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{
CHAMELEON_cblas_zherk( CblasColMajor,
chameleon_blastocblas_uplo(uplo),
@@ -107,10 +107,10 @@ void CHAMELEON_blas_zherk ( const char* uplo, const char* trans,
* @sa CHAMELEON_cblas_sherk
*
*/
-void CHAMELEON_cblas_zherk( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans,
- const int N, const int K,
- const double alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const double beta, CHAMELEON_Complex64_t *C, const int ldc )
+void CHAMELEON_cblas_zherk( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
+ int N, int K,
+ double alpha, const CHAMELEON_Complex64_t *A, int lda,
+ double beta, CHAMELEON_Complex64_t *C, int ldc )
{
if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zherk", "illegal value of order" );
diff --git a/lapack_api/src/lapack_zlacpy.c b/lapack_api/src/lapack_zlacpy.c
index 3d212a957..81bf4ba73 100644
--- a/lapack_api/src/lapack_zlacpy.c
+++ b/lapack_api/src/lapack_zlacpy.c
@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlacpy CHAMELEON_GLOBAL( chameleon_lapack_zlacpy, CHAMELEON_LAPACK_ZLACPY )
-void CHAMELEON_lapack_zlacpy ( const char* uplo, const int* m, const int* n,
- const CHAMELEON_Complex64_t* a, const int* lda,
- CHAMELEON_Complex64_t* b, const int* ldb )
+void CHAMELEON_lapack_zlacpy ( const char *uplo, const int *m, const int *n,
+ const CHAMELEON_Complex64_t *a, const int *lda,
+ CHAMELEON_Complex64_t *b, const int *ldb )
{
CHAMELEON_lapacke_zlacpy( CblasColMajor,
*uplo, *m, *n,
diff --git a/lapack_api/src/lapack_zlange.c b/lapack_api/src/lapack_zlange.c
index 4f93e7982..44465d302 100644
--- a/lapack_api/src/lapack_zlange.c
+++ b/lapack_api/src/lapack_zlange.c
@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlange CHAMELEON_GLOBAL( chameleon_lapack_zlange, CHAMELEON_LAPACK_ZLANGE )
-double CHAMELEON_lapack_zlange ( const char* norm, const int* m, const int* n,
- const CHAMELEON_Complex64_t* a, const int* lda,
- double* work )
+double CHAMELEON_lapack_zlange ( const char *norm, const int *m, const int *n,
+ const CHAMELEON_Complex64_t *a, const int *lda,
+ double *work )
{
(void)work;
return CHAMELEON_lapacke_zlange( CblasColMajor,
diff --git a/lapack_api/src/lapack_zlanhe.c b/lapack_api/src/lapack_zlanhe.c
index bb129810d..bb7c80bcb 100644
--- a/lapack_api/src/lapack_zlanhe.c
+++ b/lapack_api/src/lapack_zlanhe.c
@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlanhe CHAMELEON_GLOBAL( chameleon_lapack_zlanhe, CHAMELEON_LAPACK_ZLANHE )
-double CHAMELEON_lapack_zlanhe ( const char* norm, const char* uplo, const int* n,
- const CHAMELEON_Complex64_t* a, const int* lda,
- double* work )
+double CHAMELEON_lapack_zlanhe ( const char *norm, const char *uplo, const int *n,
+ const CHAMELEON_Complex64_t *a, const int *lda,
+ double *work )
{
(void)work;
return CHAMELEON_lapacke_zlanhe( CblasColMajor,
diff --git a/lapack_api/src/lapack_zlansy.c b/lapack_api/src/lapack_zlansy.c
index 51e95d158..e7d00e1e9 100644
--- a/lapack_api/src/lapack_zlansy.c
+++ b/lapack_api/src/lapack_zlansy.c
@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlansy CHAMELEON_GLOBAL( chameleon_lapack_zlansy, CHAMELEON_LAPACK_ZLANSY )
-double CHAMELEON_lapack_zlansy ( const char* norm, const char* uplo, const int* n,
- const CHAMELEON_Complex64_t* a, const int* lda,
- double* work )
+double CHAMELEON_lapack_zlansy ( const char *norm, const char *uplo, const int *n,
+ const CHAMELEON_Complex64_t *a, const int *lda,
+ double *work )
{
(void)work;
return CHAMELEON_lapacke_zlansy( CblasColMajor,
diff --git a/lapack_api/src/lapack_zlantr.c b/lapack_api/src/lapack_zlantr.c
index 81fbf09af..1572b0a32 100644
--- a/lapack_api/src/lapack_zlantr.c
+++ b/lapack_api/src/lapack_zlantr.c
@@ -23,10 +23,10 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlantr CHAMELEON_GLOBAL( chameleon_lapack_zlantr, CHAMELEON_LAPACK_ZLANTR )
-double CHAMELEON_lapack_zlantr ( const char* norm, const char* uplo, const char* diag,
- const int* m, const int* n,
- const CHAMELEON_Complex64_t* a, const int* lda,
- double* work )
+double CHAMELEON_lapack_zlantr ( const char *norm, const char *uplo, const char *diag,
+ const int *m, const int *n,
+ const CHAMELEON_Complex64_t *a, const int *lda,
+ double *work )
{
(void)work;
return CHAMELEON_lapacke_zlantr( CblasColMajor,
diff --git a/lapack_api/src/lapack_zlaset.c b/lapack_api/src/lapack_zlaset.c
index b2d08bac6..b1ee6eb03 100644
--- a/lapack_api/src/lapack_zlaset.c
+++ b/lapack_api/src/lapack_zlaset.c
@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlaset CHAMELEON_GLOBAL( chameleon_lapack_zlaset, CHAMELEON_LAPACK_ZLASET )
-void CHAMELEON_lapack_zlaset ( const char* uplo, const int* m, const int* n,
- const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* beta,
- CHAMELEON_Complex64_t* a, const int* lda )
+void CHAMELEON_lapack_zlaset ( const char *uplo, const int *m, const int *n,
+ const CHAMELEON_Complex64_t *alpha, const CHAMELEON_Complex64_t *beta,
+ CHAMELEON_Complex64_t *a, const int *lda )
{
CHAMELEON_lapacke_zlaset( CblasColMajor,
*uplo, *m, *n,
@@ -90,8 +90,8 @@ void CHAMELEON_lapack_zlaset ( const char* uplo, const int* m, const int* n,
*
*/
int CHAMELEON_lapacke_zlaset( int matrix_layout, char uplo, int M, int N,
- const CHAMELEON_Complex64_t alpha, const CHAMELEON_Complex64_t beta,
- CHAMELEON_Complex64_t *A, int lda )
+ CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t beta,
+ CHAMELEON_Complex64_t *A, int lda )
{
if ( matrix_layout != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_lapacke_zlaset", "illegal value of matrix_layout" );
diff --git a/lapack_api/src/lapack_zlauum.c b/lapack_api/src/lapack_zlauum.c
index c3a30eae0..440ba0fce 100644
--- a/lapack_api/src/lapack_zlauum.c
+++ b/lapack_api/src/lapack_zlauum.c
@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlauum CHAMELEON_GLOBAL( chameleon_lapack_zlauum, CHAMELEON_LAPACK_ZLAUUM )
-void CHAMELEON_lapack_zlauum ( const char* uplo, const int* n,
- CHAMELEON_Complex64_t* a, const int* lda,
- int* info )
+void CHAMELEON_lapack_zlauum ( const char *uplo, const int *n,
+ CHAMELEON_Complex64_t *a, const int *lda,
+ int *info )
{
*info = CHAMELEON_lapacke_zlauum( CblasColMajor,
*uplo, *n, a, *lda );
@@ -93,5 +93,5 @@ int CHAMELEON_lapacke_zlauum( int matrix_layout, char uplo, int N,
}
return CHAMELEON_zlauum( (cham_uplo_t)chameleon_blastocblas_uplo(&uplo), N,
- (CHAMELEON_Complex64_t *)A, lda );
+ A, lda );
}
diff --git a/lapack_api/src/lapack_zposv.c b/lapack_api/src/lapack_zposv.c
index 13d1192f5..1b7c51437 100644
--- a/lapack_api/src/lapack_zposv.c
+++ b/lapack_api/src/lapack_zposv.c
@@ -23,10 +23,10 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zposv CHAMELEON_GLOBAL( chameleon_lapack_zposv, CHAMELEON_LAPACK_ZPOSV )
-void CHAMELEON_lapack_zposv ( const char* uplo, const int* n, const int* nrhs,
- CHAMELEON_Complex64_t* a, const int* lda,
- CHAMELEON_Complex64_t* b, const int* ldb,
- int* info )
+void CHAMELEON_lapack_zposv ( const char *uplo, const int *n, const int *nrhs,
+ CHAMELEON_Complex64_t *a, const int *lda,
+ CHAMELEON_Complex64_t *b, const int *ldb,
+ int *info )
{
*info = CHAMELEON_lapacke_zposv( CblasColMajor,
*uplo, *n, *nrhs, a, *lda, b, *ldb );
diff --git a/lapack_api/src/lapack_zpotrf.c b/lapack_api/src/lapack_zpotrf.c
index 2fb7de729..f3d6cd1cd 100644
--- a/lapack_api/src/lapack_zpotrf.c
+++ b/lapack_api/src/lapack_zpotrf.c
@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zpotrf CHAMELEON_GLOBAL( chameleon_lapack_zpotrf, CHAMELEON_LAPACK_ZPOTRF )
-void CHAMELEON_lapack_zpotrf ( const char* uplo, const int* n,
- CHAMELEON_Complex64_t* a, const int* lda,
- int* info )
+void CHAMELEON_lapack_zpotrf ( const char *uplo, const int *n,
+ CHAMELEON_Complex64_t *a, const int *lda,
+ int *info )
{
*info = CHAMELEON_lapacke_zpotrf( CblasColMajor, *uplo, *n, a, *lda );
}
diff --git a/lapack_api/src/lapack_zpotri.c b/lapack_api/src/lapack_zpotri.c
index 0f5d41ff3..f0f7ab75b 100644
--- a/lapack_api/src/lapack_zpotri.c
+++ b/lapack_api/src/lapack_zpotri.c
@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zpotri CHAMELEON_GLOBAL( chameleon_lapack_zpotri, CHAMELEON_LAPACK_ZPOTRI )
-void CHAMELEON_lapack_zpotri ( const char* uplo, const int* n,
- CHAMELEON_Complex64_t* a, const int* lda,
- int* info )
+void CHAMELEON_lapack_zpotri ( const char *uplo, const int *n,
+ CHAMELEON_Complex64_t *a, const int *lda,
+ int *info )
{
*info = CHAMELEON_lapacke_zpotri( CblasColMajor, *uplo, *n, a, *lda );
}
diff --git a/lapack_api/src/lapack_zpotrs.c b/lapack_api/src/lapack_zpotrs.c
index f6a8841e2..f27196f27 100644
--- a/lapack_api/src/lapack_zpotrs.c
+++ b/lapack_api/src/lapack_zpotrs.c
@@ -23,10 +23,10 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_zpotrs CHAMELEON_GLOBAL( chameleon_lapack_zpotrs, CHAMELEON_LAPACK_ZPOTRS )
-void CHAMELEON_lapack_zpotrs ( const char* uplo, const int* n, const int* nrhs,
- const CHAMELEON_Complex64_t* a, const int* lda,
- CHAMELEON_Complex64_t* b, const int* ldb,
- int* info )
+void CHAMELEON_lapack_zpotrs ( const char *uplo, const int *n, const int *nrhs,
+ const CHAMELEON_Complex64_t *a, const int *lda,
+ CHAMELEON_Complex64_t *b, const int *ldb,
+ int *info )
{
*info = CHAMELEON_lapacke_zpotrs( CblasColMajor,
*uplo, *n, *nrhs, a, *lda, b, *ldb );
diff --git a/lapack_api/src/lapack_zsymm.c b/lapack_api/src/lapack_zsymm.c
index cc648c112..9bd3740f4 100644
--- a/lapack_api/src/lapack_zsymm.c
+++ b/lapack_api/src/lapack_zsymm.c
@@ -23,11 +23,11 @@
/* Fortran BLAS interface */
#define CHAMELEON_blas_zsymm CHAMELEON_GLOBAL( chameleon_blas_zsymm, CHAMELEON_BLAS_ZSYMM )
-void CHAMELEON_blas_zsymm ( const char* side, const char* uplo,
- const int* m, const int* n,
- const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda,
- const CHAMELEON_Complex64_t* b, const int* ldb,
- const CHAMELEON_Complex64_t* beta, CHAMELEON_Complex64_t* c, const int* ldc )
+void CHAMELEON_blas_zsymm ( const char *side, const char *uplo,
+ const int *m, const int *n,
+ const CHAMELEON_Complex64_t *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
+ const CHAMELEON_Complex64_t *b, const int *ldb,
+ const CHAMELEON_Complex64_t *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{
CHAMELEON_cblas_zsymm( CblasColMajor,
chameleon_blastocblas_side(side),
@@ -117,11 +117,11 @@ void CHAMELEON_blas_zsymm ( const char* side, const char* uplo,
* @sa CHAMELEON_cblas_ssymm
*
*/
-void CHAMELEON_cblas_zsymm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo,
- const int M, const int N,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb,
- const void *beta, CHAMELEON_Complex64_t *C, const int ldc )
+void CHAMELEON_cblas_zsymm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
+ int M, int N,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const CHAMELEON_Complex64_t *B, int ldb,
+ const void *beta, CHAMELEON_Complex64_t *C, int ldc )
{
if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zsymm", "illegal value of order" );
@@ -139,5 +139,5 @@ void CHAMELEON_cblas_zsymm( const CBLAS_ORDER order, const CBLAS_SIDE side, cons
CHAMELEON_zsymm( (cham_side_t)side, (cham_uplo_t)uplo, M, N,
alphac, (CHAMELEON_Complex64_t *)A, lda,
(CHAMELEON_Complex64_t *)B, ldb,
- betac, (CHAMELEON_Complex64_t *)C, ldc );
+ betac, C, ldc );
}
diff --git a/lapack_api/src/lapack_zsyr2k.c b/lapack_api/src/lapack_zsyr2k.c
index dc962461b..e43fee96b 100644
--- a/lapack_api/src/lapack_zsyr2k.c
+++ b/lapack_api/src/lapack_zsyr2k.c
@@ -23,11 +23,11 @@
/* Fortran BLAS interface */
#define CHAMELEON_blas_zsyr2k CHAMELEON_GLOBAL( chameleon_blas_zsyr2k, CHAMELEON_BLAS_ZSYR2K )
-void CHAMELEON_blas_zsyr2k ( const char* uplo, const char* trans,
- const int* n, const int* k,
- const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda,
- const CHAMELEON_Complex64_t* b, const int* ldb,
- const CHAMELEON_Complex64_t* beta, CHAMELEON_Complex64_t* c, const int* ldc )
+void CHAMELEON_blas_zsyr2k ( const char *uplo, const char *trans,
+ const int *n, const int *k,
+ const CHAMELEON_Complex64_t *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
+ const CHAMELEON_Complex64_t *b, const int *ldb,
+ const CHAMELEON_Complex64_t *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{
CHAMELEON_cblas_zsyr2k( CblasColMajor,
chameleon_blastocblas_uplo(uplo),
@@ -115,11 +115,11 @@ void CHAMELEON_blas_zsyr2k ( const char* uplo, const char* trans,
* @sa CHAMELEON_cblas_ssyr2k
*
*/
-void CHAMELEON_cblas_zsyr2k( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans,
- const int N, const int K,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb,
- const void *beta, CHAMELEON_Complex64_t *C, const int ldc )
+void CHAMELEON_cblas_zsyr2k( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
+ int N, int K,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const CHAMELEON_Complex64_t *B, int ldb,
+ const void *beta, CHAMELEON_Complex64_t *C, int ldc )
{
if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zsyr2k", "illegal value of order" );
@@ -137,5 +137,5 @@ void CHAMELEON_cblas_zsyr2k( const CBLAS_ORDER order, const CBLAS_UPLO uplo, con
CHAMELEON_zsyr2k( (cham_uplo_t)uplo, (cham_trans_t)trans, N, K,
alphac, (CHAMELEON_Complex64_t *)A, lda,
(CHAMELEON_Complex64_t *)B, ldb,
- betac, (CHAMELEON_Complex64_t *)C, ldc );
+ betac, C, ldc );
}
diff --git a/lapack_api/src/lapack_zsyrk.c b/lapack_api/src/lapack_zsyrk.c
index f698e0026..70d6de8f6 100644
--- a/lapack_api/src/lapack_zsyrk.c
+++ b/lapack_api/src/lapack_zsyrk.c
@@ -23,10 +23,10 @@
/* Fortran BLAS interface */
#define CHAMELEON_blas_zsyrk CHAMELEON_GLOBAL( chameleon_blas_zsyrk, CHAMELEON_BLAS_ZSYRK )
-void CHAMELEON_blas_zsyrk ( const char* uplo, const char* trans,
- const int* n, const int* k,
- const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda,
- const CHAMELEON_Complex64_t* beta, CHAMELEON_Complex64_t* c, const int* ldc )
+void CHAMELEON_blas_zsyrk ( const char *uplo, const char *trans,
+ const int *n, const int *k,
+ const CHAMELEON_Complex64_t *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
+ const CHAMELEON_Complex64_t *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{
CHAMELEON_cblas_zsyrk( CblasColMajor,
chameleon_blastocblas_uplo(uplo),
@@ -105,10 +105,10 @@ void CHAMELEON_blas_zsyrk ( const char* uplo, const char* trans,
* @sa CHAMELEON_cblas_ssyrk
*
*/
-void CHAMELEON_cblas_zsyrk( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans,
- const int N, const int K,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const void *beta, CHAMELEON_Complex64_t *C, const int ldc )
+void CHAMELEON_cblas_zsyrk( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
+ int N, int K,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ const void *beta, CHAMELEON_Complex64_t *C, int ldc )
{
if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zsyrk", "illegal value of order" );
@@ -125,5 +125,5 @@ void CHAMELEON_cblas_zsyrk( const CBLAS_ORDER order, const CBLAS_UPLO uplo, cons
CHAMELEON_zsyrk( (cham_uplo_t)uplo, (cham_trans_t)trans, N, K,
alphac, (CHAMELEON_Complex64_t *)A, lda,
- betac, (CHAMELEON_Complex64_t *)C, ldc );
+ betac, C, ldc );
}
diff --git a/lapack_api/src/lapack_ztrmm.c b/lapack_api/src/lapack_ztrmm.c
index ffb983226..daed27fda 100644
--- a/lapack_api/src/lapack_ztrmm.c
+++ b/lapack_api/src/lapack_ztrmm.c
@@ -23,11 +23,11 @@
/* Fortran BLAS interface */
#define CHAMELEON_blas_ztrmm CHAMELEON_GLOBAL( chameleon_blas_ztrmm, CHAMELEON_BLAS_ZTRMM )
-void CHAMELEON_blas_ztrmm ( const char* side, const char* uplo,
- const char* trans, const char* diag,
- const int* m, const int* n,
- const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda,
- const CHAMELEON_Complex64_t* b, const int* ldb )
+void CHAMELEON_blas_ztrmm ( const char *side, const char *uplo,
+ const char *trans, const char *diag,
+ const int *m, const int *n,
+ const CHAMELEON_Complex64_t *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
+ CHAMELEON_Complex64_t *b, const int *ldb )
{
CHAMELEON_cblas_ztrmm( CblasColMajor,
chameleon_blastocblas_side(side),
@@ -112,11 +112,11 @@ void CHAMELEON_blas_ztrmm ( const char* side, const char* uplo,
* @sa CHAMELEON_cblas_strmm
*
*/
-void CHAMELEON_cblas_ztrmm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo,
- const CBLAS_TRANSPOSE trans, const CBLAS_DIAG diag,
- const int M, const int N,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb )
+void CHAMELEON_cblas_ztrmm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
+ CBLAS_TRANSPOSE trans, CBLAS_DIAG diag,
+ int M, int N,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ CHAMELEON_Complex64_t *B, int ldb )
{
if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_ztrmm", "illegal value of order" );
@@ -133,5 +133,5 @@ void CHAMELEON_cblas_ztrmm( const CBLAS_ORDER order, const CBLAS_SIDE side, cons
(cham_trans_t)trans, (cham_diag_t)diag,
M, N,
alphac, (CHAMELEON_Complex64_t *)A, lda,
- (CHAMELEON_Complex64_t *)B, ldb );
+ B, ldb );
}
diff --git a/lapack_api/src/lapack_ztrsm.c b/lapack_api/src/lapack_ztrsm.c
index 712db9e4b..074a01c09 100644
--- a/lapack_api/src/lapack_ztrsm.c
+++ b/lapack_api/src/lapack_ztrsm.c
@@ -23,11 +23,11 @@
/* Fortran BLAS interface */
#define CHAMELEON_blas_ztrsm CHAMELEON_GLOBAL( chameleon_blas_ztrsm, CHAMELEON_BLAS_ZTRSM )
-void CHAMELEON_blas_ztrsm ( const char* side, const char* uplo,
- const char* trans, const char* diag,
- const int* m, const int* n,
- const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda,
- const CHAMELEON_Complex64_t* b, const int* ldb )
+void CHAMELEON_blas_ztrsm ( const char *side, const char *uplo,
+ const char *trans, const char *diag,
+ const int *m, const int *n,
+ const CHAMELEON_Complex64_t *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
+ CHAMELEON_Complex64_t *b, const int *ldb )
{
CHAMELEON_cblas_ztrsm( CblasColMajor,
chameleon_blastocblas_side(side),
@@ -132,11 +132,11 @@ void CHAMELEON_blas_ztrsm ( const char* side, const char* uplo,
* @sa CHAMELEON_cblas_strsm
*
*/
-void CHAMELEON_cblas_ztrsm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo,
- const CBLAS_TRANSPOSE trans, const CBLAS_DIAG diag,
- const int M, const int N,
- const void *alpha, const CHAMELEON_Complex64_t *A, const int lda,
- const CHAMELEON_Complex64_t *B, const int ldb )
+void CHAMELEON_cblas_ztrsm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
+ CBLAS_TRANSPOSE trans, CBLAS_DIAG diag,
+ int M, int N,
+ const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
+ CHAMELEON_Complex64_t *B, int ldb )
{
if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_ztrsm", "illegal value of order" );
@@ -152,6 +152,6 @@ void CHAMELEON_cblas_ztrsm( const CBLAS_ORDER order, const CBLAS_SIDE side, cons
CHAMELEON_ztrsm( (cham_side_t)side, (cham_uplo_t)uplo,
(cham_trans_t)trans, (cham_diag_t)diag,
M, N,
- alphac, (CHAMELEON_Complex64_t *)A, lda,
- (CHAMELEON_Complex64_t *)B, ldb );
+ alphac, (CHAMELEON_Complex64_t*)A, lda,
+ B, ldb );
}
diff --git a/lapack_api/src/lapack_ztrtri.c b/lapack_api/src/lapack_ztrtri.c
index 8f06d5e04..21c4c6d63 100644
--- a/lapack_api/src/lapack_ztrtri.c
+++ b/lapack_api/src/lapack_ztrtri.c
@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */
#define CHAMELEON_lapack_ztrtri CHAMELEON_GLOBAL( chameleon_lapack_ztrtri, CHAMELEON_LAPACK_ZTRTRI )
-void CHAMELEON_lapack_ztrtri ( const char* uplo, const char* diag, const int* n,
- CHAMELEON_Complex64_t* a, const int* lda,
- int* info )
+void CHAMELEON_lapack_ztrtri ( const char *uplo, const char *diag, const int *n,
+ CHAMELEON_Complex64_t *a, const int *lda,
+ int *info )
{
*info = CHAMELEON_lapacke_ztrtri( CblasColMajor,
*uplo, *diag, *n, a, *lda );
--
GitLab