Something went wrong on our end
Forked from
solverstack / Chameleon
2567 commits behind the upstream repository.
-
THIBAULT Samuel authoredTHIBAULT Samuel authored
codelet_ztrsm.c 3.15 KiB
/**
*
* @copyright (c) 2009-2015 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2015 Inria. All rights reserved.
* @copyright (c) 2012-2016 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
/**
* @file codelet_ztrsm.c
*
* MORSE codelets kernel
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @author Reazul Hoque
* @precisions normal z -> c d s
*
**/
#include "runtime/parsec/include/morse_parsec.h"
static int
CORE_ztrsm_parsec(dague_execution_unit_t *context, dague_execution_context_t *this_task)
{
MORSE_enum *side, *uplo, *trans, *diag;
int *tempmm, *nb, *ldak, *ldam;
MORSE_Complex64_t *alpha;
MORSE_Complex64_t *T;
MORSE_Complex64_t *C;
dague_dtd_unpack_args(this_task,
UNPACK_VALUE, &side,
UNPACK_VALUE, &uplo,
UNPACK_VALUE, &trans,
UNPACK_VALUE, &diag,
UNPACK_VALUE, &tempmm,
UNPACK_VALUE, &nb,
UNPACK_VALUE, &alpha,
UNPACK_DATA, &T,
UNPACK_VALUE, &ldak,
UNPACK_DATA, &C,
UNPACK_VALUE, &ldam
);
CORE_ztrsm(*side, *uplo, *trans, *diag,
*tempmm, *nb, *alpha, T, *ldak,
C, *ldam);
return 0;
}
void MORSE_TASK_ztrsm(const MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo, MORSE_enum transA, MORSE_enum diag,
int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb)
{
dague_dtd_handle_t* DAGUE_dtd_handle = (dague_dtd_handle_t *)(options->sequence->schedopt);
insert_task_generic_fptr(DAGUE_dtd_handle, CORE_ztrsm_parsec, "Trsm",
sizeof(MORSE_enum), &side, VALUE,
sizeof(MORSE_enum), &uplo, VALUE,
sizeof(MORSE_enum), &transA, VALUE,
sizeof(MORSE_enum), &diag, VALUE,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(MORSE_Complex64_t), &alpha, VALUE,
PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT | REGION_FULL,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( B, MORSE_Complex64_t, Bm, Bn ), INOUT | REGION_FULL,
sizeof(int), &ldb, VALUE,
0);
}