Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 4fe39bc2 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Fix cblas/lapacke prototype by removing incorrect and useless const

parent 047c79dd
No related branches found
No related tags found
1 merge request!498Fix cblas/lapacke prototypes by removing incorrect and useless const
Hide whitespace changes
Inline Side-by-side
Showing
with 166 additions and 166 deletions
lapack_api/include/chameleon/chameleon_zlapack.h
+ 53
− 53
View file @ 4fe39bc2
...@@ -27,57 +27,57 @@ BEGIN_C_DECLS ...@@ -27,57 +27,57 @@ BEGIN_C_DECLS
/** /**
* Declarations of math functions (LAPACK layout, Cblas/Lapacke interface) - alphabetical order * 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, void CHAMELEON_cblas_zgemm( CBLAS_ORDER order, CBLAS_TRANSPOSE transA, CBLAS_TRANSPOSE transB,
const int M, const int N, const int K, int M, int N, int K,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb, const CHAMELEON_Complex64_t *B, int ldb,
const void *beta, CHAMELEON_Complex64_t *C, const int ldc ); const void *beta, CHAMELEON_Complex64_t *C, int ldc );
void CHAMELEON_cblas_zhemm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo, void CHAMELEON_cblas_zhemm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
const int M, const int N, int M, int N,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb, const CHAMELEON_Complex64_t *B, int ldb,
const void *beta, CHAMELEON_Complex64_t *C, const int ldc ); const void *beta, CHAMELEON_Complex64_t *C, int ldc );
void CHAMELEON_cblas_zher2k( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans, void CHAMELEON_cblas_zher2k( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
const int N, const int K, int N, int K,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb, const CHAMELEON_Complex64_t *B, int ldb,
const double beta, CHAMELEON_Complex64_t *C, const int ldc ); double beta, CHAMELEON_Complex64_t *C, int ldc );
void CHAMELEON_cblas_zherk( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans, void CHAMELEON_cblas_zherk( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
const int N, const int K, int N, int K,
const double alpha, const CHAMELEON_Complex64_t *A, const int lda, double alpha, const CHAMELEON_Complex64_t *A, int lda,
const double beta, CHAMELEON_Complex64_t *C, const int ldc ); double beta, CHAMELEON_Complex64_t *C, int ldc );
void CHAMELEON_cblas_zsymm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo, void CHAMELEON_cblas_zsymm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
const int M, const int N, int M, int N,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb, const CHAMELEON_Complex64_t *B, int ldb,
const void *beta, CHAMELEON_Complex64_t *C, const int ldc ); const void *beta, CHAMELEON_Complex64_t *C, int ldc );
void CHAMELEON_cblas_zsyr2k( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans, void CHAMELEON_cblas_zsyr2k( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
const int N, const int K, int N, int K,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb, const CHAMELEON_Complex64_t *B, int ldb,
const void *beta, CHAMELEON_Complex64_t *C, const int ldc ); const void *beta, CHAMELEON_Complex64_t *C, int ldc );
void CHAMELEON_cblas_zsyrk( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans, void CHAMELEON_cblas_zsyrk( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
const int N, const int K, int N, int K,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const void *beta, CHAMELEON_Complex64_t *C, const int ldc ); const void *beta, CHAMELEON_Complex64_t *C, int ldc );
void CHAMELEON_cblas_ztrmm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo, void CHAMELEON_cblas_ztrmm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
const CBLAS_TRANSPOSE trans, const CBLAS_DIAG diag, CBLAS_TRANSPOSE trans, CBLAS_DIAG diag,
const int M, const int N, int M, int N,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb ); CHAMELEON_Complex64_t *B, int ldb );
void CHAMELEON_cblas_ztrsm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo, void CHAMELEON_cblas_ztrsm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
const CBLAS_TRANSPOSE trans, const CBLAS_DIAG diag, CBLAS_TRANSPOSE trans, CBLAS_DIAG diag,
const int M, const int N, int M, int N,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb ); CHAMELEON_Complex64_t *B, int ldb );
int CHAMELEON_lapacke_zlacpy( int matrix_layout, char uplo, int M, int N, int CHAMELEON_lapacke_zlacpy( int matrix_layout, char uplo, int M, int N,
const CHAMELEON_Complex64_t *A, int lda, const CHAMELEON_Complex64_t *A, int lda,
...@@ -96,8 +96,8 @@ double CHAMELEON_lapacke_zlantr( int matrix_layout, char norm, char uplo, char d ...@@ -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 M, int N, const CHAMELEON_Complex64_t *A, int lda );
int CHAMELEON_lapacke_zlaset( int matrix_layout, char uplo, int M, 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 alpha, CHAMELEON_Complex64_t beta,
CHAMELEON_Complex64_t *A, int lda ); CHAMELEON_Complex64_t *A, int lda );
int CHAMELEON_lapacke_zlauum( int matrix_layout, char uplo, int N, int CHAMELEON_lapacke_zlauum( int matrix_layout, char uplo, int N,
CHAMELEON_Complex64_t *A, int lda ); CHAMELEON_Complex64_t *A, int lda );
......
lapack_api/src/lapack_api_common.c
+ 5
− 5
View file @ 4fe39bc2
...@@ -24,7 +24,7 @@ ...@@ -24,7 +24,7 @@
* @return The CBLAS equivalent parameter (CblasNoTrans, CblasTrans or * @return The CBLAS equivalent parameter (CblasNoTrans, CblasTrans or
* CblasConjTrans). * CblasConjTrans).
*/ */
int chameleon_blastocblas_trans(const char* trans) int chameleon_blastocblas_trans(const char *trans)
{ {
if ( (*trans == 'N') || (*trans == 'n') ) { if ( (*trans == 'N') || (*trans == 'n') ) {
return CblasNoTrans; return CblasNoTrans;
...@@ -44,7 +44,7 @@ int chameleon_blastocblas_trans(const char* trans) ...@@ -44,7 +44,7 @@ int chameleon_blastocblas_trans(const char* trans)
* @param[in] uplo The input char BLAS side parameter * @param[in] uplo The input char BLAS side parameter
* @return The CBLAS equivalent parameter (CblasLeft or CblasRight). * @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') ) { if ( (*side == 'L') || (*side == 'l') ) {
return CblasLeft; return CblasLeft;
...@@ -62,7 +62,7 @@ int chameleon_blastocblas_side(const char* side) ...@@ -62,7 +62,7 @@ int chameleon_blastocblas_side(const char* side)
* @param[in] uplo The input char BLAS uplo parameter * @param[in] uplo The input char BLAS uplo parameter
* @return The CBLAS equivalent parameter (CblasUpper or CblasLower). * @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') ) { if ( (*uplo == 'U') || (*uplo == 'u') ) {
return CblasUpper; return CblasUpper;
...@@ -80,7 +80,7 @@ int chameleon_blastocblas_uplo(const char* uplo) ...@@ -80,7 +80,7 @@ int chameleon_blastocblas_uplo(const char* uplo)
* @param[in] diag The input char BLAS diag parameter * @param[in] diag The input char BLAS diag parameter
* @return The CBLAS equivalent parameter (CblasUnit or CblasNonUnit). * @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') ) { if ( (*diag == 'U') || (*diag == 'u') ) {
return CblasUnit; return CblasUnit;
...@@ -98,7 +98,7 @@ int chameleon_blastocblas_diag(const char* diag) ...@@ -98,7 +98,7 @@ int chameleon_blastocblas_diag(const char* diag)
* @param[in] norm The input char LAPACK norm parameter * @param[in] norm The input char LAPACK norm parameter
* @return The Chameleon equivalent parameter (ChamMaxNorm, ChamOneNorm, etc). * @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') ) { if ( (*norm == 'M') || (*norm == 'm') ) {
return ChamMaxNorm; return ChamMaxNorm;
......
lapack_api/src/lapack_zgemm.c
+ 10
− 10
View file @ 4fe39bc2
...@@ -23,11 +23,11 @@ ...@@ -23,11 +23,11 @@
/* Fortran BLAS interface */ /* Fortran BLAS interface */
#define CHAMELEON_blas_zgemm CHAMELEON_GLOBAL( chameleon_blas_zgemm, CHAMELEON_BLAS_ZGEMM ) #define CHAMELEON_blas_zgemm CHAMELEON_GLOBAL( chameleon_blas_zgemm, CHAMELEON_BLAS_ZGEMM )
void CHAMELEON_blas_zgemm ( const char* transa, const char* transb, void CHAMELEON_blas_zgemm ( const char *transa, const char *transb,
const int* m, const int* n, const int* k, 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 *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
const CHAMELEON_Complex64_t* b, const int* ldb, const CHAMELEON_Complex64_t *b, const int *ldb,
const CHAMELEON_Complex64_t* beta, CHAMELEON_Complex64_t* c, const int* ldc ) const CHAMELEON_Complex64_t *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{ {
CHAMELEON_cblas_zgemm( CblasColMajor, CHAMELEON_cblas_zgemm( CblasColMajor,
chameleon_blastocblas_trans(transa), chameleon_blastocblas_trans(transa),
...@@ -119,11 +119,11 @@ void CHAMELEON_blas_zgemm ( const char* transa, const char* transb, ...@@ -119,11 +119,11 @@ void CHAMELEON_blas_zgemm ( const char* transa, const char* transb,
* @sa CHAMELEON_cblas_sgemm * @sa CHAMELEON_cblas_sgemm
* *
*/ */
void CHAMELEON_cblas_zgemm( const CBLAS_ORDER order, const CBLAS_TRANSPOSE transA, const CBLAS_TRANSPOSE transB, void CHAMELEON_cblas_zgemm( CBLAS_ORDER order, CBLAS_TRANSPOSE transA, CBLAS_TRANSPOSE transB,
const int M, const int N, const int K, int M, int N, int K,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb, const CHAMELEON_Complex64_t *B, int ldb,
const void *beta, CHAMELEON_Complex64_t *C, const int ldc ) const void *beta, CHAMELEON_Complex64_t *C, int ldc )
{ {
if ( order != CblasColMajor ){ if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zgemm", "illegal value of order" ); fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zgemm", "illegal value of order" );
......
lapack_api/src/lapack_zhemm.c
+ 10
− 10
View file @ 4fe39bc2
...@@ -23,11 +23,11 @@ ...@@ -23,11 +23,11 @@
/* Fortran BLAS interface */ /* Fortran BLAS interface */
#define CHAMELEON_blas_zhemm CHAMELEON_GLOBAL( chameleon_blas_zhemm, CHAMELEON_BLAS_ZHEMM ) #define CHAMELEON_blas_zhemm CHAMELEON_GLOBAL( chameleon_blas_zhemm, CHAMELEON_BLAS_ZHEMM )
void CHAMELEON_blas_zhemm ( const char* side, const char* uplo, void CHAMELEON_blas_zhemm ( const char *side, const char *uplo,
const int* m, const int* n, const int *m, const int *n,
const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda, 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 *b, const int *ldb,
const CHAMELEON_Complex64_t* beta, CHAMELEON_Complex64_t* c, const int* ldc ) const CHAMELEON_Complex64_t *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{ {
CHAMELEON_cblas_zhemm( CblasColMajor, CHAMELEON_cblas_zhemm( CblasColMajor,
chameleon_blastocblas_side(side), chameleon_blastocblas_side(side),
...@@ -117,11 +117,11 @@ void CHAMELEON_blas_zhemm ( const char* side, const char* uplo, ...@@ -117,11 +117,11 @@ void CHAMELEON_blas_zhemm ( const char* side, const char* uplo,
* @sa CHAMELEON_cblas_shemm * @sa CHAMELEON_cblas_shemm
* *
*/ */
void CHAMELEON_cblas_zhemm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo, void CHAMELEON_cblas_zhemm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
const int M, const int N, int M, int N,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb, const CHAMELEON_Complex64_t *B, int ldb,
const void *beta, CHAMELEON_Complex64_t *C, const int ldc ) const void *beta, CHAMELEON_Complex64_t *C, int ldc )
{ {
if ( order != CblasColMajor ){ if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zhemm", "illegal value of order" ); fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zhemm", "illegal value of order" );
......
lapack_api/src/lapack_zher2k.c
+ 10
− 10
View file @ 4fe39bc2
...@@ -23,11 +23,11 @@ ...@@ -23,11 +23,11 @@
/* Fortran BLAS interface */ /* Fortran BLAS interface */
#define CHAMELEON_blas_zher2k CHAMELEON_GLOBAL( chameleon_blas_zher2k, CHAMELEON_BLAS_ZHER2K ) #define CHAMELEON_blas_zher2k CHAMELEON_GLOBAL( chameleon_blas_zher2k, CHAMELEON_BLAS_ZHER2K )
void CHAMELEON_blas_zher2k ( const char* uplo, const char* trans, void CHAMELEON_blas_zher2k ( const char *uplo, const char *trans,
const int* n, const int* k, const int *n, const int *k,
const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda, 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 *b, const int *ldb,
const double* beta, CHAMELEON_Complex64_t* c, const int* ldc ) const double *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{ {
CHAMELEON_cblas_zher2k( CblasColMajor, CHAMELEON_cblas_zher2k( CblasColMajor,
chameleon_blastocblas_uplo(uplo), chameleon_blastocblas_uplo(uplo),
...@@ -119,11 +119,11 @@ void CHAMELEON_blas_zher2k ( const char* uplo, const char* trans, ...@@ -119,11 +119,11 @@ void CHAMELEON_blas_zher2k ( const char* uplo, const char* trans,
* @sa CHAMELEON_cblas_sher2k * @sa CHAMELEON_cblas_sher2k
* *
*/ */
void CHAMELEON_cblas_zher2k( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans, void CHAMELEON_cblas_zher2k( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
const int N, const int K, int N, int K,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb, const CHAMELEON_Complex64_t *B, int ldb,
const double beta, CHAMELEON_Complex64_t *C, const int ldc ) double beta, CHAMELEON_Complex64_t *C, int ldc )
{ {
if ( order != CblasColMajor ){ if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zher2k", "illegal value of order" ); fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zher2k", "illegal value of order" );
......
lapack_api/src/lapack_zherk.c
+ 8
− 8
View file @ 4fe39bc2
...@@ -23,10 +23,10 @@ ...@@ -23,10 +23,10 @@
/* Fortran BLAS interface */ /* Fortran BLAS interface */
#define CHAMELEON_blas_zherk CHAMELEON_GLOBAL( chameleon_blas_zherk, CHAMELEON_BLAS_ZHERK ) #define CHAMELEON_blas_zherk CHAMELEON_GLOBAL( chameleon_blas_zherk, CHAMELEON_BLAS_ZHERK )
void CHAMELEON_blas_zherk ( const char* uplo, const char* trans, void CHAMELEON_blas_zherk ( const char *uplo, const char *trans,
const int* n, const int* k, const int *n, const int *k,
const double* alpha, const CHAMELEON_Complex64_t* a, const int* lda, const double *alpha, const CHAMELEON_Complex64_t *a, const int *lda,
const double* beta, CHAMELEON_Complex64_t* c, const int* ldc ) const double *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{ {
CHAMELEON_cblas_zherk( CblasColMajor, CHAMELEON_cblas_zherk( CblasColMajor,
chameleon_blastocblas_uplo(uplo), chameleon_blastocblas_uplo(uplo),
...@@ -107,10 +107,10 @@ void CHAMELEON_blas_zherk ( const char* uplo, const char* trans, ...@@ -107,10 +107,10 @@ void CHAMELEON_blas_zherk ( const char* uplo, const char* trans,
* @sa CHAMELEON_cblas_sherk * @sa CHAMELEON_cblas_sherk
* *
*/ */
void CHAMELEON_cblas_zherk( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans, void CHAMELEON_cblas_zherk( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
const int N, const int K, int N, int K,
const double alpha, const CHAMELEON_Complex64_t *A, const int lda, double alpha, const CHAMELEON_Complex64_t *A, int lda,
const double beta, CHAMELEON_Complex64_t *C, const int ldc ) double beta, CHAMELEON_Complex64_t *C, int ldc )
{ {
if ( order != CblasColMajor ){ if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zherk", "illegal value of order" ); fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zherk", "illegal value of order" );
......
lapack_api/src/lapack_zlacpy.c
+ 3
− 3
View file @ 4fe39bc2
...@@ -23,9 +23,9 @@ ...@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlacpy CHAMELEON_GLOBAL( chameleon_lapack_zlacpy, CHAMELEON_LAPACK_ZLACPY ) #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, void CHAMELEON_lapack_zlacpy ( const char *uplo, const int *m, const int *n,
const CHAMELEON_Complex64_t* a, const int* lda, const CHAMELEON_Complex64_t *a, const int *lda,
CHAMELEON_Complex64_t* b, const int* ldb ) CHAMELEON_Complex64_t *b, const int *ldb )
{ {
CHAMELEON_lapacke_zlacpy( CblasColMajor, CHAMELEON_lapacke_zlacpy( CblasColMajor,
*uplo, *m, *n, *uplo, *m, *n,
......
lapack_api/src/lapack_zlange.c
+ 3
− 3
View file @ 4fe39bc2
...@@ -23,9 +23,9 @@ ...@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlange CHAMELEON_GLOBAL( chameleon_lapack_zlange, CHAMELEON_LAPACK_ZLANGE ) #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, double CHAMELEON_lapack_zlange ( const char *norm, const int *m, const int *n,
const CHAMELEON_Complex64_t* a, const int* lda, const CHAMELEON_Complex64_t *a, const int *lda,
double* work ) double *work )
{ {
(void)work; (void)work;
return CHAMELEON_lapacke_zlange( CblasColMajor, return CHAMELEON_lapacke_zlange( CblasColMajor,
......
lapack_api/src/lapack_zlanhe.c
+ 3
− 3
View file @ 4fe39bc2
...@@ -23,9 +23,9 @@ ...@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlanhe CHAMELEON_GLOBAL( chameleon_lapack_zlanhe, CHAMELEON_LAPACK_ZLANHE ) #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, double CHAMELEON_lapack_zlanhe ( const char *norm, const char *uplo, const int *n,
const CHAMELEON_Complex64_t* a, const int* lda, const CHAMELEON_Complex64_t *a, const int *lda,
double* work ) double *work )
{ {
(void)work; (void)work;
return CHAMELEON_lapacke_zlanhe( CblasColMajor, return CHAMELEON_lapacke_zlanhe( CblasColMajor,
......
lapack_api/src/lapack_zlansy.c
+ 3
− 3
View file @ 4fe39bc2
...@@ -23,9 +23,9 @@ ...@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlansy CHAMELEON_GLOBAL( chameleon_lapack_zlansy, CHAMELEON_LAPACK_ZLANSY ) #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, double CHAMELEON_lapack_zlansy ( const char *norm, const char *uplo, const int *n,
const CHAMELEON_Complex64_t* a, const int* lda, const CHAMELEON_Complex64_t *a, const int *lda,
double* work ) double *work )
{ {
(void)work; (void)work;
return CHAMELEON_lapacke_zlansy( CblasColMajor, return CHAMELEON_lapacke_zlansy( CblasColMajor,
......
lapack_api/src/lapack_zlantr.c
+ 4
− 4
View file @ 4fe39bc2
...@@ -23,10 +23,10 @@ ...@@ -23,10 +23,10 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlantr CHAMELEON_GLOBAL( chameleon_lapack_zlantr, CHAMELEON_LAPACK_ZLANTR ) #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, double CHAMELEON_lapack_zlantr ( const char *norm, const char *uplo, const char *diag,
const int* m, const int* n, const int *m, const int *n,
const CHAMELEON_Complex64_t* a, const int* lda, const CHAMELEON_Complex64_t *a, const int *lda,
double* work ) double *work )
{ {
(void)work; (void)work;
return CHAMELEON_lapacke_zlantr( CblasColMajor, return CHAMELEON_lapacke_zlantr( CblasColMajor,
......
lapack_api/src/lapack_zlaset.c
+ 5
− 5
View file @ 4fe39bc2
...@@ -23,9 +23,9 @@ ...@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlaset CHAMELEON_GLOBAL( chameleon_lapack_zlaset, CHAMELEON_LAPACK_ZLASET ) #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, void CHAMELEON_lapack_zlaset ( const char *uplo, const int *m, const int *n,
const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* beta, const CHAMELEON_Complex64_t *alpha, const CHAMELEON_Complex64_t *beta,
CHAMELEON_Complex64_t* a, const int* lda ) CHAMELEON_Complex64_t *a, const int *lda )
{ {
CHAMELEON_lapacke_zlaset( CblasColMajor, CHAMELEON_lapacke_zlaset( CblasColMajor,
*uplo, *m, *n, *uplo, *m, *n,
...@@ -90,8 +90,8 @@ void CHAMELEON_lapack_zlaset ( const char* uplo, const int* m, const int* 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, 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 alpha, CHAMELEON_Complex64_t beta,
CHAMELEON_Complex64_t *A, int lda ) CHAMELEON_Complex64_t *A, int lda )
{ {
if ( matrix_layout != CblasColMajor ){ if ( matrix_layout != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_lapacke_zlaset", "illegal value of matrix_layout" ); fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_lapacke_zlaset", "illegal value of matrix_layout" );
......
lapack_api/src/lapack_zlauum.c
+ 4
− 4
View file @ 4fe39bc2
...@@ -23,9 +23,9 @@ ...@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zlauum CHAMELEON_GLOBAL( chameleon_lapack_zlauum, CHAMELEON_LAPACK_ZLAUUM ) #define CHAMELEON_lapack_zlauum CHAMELEON_GLOBAL( chameleon_lapack_zlauum, CHAMELEON_LAPACK_ZLAUUM )
void CHAMELEON_lapack_zlauum ( const char* uplo, const int* n, void CHAMELEON_lapack_zlauum ( const char *uplo, const int *n,
CHAMELEON_Complex64_t* a, const int* lda, CHAMELEON_Complex64_t *a, const int *lda,
int* info ) int *info )
{ {
*info = CHAMELEON_lapacke_zlauum( CblasColMajor, *info = CHAMELEON_lapacke_zlauum( CblasColMajor,
*uplo, *n, a, *lda ); *uplo, *n, a, *lda );
...@@ -93,5 +93,5 @@ int CHAMELEON_lapacke_zlauum( int matrix_layout, char uplo, int N, ...@@ -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, return CHAMELEON_zlauum( (cham_uplo_t)chameleon_blastocblas_uplo(&uplo), N,
(CHAMELEON_Complex64_t *)A, lda ); A, lda );
} }
lapack_api/src/lapack_zposv.c
+ 4
− 4
View file @ 4fe39bc2
...@@ -23,10 +23,10 @@ ...@@ -23,10 +23,10 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zposv CHAMELEON_GLOBAL( chameleon_lapack_zposv, CHAMELEON_LAPACK_ZPOSV ) #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, void CHAMELEON_lapack_zposv ( const char *uplo, const int *n, const int *nrhs,
CHAMELEON_Complex64_t* a, const int* lda, CHAMELEON_Complex64_t *a, const int *lda,
CHAMELEON_Complex64_t* b, const int* ldb, CHAMELEON_Complex64_t *b, const int *ldb,
int* info ) int *info )
{ {
*info = CHAMELEON_lapacke_zposv( CblasColMajor, *info = CHAMELEON_lapacke_zposv( CblasColMajor,
*uplo, *n, *nrhs, a, *lda, b, *ldb ); *uplo, *n, *nrhs, a, *lda, b, *ldb );
......
lapack_api/src/lapack_zpotrf.c
+ 3
− 3
View file @ 4fe39bc2
...@@ -23,9 +23,9 @@ ...@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zpotrf CHAMELEON_GLOBAL( chameleon_lapack_zpotrf, CHAMELEON_LAPACK_ZPOTRF ) #define CHAMELEON_lapack_zpotrf CHAMELEON_GLOBAL( chameleon_lapack_zpotrf, CHAMELEON_LAPACK_ZPOTRF )
void CHAMELEON_lapack_zpotrf ( const char* uplo, const int* n, void CHAMELEON_lapack_zpotrf ( const char *uplo, const int *n,
CHAMELEON_Complex64_t* a, const int* lda, CHAMELEON_Complex64_t *a, const int *lda,
int* info ) int *info )
{ {
*info = CHAMELEON_lapacke_zpotrf( CblasColMajor, *uplo, *n, a, *lda ); *info = CHAMELEON_lapacke_zpotrf( CblasColMajor, *uplo, *n, a, *lda );
} }
......
lapack_api/src/lapack_zpotri.c
+ 3
− 3
View file @ 4fe39bc2
...@@ -23,9 +23,9 @@ ...@@ -23,9 +23,9 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zpotri CHAMELEON_GLOBAL( chameleon_lapack_zpotri, CHAMELEON_LAPACK_ZPOTRI ) #define CHAMELEON_lapack_zpotri CHAMELEON_GLOBAL( chameleon_lapack_zpotri, CHAMELEON_LAPACK_ZPOTRI )
void CHAMELEON_lapack_zpotri ( const char* uplo, const int* n, void CHAMELEON_lapack_zpotri ( const char *uplo, const int *n,
CHAMELEON_Complex64_t* a, const int* lda, CHAMELEON_Complex64_t *a, const int *lda,
int* info ) int *info )
{ {
*info = CHAMELEON_lapacke_zpotri( CblasColMajor, *uplo, *n, a, *lda ); *info = CHAMELEON_lapacke_zpotri( CblasColMajor, *uplo, *n, a, *lda );
} }
......
lapack_api/src/lapack_zpotrs.c
+ 4
− 4
View file @ 4fe39bc2
...@@ -23,10 +23,10 @@ ...@@ -23,10 +23,10 @@
/* Fortran LAPACK interface */ /* Fortran LAPACK interface */
#define CHAMELEON_lapack_zpotrs CHAMELEON_GLOBAL( chameleon_lapack_zpotrs, CHAMELEON_LAPACK_ZPOTRS ) #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, void CHAMELEON_lapack_zpotrs ( const char *uplo, const int *n, const int *nrhs,
const CHAMELEON_Complex64_t* a, const int* lda, const CHAMELEON_Complex64_t *a, const int *lda,
CHAMELEON_Complex64_t* b, const int* ldb, CHAMELEON_Complex64_t *b, const int *ldb,
int* info ) int *info )
{ {
*info = CHAMELEON_lapacke_zpotrs( CblasColMajor, *info = CHAMELEON_lapacke_zpotrs( CblasColMajor,
*uplo, *n, *nrhs, a, *lda, b, *ldb ); *uplo, *n, *nrhs, a, *lda, b, *ldb );
......
lapack_api/src/lapack_zsymm.c
+ 11
− 11
View file @ 4fe39bc2
...@@ -23,11 +23,11 @@ ...@@ -23,11 +23,11 @@
/* Fortran BLAS interface */ /* Fortran BLAS interface */
#define CHAMELEON_blas_zsymm CHAMELEON_GLOBAL( chameleon_blas_zsymm, CHAMELEON_BLAS_ZSYMM ) #define CHAMELEON_blas_zsymm CHAMELEON_GLOBAL( chameleon_blas_zsymm, CHAMELEON_BLAS_ZSYMM )
void CHAMELEON_blas_zsymm ( const char* side, const char* uplo, void CHAMELEON_blas_zsymm ( const char *side, const char *uplo,
const int* m, const int* n, const int *m, const int *n,
const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda, 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 *b, const int *ldb,
const CHAMELEON_Complex64_t* beta, CHAMELEON_Complex64_t* c, const int* ldc ) const CHAMELEON_Complex64_t *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{ {
CHAMELEON_cblas_zsymm( CblasColMajor, CHAMELEON_cblas_zsymm( CblasColMajor,
chameleon_blastocblas_side(side), chameleon_blastocblas_side(side),
...@@ -117,11 +117,11 @@ void CHAMELEON_blas_zsymm ( const char* side, const char* uplo, ...@@ -117,11 +117,11 @@ void CHAMELEON_blas_zsymm ( const char* side, const char* uplo,
* @sa CHAMELEON_cblas_ssymm * @sa CHAMELEON_cblas_ssymm
* *
*/ */
void CHAMELEON_cblas_zsymm( const CBLAS_ORDER order, const CBLAS_SIDE side, const CBLAS_UPLO uplo, void CHAMELEON_cblas_zsymm( CBLAS_ORDER order, CBLAS_SIDE side, CBLAS_UPLO uplo,
const int M, const int N, int M, int N,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb, const CHAMELEON_Complex64_t *B, int ldb,
const void *beta, CHAMELEON_Complex64_t *C, const int ldc ) const void *beta, CHAMELEON_Complex64_t *C, int ldc )
{ {
if ( order != CblasColMajor ){ if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zsymm", "illegal value of order" ); 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 ...@@ -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, CHAMELEON_zsymm( (cham_side_t)side, (cham_uplo_t)uplo, M, N,
alphac, (CHAMELEON_Complex64_t *)A, lda, alphac, (CHAMELEON_Complex64_t *)A, lda,
(CHAMELEON_Complex64_t *)B, ldb, (CHAMELEON_Complex64_t *)B, ldb,
betac, (CHAMELEON_Complex64_t *)C, ldc ); betac, C, ldc );
} }
lapack_api/src/lapack_zsyr2k.c
+ 11
− 11
View file @ 4fe39bc2
...@@ -23,11 +23,11 @@ ...@@ -23,11 +23,11 @@
/* Fortran BLAS interface */ /* Fortran BLAS interface */
#define CHAMELEON_blas_zsyr2k CHAMELEON_GLOBAL( chameleon_blas_zsyr2k, CHAMELEON_BLAS_ZSYR2K ) #define CHAMELEON_blas_zsyr2k CHAMELEON_GLOBAL( chameleon_blas_zsyr2k, CHAMELEON_BLAS_ZSYR2K )
void CHAMELEON_blas_zsyr2k ( const char* uplo, const char* trans, void CHAMELEON_blas_zsyr2k ( const char *uplo, const char *trans,
const int* n, const int* k, const int *n, const int *k,
const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda, 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 *b, const int *ldb,
const CHAMELEON_Complex64_t* beta, CHAMELEON_Complex64_t* c, const int* ldc ) const CHAMELEON_Complex64_t *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{ {
CHAMELEON_cblas_zsyr2k( CblasColMajor, CHAMELEON_cblas_zsyr2k( CblasColMajor,
chameleon_blastocblas_uplo(uplo), chameleon_blastocblas_uplo(uplo),
...@@ -115,11 +115,11 @@ void CHAMELEON_blas_zsyr2k ( const char* uplo, const char* trans, ...@@ -115,11 +115,11 @@ void CHAMELEON_blas_zsyr2k ( const char* uplo, const char* trans,
* @sa CHAMELEON_cblas_ssyr2k * @sa CHAMELEON_cblas_ssyr2k
* *
*/ */
void CHAMELEON_cblas_zsyr2k( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans, void CHAMELEON_cblas_zsyr2k( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
const int N, const int K, int N, int K,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const CHAMELEON_Complex64_t *B, const int ldb, const CHAMELEON_Complex64_t *B, int ldb,
const void *beta, CHAMELEON_Complex64_t *C, const int ldc ) const void *beta, CHAMELEON_Complex64_t *C, int ldc )
{ {
if ( order != CblasColMajor ){ if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zsyr2k", "illegal value of order" ); 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 ...@@ -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, CHAMELEON_zsyr2k( (cham_uplo_t)uplo, (cham_trans_t)trans, N, K,
alphac, (CHAMELEON_Complex64_t *)A, lda, alphac, (CHAMELEON_Complex64_t *)A, lda,
(CHAMELEON_Complex64_t *)B, ldb, (CHAMELEON_Complex64_t *)B, ldb,
betac, (CHAMELEON_Complex64_t *)C, ldc ); betac, C, ldc );
} }
lapack_api/src/lapack_zsyrk.c
+ 9
− 9
View file @ 4fe39bc2
...@@ -23,10 +23,10 @@ ...@@ -23,10 +23,10 @@
/* Fortran BLAS interface */ /* Fortran BLAS interface */
#define CHAMELEON_blas_zsyrk CHAMELEON_GLOBAL( chameleon_blas_zsyrk, CHAMELEON_BLAS_ZSYRK ) #define CHAMELEON_blas_zsyrk CHAMELEON_GLOBAL( chameleon_blas_zsyrk, CHAMELEON_BLAS_ZSYRK )
void CHAMELEON_blas_zsyrk ( const char* uplo, const char* trans, void CHAMELEON_blas_zsyrk ( const char *uplo, const char *trans,
const int* n, const int* k, const int *n, const int *k,
const CHAMELEON_Complex64_t* alpha, const CHAMELEON_Complex64_t* a, const int* lda, 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 ) const CHAMELEON_Complex64_t *beta, CHAMELEON_Complex64_t *c, const int *ldc )
{ {
CHAMELEON_cblas_zsyrk( CblasColMajor, CHAMELEON_cblas_zsyrk( CblasColMajor,
chameleon_blastocblas_uplo(uplo), chameleon_blastocblas_uplo(uplo),
...@@ -105,10 +105,10 @@ void CHAMELEON_blas_zsyrk ( const char* uplo, const char* trans, ...@@ -105,10 +105,10 @@ void CHAMELEON_blas_zsyrk ( const char* uplo, const char* trans,
* @sa CHAMELEON_cblas_ssyrk * @sa CHAMELEON_cblas_ssyrk
* *
*/ */
void CHAMELEON_cblas_zsyrk( const CBLAS_ORDER order, const CBLAS_UPLO uplo, const CBLAS_TRANSPOSE trans, void CHAMELEON_cblas_zsyrk( CBLAS_ORDER order, CBLAS_UPLO uplo, CBLAS_TRANSPOSE trans,
const int N, const int K, int N, int K,
const void *alpha, const CHAMELEON_Complex64_t *A, const int lda, const void *alpha, const CHAMELEON_Complex64_t *A, int lda,
const void *beta, CHAMELEON_Complex64_t *C, const int ldc ) const void *beta, CHAMELEON_Complex64_t *C, int ldc )
{ {
if ( order != CblasColMajor ){ if ( order != CblasColMajor ){
fprintf( stderr, "CHAMELEON ERROR: %s(): %s\n", "CHAMELEON_cblas_zsyrk", "illegal value of order" ); 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 ...@@ -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, CHAMELEON_zsyrk( (cham_uplo_t)uplo, (cham_trans_t)trans, N, K,
alphac, (CHAMELEON_Complex64_t *)A, lda, alphac, (CHAMELEON_Complex64_t *)A, lda,
betac, (CHAMELEON_Complex64_t *)C, ldc ); betac, C, ldc );
} }
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment