diff --git a/compute/pzlansy.c b/compute/pzlansy.c
index 00d3f6e1fb87c1dc7c867f98e5e3557333dfc214..4fc9c6bdee52e7b563b778eabd452272e41b4d78 100644
--- a/compute/pzlansy.c
+++ b/compute/pzlansy.c
@@ -212,8 +212,8 @@ void morse_pzlansy(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *re
* MorseFrobeniusNorm
*/
case MorseFrobeniusNorm:
- workm = max( A->mt, A->p );
- workn = max( A->nt, A->q );
+ workm = chameleon_max( A->mt, A->p );
+ workn = chameleon_max( A->nt, A->q );
MORSE_Desc_Create(&(VECNORMS_STEP1), NULL, MorseRealDouble, 1, 2, 2,
workm, 2*workn, 0, 0, workm, 2*workn, A->p, A->q);
@@ -361,8 +361,8 @@ void morse_pzlansy(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *re
/* Init workspace handle for the call to zlange but unused */
RUNTIME_options_ws_alloc( &options, 1, 0 );
- workm = max( A->mt, A->p );
- workn = max( A->nt, A->q );
+ workm = chameleon_max( A->mt, A->p );
+ workn = chameleon_max( A->nt, A->q );
MORSE_Desc_Create(&(VECNORMS_STEP1), NULL, MorseRealDouble, 1, 1, 1,
workm, workn, 0, 0, workm, workn, A->p, A->q);
diff --git a/compute/pztpgqrt.c b/compute/pztpgqrt.c
index 6a309cb76e84f85825e0d612be5668f931a7d1d9..e6a9dd7aae8e09548b32c836563ef1cc26bea0ce 100644
--- a/compute/pztpgqrt.c
+++ b/compute/pztpgqrt.c
@@ -58,7 +58,7 @@ void morse_pztpgqrt( int L, MORSE_desc_t *V, MORSE_desc_t *T, MORSE_desc_t *A, M
ib = MORSE_IB;
/*
- * ztsmqr = A->nb * ib
+ * ztpmqrt = A->nb * ib
*/
ws_worker = A->nb * ib;
@@ -66,7 +66,7 @@ void morse_pztpgqrt( int L, MORSE_desc_t *V, MORSE_desc_t *T, MORSE_desc_t *A, M
#if defined(CHAMELEON_USE_CUDA)
/* Worker space
*
- * ztsmqr = 2 * A->nb * ib
+ * ztpmqrt = 2 * A->nb * ib
*/
ws_worker = chameleon_max( ws_worker, ib * A->nb * 2 );
#endif
diff --git a/compute/pztpqrt.c b/compute/pztpqrt.c
index 926b1d34ec9c81ea4d1eef407b8c2be84f9e3243..9b60ef164a62cb22288894358fa050262d05c06f 100644
--- a/compute/pztpqrt.c
+++ b/compute/pztpqrt.c
@@ -56,10 +56,8 @@ void morse_pztpqrt( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T,
ib = MORSE_IB;
/*
- * zgeqrt = A->nb * (ib+1)
- * zunmqr = A->nb * ib
- * ztsqrt = A->nb * (ib+1)
- * ztsmqr = A->nb * ib
+ * ztsqrt = A->nb * (ib+1)
+ * ztpmqrt = A->nb * ib
*/
ws_worker = A->nb * (ib+1);
@@ -67,8 +65,7 @@ void morse_pztpqrt( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T,
#if defined(CHAMELEON_USE_CUDA)
/* Worker space
*
- * zunmqr = A->nb * ib
- * ztsmqr = 2 * A->nb * ib
+ * ztpmqrt = 2 * A->nb * ib
*/
ws_worker = chameleon_max( ws_worker, ib * A->nb * 2 );
#endif
@@ -76,15 +73,13 @@ void morse_pztpqrt( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T,
#if defined(CHAMELEON_USE_MAGMA)
/* Worker space
*
- * zgeqrt = max( A->nb * (ib+1), ib * (ib + A->nb) )
- * ztsqrt = max( A->nb * (ib+1), ib * (ib + A->nb) )
+ * ztpqrt = max( A->nb * (ib+1), ib * (ib + A->nb) )
*/
ws_worker = chameleon_max( ws_worker, ib * (ib + A->nb) );
/* Host space
*
- * zgeqrt = ib * (A->mb+3*ib) + A->mb )
- * ztsqrt = 2 * ib * (A->nb+ib) + A->nb
+ * ztpqrt = 2 * ib * (A->nb+ib) + A->nb
*/
ws_host = chameleon_max( ws_host, ib * (A->mb + 3 * ib) + A->mb );
ws_host = chameleon_max( ws_host, 2 * ib * (A->nb + ib) + A->nb );
diff --git a/compute/zbuild.c b/compute/zbuild.c
index 7dbf0a48103887c8e8ee7798ff5f3195df9afc2c..8262d017bb1ebd8aad84d98a41395c034688f3b2 100644
--- a/compute/zbuild.c
+++ b/compute/zbuild.c
@@ -115,7 +115,7 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
return -4;
}
/* Quick return */
- if (min(M, N) == 0)
+ if (chameleon_min(M, N) == 0)
return MORSE_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
@@ -280,7 +280,7 @@ int MORSE_zbuild_Tile_Async( MORSE_enum uplo, MORSE_desc_t *A,
}
/* Quick return */
- if (min( A->m, A->n ) == 0)
+ if (chameleon_min( A->m, A->n ) == 0)
return MORSE_SUCCESS;
morse_pzbuild(uplo, A, user_data, user_build_callback, sequence, request);
diff --git a/compute/zgelqf.c b/compute/zgelqf.c
index 687d3278bc0cedd4baeefdcb4a8d0c3ce8c6962d..95fe0544f6fcbd4098e3c44ef98b443f9d711e19 100644
--- a/compute/zgelqf.c
+++ b/compute/zgelqf.c
@@ -106,7 +106,7 @@ int MORSE_zgelqf(int M, int N,
}
/* Quick return */
- if (min(M, N) == 0)
+ if (chameleon_min(M, N) == 0)
return MORSE_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
@@ -120,7 +120,7 @@ int MORSE_zgelqf(int M, int N,
NB = MORSE_NB;
morse_sequence_create(morse, &sequence);
-
+
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
@@ -200,7 +200,7 @@ int MORSE_zgelqf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
MORSE_zgelqf_Tile_Async(A, T, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
-
+
status = sequence->status;
morse_sequence_destroy(morse, sequence);
return status;
@@ -274,7 +274,7 @@ int MORSE_zgelqf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
}
/* Quick return */
/*
- if (min(M, N) == 0)
+ if (chameleon_min(M, N) == 0)
return MORSE_SUCCESS;
*/
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
diff --git a/compute/zgeqrf.c b/compute/zgeqrf.c
index bc467d319b9e4d25ed6091f69cbeb05dcce7b1e9..51182770c768571843efe8e89e990e2c4e6b2478 100644
--- a/compute/zgeqrf.c
+++ b/compute/zgeqrf.c
@@ -105,7 +105,7 @@ int MORSE_zgeqrf(int M, int N,
}
/* Quick return */
- if (min(M, N) == 0)
+ if (chameleon_min(M, N) == 0)
return MORSE_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
@@ -273,7 +273,7 @@ int MORSE_zgeqrf_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T,
}
/* Quick return */
/*
- if (min(M, N) == 0)
+ if (chameleon_min(M, N) == 0)
return MORSE_SUCCESS;
*/
if (morse->householder == MORSE_FLAT_HOUSEHOLDER) {
diff --git a/compute/zgesv_incpiv.c b/compute/zgesv_incpiv.c
index a1033dbe13fb6ed3eea7a90d5a937c4daf1b1625..02b1129c26bc3254c380fe70da57de57ae03add3 100644
--- a/compute/zgesv_incpiv.c
+++ b/compute/zgesv_incpiv.c
@@ -120,7 +120,7 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
return -8;
}
/* Quick return */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNB */
@@ -306,7 +306,7 @@ int MORSE_zgesv_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, M
}
/* Quick return */
/*
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
diff --git a/compute/zgesv_nopiv.c b/compute/zgesv_nopiv.c
index 046f0b94e2f4c193c9ed0a234db3e3e5fe599854..31735f19c856c8c77c8b03a6df813cd41d5e9310 100644
--- a/compute/zgesv_nopiv.c
+++ b/compute/zgesv_nopiv.c
@@ -119,7 +119,7 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
return -8;
}
/* Quick return */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNB */
@@ -294,7 +294,7 @@ int MORSE_zgesv_nopiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *B,
}
/* Quick return */
/*
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
diff --git a/compute/zgetrf_incpiv.c b/compute/zgetrf_incpiv.c
index ad7f242da38d91aa1ac67e323120c3a09b42816d..169fb67f05fd55e87abbdbe6e377d85fb1f48237 100644
--- a/compute/zgetrf_incpiv.c
+++ b/compute/zgetrf_incpiv.c
@@ -107,7 +107,7 @@ int MORSE_zgetrf_incpiv(int M, int N,
return -4;
}
/* Quick return */
- if (min(M, N) == 0)
+ if (chameleon_min(M, N) == 0)
return MORSE_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
@@ -278,7 +278,7 @@ int MORSE_zgetrf_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
}
/* Quick return */
/*
- if (min(M, N) == 0)
+ if (chameleon_min(M, N) == 0)
return MORSE_SUCCESS;
*/
diff --git a/compute/zgetrf_nopiv.c b/compute/zgetrf_nopiv.c
index 93302a7c007be004eb70eae0c081b3157af9b8d2..ea987f595f701c29cf171e573311d2782f66b990 100644
--- a/compute/zgetrf_nopiv.c
+++ b/compute/zgetrf_nopiv.c
@@ -100,7 +100,7 @@ int MORSE_zgetrf_nopiv(int M, int N,
return -4;
}
/* Quick return */
- if (min(M, N) == 0)
+ if (chameleon_min(M, N) == 0)
return MORSE_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
diff --git a/compute/zgetrs_incpiv.c b/compute/zgetrs_incpiv.c
index 2dc400372381263e38d6c558be64bb1be900aa87..63f9564a2fca9fa0a01d874abd33874343dfc420 100644
--- a/compute/zgetrs_incpiv.c
+++ b/compute/zgetrs_incpiv.c
@@ -126,7 +126,7 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
return -9;
}
/* Quick return */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB & IB depending on N & NRHS; Set NBNBSIZE */
@@ -309,7 +309,7 @@ int MORSE_zgetrs_incpiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
}
/* Quick return */
/*
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
morse_pztrsmpl(A, B, L, IPIV, sequence, request);
diff --git a/compute/zgetrs_nopiv.c b/compute/zgetrs_nopiv.c
index fa88c870e68b7b7cc928a95f0f13dcfd3de6a5b2..02b029146f903eba98da6b6b0a4722102a57046d 100644
--- a/compute/zgetrs_nopiv.c
+++ b/compute/zgetrs_nopiv.c
@@ -120,7 +120,7 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
return -9;
}
/* Quick return */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB & IB depending on N & NRHS; Set NBNBSIZE */
@@ -293,7 +293,7 @@ int MORSE_zgetrs_nopiv_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *B,
}
/* Quick return */
/*
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
morse_pztrsm(MorseLeft, MorseLower, MorseNoTrans, MorseUnit, (MORSE_Complex64_t)1.0, A, B, sequence, request);
diff --git a/compute/zlacpy.c b/compute/zlacpy.c
index 0feaf69196264055108fb3a9bdbf6b72b9232ba3..c19edef30700232549a7caa946cc7085bb5f8e7b 100644
--- a/compute/zlacpy.c
+++ b/compute/zlacpy.c
@@ -44,7 +44,7 @@
* = MorseLower: Lower triangular part
*
* @param[in] M
- * The number of rows of the matrix A. M >= 0.
+ * The number of rows of the matrix A. M >= 0.
*
* @param[in] N
* The number of columns of the matrix A. N >= 0.
@@ -90,7 +90,7 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
return MORSE_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
- if ( (uplo != MorseUpperLower) &&
+ if ( (uplo != MorseUpperLower) &&
(uplo != MorseUpper) &&
(uplo != MorseLower) ) {
morse_error("MORSE_zlacpy", "illegal value of uplo");
@@ -114,7 +114,7 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
}
/* Quick return */
- if (min(N, M) == 0)
+ if (chameleon_min(N, M) == 0)
return (double)0.0;
/* Tune NB depending on M, N & NRHS; Set NBNB */
@@ -281,14 +281,14 @@ int MORSE_zlacpy_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
- if ( (uplo != MorseUpperLower) &&
+ if ( (uplo != MorseUpperLower) &&
(uplo != MorseUpper) &&
(uplo != MorseLower) ) {
morse_error("MORSE_zlacpy_Tile_Async", "illegal value of uplo");
return -1;
}
/* Quick return */
- if (min(A->m, A->n) == 0) {
+ if (chameleon_min(A->m, A->n) == 0) {
return MORSE_SUCCESS;
}
diff --git a/compute/zlange.c b/compute/zlange.c
index 2afbfddd81ad796c700bfa6172d00075eeb97b30..c48e992e2a01a3344e6a40863e4364323164e344 100644
--- a/compute/zlange.c
+++ b/compute/zlange.c
@@ -118,7 +118,7 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
}
/* Quick return */
- if (min(N, M) == 0)
+ if (chameleon_min(N, M) == 0)
return (double)0.0;
/* Tune NB depending on M, N & NRHS; Set NBNB */
@@ -281,7 +281,7 @@ int MORSE_zlange_Tile_Async(MORSE_enum norm, MORSE_desc_t *A, double *value,
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
/* Quick return */
- if (min(A->m, A->n) == 0) {
+ if (chameleon_min(A->m, A->n) == 0) {
*value = 0.0;
return MORSE_SUCCESS;
}
diff --git a/compute/zlantr.c b/compute/zlantr.c
index 3192e2fb25911e57e096d2cef02a737092b6183a..69563ac643ac00e1c2d08f7082eab70d1182bd9f 100644
--- a/compute/zlantr.c
+++ b/compute/zlantr.c
@@ -138,7 +138,7 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
}
/* Quick return */
- if (min(N, M) == 0)
+ if (chameleon_min(N, M) == 0)
return (double)0.0;
/* Tune NB depending on M, N & NRHS; Set NBNB */
@@ -315,7 +315,7 @@ int MORSE_zlantr_Tile_Async(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
}
/* Quick return */
- if (min(A->m, A->n) == 0) {
+ if (chameleon_min(A->m, A->n) == 0) {
*value = 0.0;
return MORSE_SUCCESS;
}
diff --git a/compute/zlaset.c b/compute/zlaset.c
index cbbef615c575aef9bdfe95f432f7fc114cb3f310..c90ba7526368db6e7438813d7b7ebfd08b39ad56 100644
--- a/compute/zlaset.c
+++ b/compute/zlaset.c
@@ -111,7 +111,7 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N,
}
/* Quick return */
- if (min(N, M) == 0)
+ if (chameleon_min(N, M) == 0)
return (double)0.0;
/* Tune NB depending on M, N & NRHS; Set NBNB */
@@ -275,7 +275,7 @@ int MORSE_zlaset_Tile_Async(MORSE_enum uplo,
return -1;
}
/* Quick return */
- if (min(A->m, A->n) == 0) {
+ if (chameleon_min(A->m, A->n) == 0) {
return MORSE_SUCCESS;
}
diff --git a/compute/zplghe.c b/compute/zplghe.c
index a1b860e74d5e8fffd6c09c815b8aad619278e7bc..d7c884989890c5bc30ea21ab762242c004a3a123 100644
--- a/compute/zplghe.c
+++ b/compute/zplghe.c
@@ -258,7 +258,7 @@ int MORSE_zplghe_Tile_Async( double bump,
}
/* Quick return */
- if (min( A->m, A->n ) == 0)
+ if (chameleon_min( A->m, A->n ) == 0)
return MORSE_SUCCESS;
morse_pzplghe(bump, uplo, A, seed, sequence, request);
diff --git a/compute/zplgsy.c b/compute/zplgsy.c
index d779fedaf73a83844db2e8c000f7222afb1df1c0..3684d39dca07057d90d9d58cf09edcbd2b4c837a 100644
--- a/compute/zplgsy.c
+++ b/compute/zplgsy.c
@@ -260,7 +260,7 @@ int MORSE_zplgsy_Tile_Async( MORSE_Complex64_t bump,
}
/* Quick return */
- if (min( A->m, A->n ) == 0)
+ if (chameleon_min( A->m, A->n ) == 0)
return MORSE_SUCCESS;
morse_pzplgsy(bump, uplo, A, seed, sequence, request);
diff --git a/compute/zplrnt.c b/compute/zplrnt.c
index 802da3b2af014740eaa50141ef0e1390c6d4ce30..707469c9eb10c99f4ffead2d911280dcfff218e1 100644
--- a/compute/zplrnt.c
+++ b/compute/zplrnt.c
@@ -98,7 +98,7 @@ int MORSE_zplrnt( int M, int N,
return -4;
}
/* Quick return */
- if (min(M, N) == 0)
+ if (chameleon_min(M, N) == 0)
return MORSE_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
@@ -248,7 +248,7 @@ int MORSE_zplrnt_Tile_Async( MORSE_desc_t *A,
}
/* Quick return */
- if (min( A->m, A->n ) == 0)
+ if (chameleon_min( A->m, A->n ) == 0)
return MORSE_SUCCESS;
morse_pzplrnt(A, seed, sequence, request);
diff --git a/compute/zposv.c b/compute/zposv.c
index 97218417579c6900b84e3b7e8834903758c08cae..b0c9cb25d7a8b551c16419cba70aa33ce9e7ecf6 100644
--- a/compute/zposv.c
+++ b/compute/zposv.c
@@ -133,7 +133,7 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
}
/* Quick return - currently NOT equivalent to LAPACK's
* LAPACK does not have such check for DPOSV */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNBSIZE */
@@ -324,7 +324,7 @@ int MORSE_zposv_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
/* Quick return - currently NOT equivalent to LAPACK's
* LAPACK does not have such check for DPOSV */
/*
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
morse_pzpotrf(uplo, A, sequence, request);
diff --git a/compute/zpotrs.c b/compute/zpotrs.c
index 3a6dd7bf1ae283f9d7fbcdcc2cfde0b9565f37e8..13309e1c524623bdaa8b87b3d783ab9e616acba3 100644
--- a/compute/zpotrs.c
+++ b/compute/zpotrs.c
@@ -117,7 +117,7 @@ int MORSE_zpotrs(MORSE_enum uplo, int N, int NRHS,
return -7;
}
/* Quick return */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
@@ -299,7 +299,7 @@ int MORSE_zpotrs_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
}
/* Quick return */
/*
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
morse_pztrsm(MorseLeft, uplo, uplo == MorseUpper ? MorseConjTrans : MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request);
diff --git a/compute/zsysv.c b/compute/zsysv.c
index 71223e12ec05287ceacd420b7aa11d05387c141a..db51e5c515299716402007d979312469279f75f1 100644
--- a/compute/zsysv.c
+++ b/compute/zsysv.c
@@ -130,7 +130,7 @@ int MORSE_zsysv(MORSE_enum uplo, int N, int NRHS,
}
/* Quick return - currently NOT equivalent to LAPACK's
* LAPACK does not have such check for Dsysv */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNBSIZE */
@@ -315,7 +315,7 @@ int MORSE_zsysv_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
/* Quick return - currently NOT equivalent to LAPACK's
* LAPACK does not have such check for Dsysv */
/*
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
morse_pzsytrf(uplo, A, sequence, request);
diff --git a/compute/zsytrs.c b/compute/zsytrs.c
index 3459f1093c5ef2531887edfe8b583941354ea591..508d404c634dbb376946ea5591b18021c34563fb 100644
--- a/compute/zsytrs.c
+++ b/compute/zsytrs.c
@@ -116,7 +116,7 @@ int MORSE_zsytrs(MORSE_enum uplo, int N, int NRHS,
return -7;
}
/* Quick return */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
@@ -292,7 +292,7 @@ int MORSE_zsytrs_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
}
/* Quick return */
/*
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
morse_pztrsm(MorseLeft, uplo, uplo == MorseUpper ? MorseTrans : MorseNoTrans, MorseNonUnit, 1.0, A, B, sequence, request);
diff --git a/compute/ztrmm.c b/compute/ztrmm.c
index aa8f1a9c48fe5b1d1b3f483f6f858c24cff01137..17e5d44039b514938445003df3a9c13ed7b125ba 100644
--- a/compute/ztrmm.c
+++ b/compute/ztrmm.c
@@ -133,9 +133,9 @@ int MORSE_ztrmm(MORSE_enum side, MORSE_enum uplo,
morse_error("MORSE_ztrmm", "illegal value of uplo");
return -2;
}
- if (transA != MorseConjTrans &&
- transA != MorseNoTrans &&
- transA != MorseTrans )
+ if (transA != MorseConjTrans &&
+ transA != MorseNoTrans &&
+ transA != MorseTrans )
{
morse_error("MORSE_ztrmm", "illegal value of transA");
return -3;
@@ -161,7 +161,7 @@ int MORSE_ztrmm(MORSE_enum side, MORSE_enum uplo,
return -10;
}
/* Quick return */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
@@ -288,7 +288,7 @@ int MORSE_ztrmm_Tile(MORSE_enum side, MORSE_enum uplo,
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
-
+
status = sequence->status;
morse_sequence_destroy(morse, sequence);
return status;
diff --git a/compute/ztrsm.c b/compute/ztrsm.c
index ab61c9b33b1f8e7b4234df8991346d3f48a0a0d5..5a6b21980c2166cc4f9cd083074b2c59a4a566d7 100644
--- a/compute/ztrsm.c
+++ b/compute/ztrsm.c
@@ -159,7 +159,7 @@ int MORSE_ztrsm(MORSE_enum side, MORSE_enum uplo,
return -10;
}
/* Quick return */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
diff --git a/compute/ztrsmpl.c b/compute/ztrsmpl.c
index 148e1bee444ec10ec7fa2f63ef4f1b7215524ad0..86ef9bb4d3bffa2f0d228fe147e79927bb0d82de 100644
--- a/compute/ztrsmpl.c
+++ b/compute/ztrsmpl.c
@@ -114,7 +114,7 @@ int MORSE_ztrsmpl(int N, int NRHS,
return -8;
}
/* Quick return */
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
/* Tune NB & IB depending on N & NRHS; Set NBNB */
@@ -294,7 +294,7 @@ int MORSE_ztrsmpl_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_
}
/* Quick return */
/*
- if (min(N, NRHS) == 0)
+ if (chameleon_min(N, NRHS) == 0)
return MORSE_SUCCESS;
*/
morse_pztrsmpl(A, B, L, IPIV, sequence, request);
diff --git a/compute/zunglq.c b/compute/zunglq.c
index 87b2bef823e6871b5d2434c0129b7567b817034f..78865dd0228bf36a3e672f5fcbff6ab8657b535f 100644
--- a/compute/zunglq.c
+++ b/compute/zunglq.c
@@ -295,7 +295,7 @@ int MORSE_zunglq_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q,
/* Quick return - currently NOT equivalent to LAPACK's:
* CALL DLASET( 'Full', MAX( M, N ), NRHS, ZERO, ZERO, Q, LDQ ) */
/*
- if (min(M, N) == 0)
+ if (chameleon_min(M, N) == 0)
return MORSE_SUCCESS;
*/
morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request);