codelet_zpotrf.c File Reference

#include "morse_starpu.h"

Include dependency graph for codelet_zpotrf.c:

Go to the source code of this file.

Macros
#define	cl_zpotrf_mc_func   cl_zpotrf_cpu_func

Functions
static void	cl_zpotrf_cpu_func (void *descr[], void *cl_arg)
void	MORSE_zpotrf (MorseOption_t *option, PLASMA_enum uplo, int n, magma_desc_t *A, int Am, int An, int iinfo)

---

Macro Definition Documentation

#define cl_zpotrf_mc_func   cl_zpotrf_cpu_func

Definition at line 54 of file codelet_zpotrf.c.

---

Function Documentation

static void cl_zpotrf_cpu_func ( void *  descr[], void *  cl_arg  )

static

Definition at line 22 of file codelet_zpotrf.c.

References A, starpu_unpack_cl_args(), and uplo.

{
    PLASMA_enum uplo;
    int N;
    PLASMA_Complex64_t *A;
    int LDA;
    int INFO = 0;

    A = (PLASMA_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[0]);

    starpu_unpack_cl_args(cl_arg, &uplo, &N, &LDA);
    INFO = LAPACKE_zpotrf_work(LAPACK_COL_MAJOR, lapack_const(uplo), N, A, LDA);
}

Here is the call graph for this function:

void MORSE_zpotrf	(	MorseOption_t *	option,
		PLASMA_enum	uplo,
		int	n,
		magma_desc_t *	A,
		int	Am,
		int	An,
		int	iinfo
	)

Definition at line 93 of file codelet_zpotrf.c.

References BLKADDR, BLKLDD, CALLBACK, INOUT, PRIORITY, starpu_Insert_Task(), and VALUE.

{
    starpu_codelet *zpotrf_codelet;
    void (*callback)(void*) = option->profiling ? cl_zpotrf_callback : NULL;
    int lda = BLKLDD( A, Am );

#ifdef MORSE_USE_MULTICORE
    zpotrf_codelet = option->parallel ? &cl_zpotrf_mc : &cl_zpotrf;
#else
    zpotrf_codelet = &cl_zpotrf;
#endif

    starpu_Insert_Task(zpotrf_codelet,
                       VALUE,        &uplo,  sizeof(PLASMA_enum),
                       VALUE,        &n,     sizeof(int),
                       INOUT,        BLKADDR( A, PLASMA_Complex64_t, Am, An ),
                       VALUE,        &lda,   sizeof(int),
                       PRIORITY,     option->priority,
                       CALLBACK,     callback, NULL,
                       0);

    /* TODO: take cancellation into account */
    /* if ( *info != 0 ) */
    /*     return (*info + iinfo); */
}

Here is the call graph for this function:

Here is the caller graph for this function: