diff --git a/control/context.c b/control/context.c index e39b7b3dfdcea5c648e620a83b9da0e1001786d0..483630782bad68a5b11c50d5a1942653c4c9be77 100644 --- a/control/context.c +++ b/control/context.c @@ -301,7 +301,7 @@ int MORSE_Set(MORSE_enum param, int value) morse_warning("MORSE_Set", "autotuning has been automatically disable\n"); } /* Limit ib to nb */ - morse->ib = min( morse->nb, morse->ib ); + morse->ib = chameleon_min( morse->nb, morse->ib ); break; case MORSE_INNER_BLOCK_SIZE: if (value <= 0) { diff --git a/cudablas/include/cudablas.h b/cudablas/include/cudablas.h index 7e54d7bad0502207169976416c5d233e5890ae25..8ff43b50726cbb2e6f67e9996cebe4e944934543 100644 --- a/cudablas/include/cudablas.h +++ b/cudablas/include/cudablas.h @@ -88,19 +88,6 @@ **/ #define cudablas_error(k, str) fprintf(stderr, "%s: Parameter %d / %s\n", __func__, k, str) -/******************************************************************************* - * Global utilities - **/ -#ifndef max -#define max(a, b) ((a) > (b) ? (a) : (b)) -#endif -#ifndef min -#define min(a, b) ((a) < (b) ? (a) : (b)) -#endif -#ifndef roundup -#define roundup(a, b) (b <= 0) ? (a) : (((a) + (b)-1) & ~((b)-1)) -#endif - /** **************************************************************************** * LAPACK Constants **/ diff --git a/runtime/starpu/codelets/codelet_zgelqt.c b/runtime/starpu/codelets/codelet_zgelqt.c index 7064f5eaef24785642e0012c5a89f3e4e6e544e8..2b4c0daf8121b4acce12ccbf675a5723bc9cf0ed 100644 --- a/runtime/starpu/codelets/codelet_zgelqt.c +++ b/runtime/starpu/codelets/codelet_zgelqt.c @@ -149,7 +149,7 @@ static void cl_zgelqt_cpu_func(void *descr[], void *cl_arg) starpu_codelet_unpack_args(cl_arg, &m, &n, &ib, &lda, &ldt, &h_work); - WORK = TAU + max( m, n ); + WORK = TAU + chameleon_max( m, n ); CORE_zgelqt(m, n, ib, A, lda, T, ldt, TAU, WORK); } #endif /* !defined(CHAMELEON_SIMULATION) */ @@ -182,7 +182,7 @@ static void cl_zgelqt_cuda_func(void *descr[], void *cl_arg) /* Gather pointer to scratch data on host */ h_T = h_A + ib*n; h_TAU = h_T + ib*ib; - h_W = h_TAU + max(m,n); + h_W = h_TAU + chameleon_max(m,n); h_D = h_W + ib*ib; stream = starpu_cuda_get_local_stream(); diff --git a/runtime/starpu/codelets/codelet_zgeqrt.c b/runtime/starpu/codelets/codelet_zgeqrt.c index 5b6d8e57567f8c7b41cf9c8c98eb62f85749060d..d738fc0b5a741f683a5d4f5499212cf459a4f172 100644 --- a/runtime/starpu/codelets/codelet_zgeqrt.c +++ b/runtime/starpu/codelets/codelet_zgeqrt.c @@ -150,7 +150,7 @@ static void cl_zgeqrt_cpu_func(void *descr[], void *cl_arg) starpu_codelet_unpack_args(cl_arg, &m, &n, &ib, &lda, &ldt, &h_work); - WORK = TAU + max( m, n ); + WORK = TAU + chameleon_max( m, n ); CORE_zgeqrt(m, n, ib, A, lda, T, ldt, TAU, WORK); } @@ -182,7 +182,7 @@ static void cl_zgeqrt_cuda_func(void *descr[], void *cl_arg) /* Gather pointer to scratch data on host */ h_T = h_A + m*ib; h_TAU = h_T + ib*ib; - h_W = h_TAU + max(m,n); + h_W = h_TAU + chameleon_max(m,n); h_D = h_W + ib*ib; stream = starpu_cuda_get_local_stream(); diff --git a/runtime/starpu/codelets/codelet_zgetrf_incpiv.c b/runtime/starpu/codelets/codelet_zgetrf_incpiv.c index db80d69bc866ef0dcf6c47bf4ed9c7c7bef101ec..c76be02aaf3026a9a45bea2173a8d47024e8e86d 100644 --- a/runtime/starpu/codelets/codelet_zgetrf_incpiv.c +++ b/runtime/starpu/codelets/codelet_zgetrf_incpiv.c @@ -162,7 +162,7 @@ static void cl_zgetrf_incpiv_cpu_func(void *descr[], void *cl_arg) L += ib; for (i=0; i<n; i+=ib) { - sb = min( ib, n-i ); + sb = chameleon_min( ib, n-i ); CORE_zlacpy(MorseUpperLower, sb, sb, A+(i*lda+i), lda, L+(i*ldl), ldl ); CORE_ztrtri( MorseLower, MorseUnit, sb, L+(i*ldl), ldl, &info ); diff --git a/runtime/starpu/codelets/codelet_ztslqt.c b/runtime/starpu/codelets/codelet_ztslqt.c index aec73a841965962df10f4601cd5e7cfabf7fecb1..04c75182b0010da72689f834c8c783d20a1db5b9 100644 --- a/runtime/starpu/codelets/codelet_ztslqt.c +++ b/runtime/starpu/codelets/codelet_ztslqt.c @@ -170,7 +170,7 @@ static void cl_ztslqt_cpu_func(void *descr[], void *cl_arg) starpu_codelet_unpack_args(cl_arg, &m, &n, &ib, &lda1, &lda2, &ldt, &h_work); - WORK = TAU + max( m, n ); + WORK = TAU + chameleon_max( m, n ); CORE_ztslqt(m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK); } @@ -200,7 +200,7 @@ static void cl_ztslqt_cuda_func(void *descr[], void *cl_arg) h_A2 = (cuDoubleComplex*)RUNTIME_starpu_ws_getlocal(h_work); h_T = h_A2 + ib*n; h_TAU = h_T + ib*n; - h_W = h_TAU + max(m,n); + h_W = h_TAU + chameleon_max(m,n); h_D = h_W + ib*m; stream = starpu_cuda_get_local_stream(); diff --git a/runtime/starpu/codelets/codelet_ztsqrt.c b/runtime/starpu/codelets/codelet_ztsqrt.c index 94c624c87595c1a46eb3072b3a01ad828043e642..7081a754a0aa53d583b6ecf97ce9f03840b46125 100644 --- a/runtime/starpu/codelets/codelet_ztsqrt.c +++ b/runtime/starpu/codelets/codelet_ztsqrt.c @@ -160,7 +160,7 @@ static void cl_ztsqrt_cpu_func(void *descr[], void *cl_arg) starpu_codelet_unpack_args(cl_arg, &m, &n, &ib, &lda1, &lda2, &ldt, &h_work); - WORK = TAU + max( m, n ); + WORK = TAU + chameleon_max( m, n ); CORE_ztsqrt(m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK); } @@ -190,7 +190,7 @@ static void cl_ztsqrt_cuda_func(void *descr[], void *cl_arg) h_A2 = (cuDoubleComplex*)RUNTIME_starpu_ws_getlocal(h_work); h_T = h_A2 + m*ib; h_TAU = h_T + ib*ib; - h_W = h_TAU + max(m,n); + h_W = h_TAU + chameleon_max(m,n); h_D = h_W + ib*n; stream = starpu_cuda_get_local_stream(); diff --git a/runtime/starpu/codelets/codelet_ztstrf.c b/runtime/starpu/codelets/codelet_ztstrf.c index 92caf3d058b1ed81df966b85c525a74caeed3cd8..0628740d9bc0f0cc6fb797b80eb45addcc3e7599 100644 --- a/runtime/starpu/codelets/codelet_ztstrf.c +++ b/runtime/starpu/codelets/codelet_ztstrf.c @@ -187,7 +187,7 @@ static void cl_ztstrf_cpu_func(void *descr[], void *cl_arg) { int i, sb; for (i=0; i<n; i+=ib) { - sb = min( ib, n-i ); + sb = chameleon_min( ib, n-i ); CORE_zlacpy(MorseUpperLower, sb, sb, L+(i*ldl), ldl, L+(i*ldl)+ib, ldl ); CORE_ztrtri( MorseLower, MorseUnit, sb, L+(i*ldl)+ib, ldl, &info ); diff --git a/runtime/starpu/codelets/codelet_zttlqt.c b/runtime/starpu/codelets/codelet_zttlqt.c index a11e5951ab931a1f57bf99549d9df0c3b7cc2d2f..269cec7a973661dff42dbec34f6d0dc3c13ed39a 100644 --- a/runtime/starpu/codelets/codelet_zttlqt.c +++ b/runtime/starpu/codelets/codelet_zttlqt.c @@ -166,7 +166,7 @@ static void cl_zttlqt_cpu_func(void *descr[], void *cl_arg) starpu_codelet_unpack_args(cl_arg, &m, &n, &ib, &lda1, &lda2, &ldt); - WORK = TAU + max( m, n ); + WORK = TAU + chameleon_max( m, n ); CORE_zttlqt(m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK); } diff --git a/runtime/starpu/codelets/codelet_zttqrt.c b/runtime/starpu/codelets/codelet_zttqrt.c index ecee94d94ce52b53098aaa562f0a8dd36a6dfdc1..b368a3202a70036be6afb7db92e29f8ae9a91f25 100644 --- a/runtime/starpu/codelets/codelet_zttqrt.c +++ b/runtime/starpu/codelets/codelet_zttqrt.c @@ -166,7 +166,7 @@ static void cl_zttqrt_cpu_func(void *descr[], void *cl_arg) starpu_codelet_unpack_args(cl_arg, &m, &n, &ib, &lda1, &lda2, &ldt); - WORK = TAU + max( m, n ); + WORK = TAU + chameleon_max( m, n ); CORE_zttqrt(m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK); }