core_claset2.c File Reference

#include <lapacke.h>
#include "common.h"

Include dependency graph for core_claset2.c:

Go to the source code of this file.

Functions
void	CORE_claset2 (PLASMA_enum uplo, int M, int N, PLASMA_Complex32_t alpha, PLASMA_Complex32_t *A, int LDA)
void	QUARK_CORE_claset2 (Quark *quark, Quark_Task_Flags *task_flags, PLASMA_enum uplo, int M, int N, PLASMA_Complex32_t alpha, PLASMA_Complex32_t *A, int LDA)
void	CORE_claset2_quark (Quark *quark)

---

Detailed Description

PLASMA core_blas kernel PLASMA is a software package provided by Univ. of Tennessee, Univ. of California Berkeley and Univ. of Colorado Denver

Version:

2.4.5

Author:

Hatem Ltaief

Date:

2010-11-15 c Tue Nov 22 14:35:21 2011

Definition in file core_claset2.c.

---

Function Documentation

void CORE_claset2	(	PLASMA_enum	uplo,
		int	M,
		int	N,
		PLASMA_Complex32_t	alpha,
		PLASMA_Complex32_t *	A,
		int	LDA
	)

CORE_claset2 - Sets the elements of the matrix A to alpha. Not LAPACK compliant! Read below.

Parameters:

[in]	uplo	Specifies which elements of the matrix are to be set = PlasmaUpper: STRICT Upper part of A is set to alpha; = PlasmaLower: STRICT Lower part of A is set to alpha; = PlasmaUpperLower: ALL elements of A are set to alpha. Not LAPACK Compliant.
[in]	M	The number of rows of the matrix A. M >= 0.
[in]	N	The number of columns of the matrix A. N >= 0.
[in]	alpha	The constant to which the elements are to be set.
[in,out]	A	On entry, the M-by-N tile A. On exit, A has been set to alpha accordingly.
[in]	LDA	The leading dimension of the array A. LDA >= max(1,M).

Definition at line 56 of file core_claset2.c.

References lapack_const, PlasmaLower, and PlasmaUpper.

{
    if (uplo == PlasmaUpper) {
        LAPACKE_claset_work(
            LAPACK_COL_MAJOR,
            lapack_const(uplo),
            M, N-1, alpha, alpha, A+LDA, LDA);
    }
    else if (uplo == PlasmaLower) {
        LAPACKE_claset_work(
            LAPACK_COL_MAJOR,
            lapack_const(uplo),
            M-1, N, alpha, alpha, A+1, LDA);
    }
    else {
        LAPACKE_claset_work(
            LAPACK_COL_MAJOR,
            lapack_const(uplo),
            M, N, alpha, alpha, A, LDA);
    }
}

Here is the caller graph for this function:

void CORE_claset2_quark

(

Quark *

quark

)

Definition at line 103 of file core_claset2.c.

References A, CORE_claset2(), quark_unpack_args_6, and uplo.

{
    int uplo;
    int M;
    int N;
    PLASMA_Complex32_t alpha;
    PLASMA_Complex32_t *A;
    int LDA;

    quark_unpack_args_6(quark, uplo, M, N, alpha, A, LDA);
    CORE_claset2(uplo, M, N, alpha, A, LDA);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void QUARK_CORE_claset2	(	Quark *	quark,
		Quark_Task_Flags *	task_flags,
		PLASMA_enum	uplo,
		int	M,
		int	N,
		PLASMA_Complex32_t	alpha,
		PLASMA_Complex32_t *	A,
		int	LDA
	)

Definition at line 82 of file core_claset2.c.

References CORE_claset2_quark(), OUTPUT, QUARK_Insert_Task(), and VALUE.

{
    QUARK_Insert_Task(quark, CORE_claset2_quark, task_flags,
        sizeof(PLASMA_enum),                &uplo,  VALUE,
        sizeof(int),                        &M,     VALUE,
        sizeof(int),                        &N,     VALUE,
        sizeof(PLASMA_Complex32_t),         &alpha, VALUE,
        sizeof(PLASMA_Complex32_t)*M*N,     A,      OUTPUT,
        sizeof(int),                        &LDA,   VALUE,
        0);
}

Here is the call graph for this function:

Here is the caller graph for this function: