Commit 4baa28e9 authored by PRUVOST Florent's avatar PRUVOST Florent

update the runtimes interface to call only CORE_ functions from coreblas and not lapacke

parent 5822cb47
......@@ -65,7 +65,7 @@ void CORE_zgetrf_quark(Quark *quark)
int info;
quark_unpack_args_9(quark, m, n, A, lda, IPIV, sequence, request, check_info, iinfo);
info = LAPACKE_zgetrf_work(LAPACK_COL_MAJOR, m, n, A, lda, IPIV );
CORE_zgetrf( m, n, A, lda, IPIV, &info );
if (info != MORSE_SUCCESS && check_info)
RUNTIME_sequence_flush(quark, sequence, request, iinfo+info);
}
......@@ -67,9 +67,6 @@ void CORE_zlacpy_quark(Quark *quark)
int LDB;
quark_unpack_args_7(quark, uplo, M, N, A, LDA, B, LDB);
LAPACKE_zlacpy_work(
LAPACK_COL_MAJOR,
morse_lapack_const(uplo),
M, N, A, LDA, B, LDB);
CORE_zlacpy(uplo, M, N, A, LDA, B, LDB);
}
......@@ -68,7 +68,7 @@ void CORE_zlag2c_quark(Quark *quark)
int info;
quark_unpack_args_8(quark, m, n, A, lda, B, ldb, sequence, request);
info = LAPACKE_zlag2c_work(LAPACK_COL_MAJOR, m, n, A, lda, B, ldb);
CORE_zlag2c( m, n, A, lda, B, ldb);
if (sequence->status == MORSE_SUCCESS && info != 0)
RUNTIME_sequence_flush(quark, sequence, request, info);
}
......@@ -105,6 +105,6 @@ void CORE_clag2z_quark(Quark *quark)
int ldb;
quark_unpack_args_6(quark, m, n, A, lda, B, ldb);
LAPACKE_clag2z_work(LAPACK_COL_MAJOR, m, n, A, lda, B, ldb);
CORE_clag2z( m, n, A, lda, B, ldb);
}
......@@ -97,8 +97,5 @@ void CORE_zlaset_quark(Quark *quark)
int LDA;
quark_unpack_args_7(quark, uplo, M, N, alpha, beta, A, LDA);
LAPACKE_zlaset_work(
LAPACK_COL_MAJOR,
morse_lapack_const(uplo),
M, N, alpha, beta, A, LDA);
CORE_zlaset(uplo, M, N, alpha, beta, A, LDA);
}
......@@ -60,5 +60,5 @@ void CORE_zlauum_quark(Quark *quark)
int LDA;
quark_unpack_args_4(quark, uplo, N, A, LDA);
LAPACKE_zlauum_work(LAPACK_COL_MAJOR, morse_lapack_const(uplo), N, A, LDA);
CORE_zlauum(uplo, N, A, LDA);
}
......@@ -69,10 +69,7 @@ void CORE_zpotrf_quark(Quark *quark)
int info;
quark_unpack_args_7(quark, uplo, n, A, lda, sequence, request, iinfo);
info = LAPACKE_zpotrf_work(
LAPACK_COL_MAJOR,
morse_lapack_const(uplo),
n, A, lda);
CORE_zpotrf(uplo, n, A, lda, &info);
if (sequence->status == MORSE_SUCCESS && info != 0)
RUNTIME_sequence_flush(quark, sequence, request, iinfo+info);
}
......@@ -72,10 +72,7 @@ void CORE_ztrtri_quark(Quark *quark)
int info;
quark_unpack_args_8(quark, uplo, diag, N, A, LDA, sequence, request, iinfo);
info = LAPACKE_ztrtri_work(
LAPACK_COL_MAJOR,
morse_lapack_const(uplo), morse_lapack_const(diag),
N, A, LDA);
CORE_ztrtri(uplo, diag, N, A, LDA, &info);
if ((sequence->status == MORSE_SUCCESS) && (info > 0))
RUNTIME_sequence_flush(quark, sequence, request, iinfo + info);
}
......@@ -71,7 +71,7 @@ static void cl_zgetrf_cpu_func(void *descr[], void *cl_arg)
A = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[0]);
starpu_codelet_unpack_args(cl_arg, &m, &n, &lda, &IPIV, &check_info, &iinfo);
info = LAPACKE_zgetrf_work(LAPACK_COL_MAJOR, m, n, A, lda, IPIV );
CORE_zgetrf( m, n, A, lda, IPIV, &info );
}
/*
* Codelet definition
......
......@@ -79,10 +79,7 @@ static void cl_zlacpy_cpu_func(void *descr[], void *cl_arg)
A = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[0]);
B = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[1]);
starpu_codelet_unpack_args(cl_arg, &uplo, &M, &N, &LDA, &LDB);
LAPACKE_zlacpy_work(
LAPACK_COL_MAJOR,
morse_lapack_const(uplo),
M, N, A, LDA, B, LDB);
CORE_zlacpy(uplo, M, N, A, LDA, B, LDB);
}
/*
......
......@@ -73,7 +73,7 @@ static void cl_zlag2c_cpu_func(void *descr[], void *cl_arg)
A = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[0]);
B = (MORSE_Complex32_t *)STARPU_MATRIX_GET_PTR(descr[1]);
starpu_codelet_unpack_args(cl_arg, &m, &n, &lda, &ldb);
LAPACKE_zlag2c_work(LAPACK_COL_MAJOR, m, n, A, lda, B, ldb);
CORE_zlag2c( m, n, A, lda, B, ldb);
}
void MORSE_TASK_clag2z(MORSE_option_t *options,
......@@ -115,7 +115,7 @@ static void cl_clag2z_cpu_func(void *descr[], void *cl_arg)
A = (MORSE_Complex32_t *)STARPU_MATRIX_GET_PTR(descr[0]);
B = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[1]);
starpu_codelet_unpack_args(cl_arg, &m, &n, &lda, &ldb);
LAPACKE_clag2z_work(LAPACK_COL_MAJOR, m, n, A, lda, B, ldb);
CORE_clag2z( m, n, A, lda, B, ldb);
}
/*
......
......@@ -107,10 +107,7 @@ static void cl_zlaset_cpu_func(void *descr[], void *cl_arg)
A = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[0]);
starpu_codelet_unpack_args(cl_arg, &uplo, &M, &N, &alpha, &beta, &LDA);
LAPACKE_zlaset_work(
LAPACK_COL_MAJOR,
morse_lapack_const(uplo),
M, N, alpha, beta, A, LDA);
CORE_zlaset(uplo, M, N, alpha, beta, A, LDA);
}
/*
* Codelet definition
......
......@@ -70,7 +70,7 @@ static void cl_zlauum_cpu_func(void *descr[], void *cl_arg)
A = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[0]);
starpu_codelet_unpack_args(cl_arg, &uplo, &N, &LDA);
LAPACKE_zlauum_work(LAPACK_COL_MAJOR, morse_lapack_const(uplo), N, A, LDA);
CORE_zlauum(uplo, N, A, LDA);
}
#if defined(CHAMELEON_USE_MAGMA)
......
......@@ -76,10 +76,7 @@ static void cl_zpotrf_cpu_func(void *descr[], void *cl_arg)
A = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[0]);
starpu_codelet_unpack_args(cl_arg, &uplo, &n, &lda, &iinfo);
info = LAPACKE_zpotrf_work(
LAPACK_COL_MAJOR,
morse_lapack_const(uplo),
n, A, lda);
CORE_zpotrf(uplo, n, A, lda, &info);
}
#ifdef CHAMELEON_USE_MAGMA
......
......@@ -78,10 +78,7 @@ static void cl_ztrtri_cpu_func(void *descr[], void *cl_arg)
A = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[0]);
starpu_codelet_unpack_args(cl_arg, &uplo, &diag, &N, &LDA, &iinfo);
info = LAPACKE_ztrtri_work(
LAPACK_COL_MAJOR,
morse_lapack_const(uplo), morse_lapack_const(diag),
N, A, LDA);
CORE_ztrtri(uplo, diag, N, A, LDA, &info);
}
#if defined(CHAMELEON_USE_MAGMA)
......
Markdown is supported
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