codelet_zlacpy.c

Go to the documentation of this file.

#include "morse_quark.h"
/*
 * Wrapper
 */
void MORSE_zlacpy(MorseOption_t *options, 
                          PLASMA_enum uplo, int m, int n,
                          magma_desc_t *A, int Am, int An,
                          magma_desc_t *B, int Bm, int Bn)
{
    int lda = BLKLDD( A, Am );
    int ldb = BLKLDD( B, Bm );

    DAG_CORE_LACPY;
    QUARK_Insert_Task(options->quark, CORE_zlacpy_quark, options->task_flags,
        sizeof(PLASMA_enum),                &uplo,  VALUE,
        sizeof(int),                        &m,     VALUE,
        sizeof(int),                        &n,     VALUE,
        sizeof(PLASMA_Complex64_t)*A->desc.mb*A->desc.nb, BLKADDR(A, PLASMA_Complex64_t, Am, An ),             INPUT,
        sizeof(int),                        &lda,   VALUE,
        sizeof(PLASMA_Complex64_t)*B->desc.mb*B->desc.nb, BLKADDR(B, PLASMA_Complex64_t, Bm, Bn ),             OUTPUT,
        sizeof(int),                        &ldb,   VALUE,
        0);
}