Commit 89132a67 authored by Mathieu Faverge's avatar Mathieu Faverge

Fix IPIV in codelet, It is not a scratch but a value

parent 8f57dae4
......@@ -104,7 +104,7 @@ void MORSE_TASK_zgessm(const MORSE_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
sizeof(int)*nb, IPIV, SCRATCH,
sizeof(int*), &IPIV, VALUE,
PASSED_BY_REF, RTBLKADDR( L, MORSE_Complex64_t, Lm, Ln ), INPUT,
sizeof(int), &ldl, VALUE,
PASSED_BY_REF, RTBLKADDR( D, MORSE_Complex64_t, Dm, Dn ), INPUT,
......@@ -112,4 +112,6 @@ void MORSE_TASK_zgessm(const MORSE_option_t *options,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT,
sizeof(int), &lda, VALUE,
PARSEC_DTD_ARG_END );
(void)nb;
}
......@@ -114,7 +114,7 @@ void MORSE_TASK_zgetrf_incpiv( const MORSE_option_t *options,
sizeof(int), &ib, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT,
sizeof(int), &lda, VALUE,
sizeof(int)*nb, IPIV, SCRATCH,
sizeof(int*), &IPIV, VALUE,
sizeof(int), &check_info, VALUE,
sizeof(int), &iinfo, VALUE,
PARSEC_DTD_ARG_END );
......@@ -123,4 +123,5 @@ void MORSE_TASK_zgetrf_incpiv( const MORSE_option_t *options,
(void)Lm;
(void)Ln;
(void)ldl;
(void)nb;
}
......@@ -41,7 +41,7 @@ CORE_zssssm_parsec( parsec_execution_stream_t *context,
int *IPIV;
parsec_dtd_unpack_args(
this_task, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &L1, &ldl1, &L2, &ldl2, &IPIV );
this_task, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &L1, &ldl1, &L2, &ldl2, &IPIV );
CORE_zssssm( m1, n1, m2, n2, k, ib, A1, lda1, A2, lda2, L1, ldl1, L2, ldl2, IPIV );
......@@ -75,6 +75,8 @@ void MORSE_TASK_zssssm(const MORSE_option_t *options,
sizeof(int), &ldl1, VALUE,
PASSED_BY_REF, RTBLKADDR( L2, MORSE_Complex64_t, L2m, L2n ), INPUT,
sizeof(int), &ldl2, VALUE,
sizeof(int)*nb, IPIV, SCRATCH,
sizeof(int*), &IPIV, VALUE,
PARSEC_DTD_ARG_END );
(void)nb;
}
......@@ -43,7 +43,7 @@ CORE_ztstrf_parsec( parsec_execution_stream_t *context,
int info;
parsec_dtd_unpack_args(
this_task, &m, &n, &ib, &nb, &U, &ldu, &A, &lda, &L, &ldl, &IPIV, &WORK, &ldwork, &check_info, &iinfo );
this_task, &m, &n, &ib, &nb, &U, &ldu, &A, &lda, &L, &ldl, &IPIV, &WORK, &ldwork, &check_info, &iinfo );
CORE_ztstrf( m, n, ib, nb, U, ldu, A, lda, L, ldl, IPIV, WORK, ldwork, &info );
......@@ -73,10 +73,12 @@ void MORSE_TASK_ztstrf(const MORSE_option_t *options,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( L, MORSE_Complex64_t, Lm, Ln ), OUTPUT,
sizeof(int), &ldl, VALUE,
sizeof(int)*nb, IPIV, SCRATCH,
sizeof(int*), &IPIV, VALUE,
sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
sizeof(int), &nb, VALUE,
sizeof(int), &check_info, VALUE,
sizeof(int), &iinfo, VALUE,
PARSEC_DTD_ARG_END );
(void)nb;
}
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