core_slange.c File Reference

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

Include dependency graph for core_slange.c:

Go to the source code of this file.

Functions
void	CORE_slange (int norm, int M, int N, float *A, int LDA, float *work, float *normA)
void	QUARK_CORE_slange (Quark *quark, Quark_Task_Flags *task_flags, int norm, int M, int N, float *A, int LDA, int szeA, int szeW, float *result)
void	CORE_slange_quark (Quark *quark)
void	QUARK_CORE_slange_f1 (Quark *quark, Quark_Task_Flags *task_flags, PLASMA_enum norm, int M, int N, float *A, int LDA, int szeA, int szeW, float *result, float *fake, int szeF)
void	CORE_slange_f1_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:

Julien Langou

Henricus Bouwmeester

Mathieu Faverge

Date:

2010-11-15 s Tue Nov 22 14:35:20 2011

Definition in file core_slange.c.

---

Function Documentation

void CORE_slange	(	int	norm,
		int	M,
		int	N,
		float *	A,
		int	LDA,
		float *	work,
		float *	normA
	)

Definition at line 29 of file core_slange.c.

References lapack_const.

{
    *normA = LAPACKE_slange_work(
        LAPACK_COL_MAJOR,
        lapack_const(norm),
        M, N, A, LDA, work);
}

Here is the caller graph for this function:

void CORE_slange_f1_quark

(

Quark *

quark

)

Definition at line 114 of file core_slange.c.

References A, lapack_const, norm, and quark_unpack_args_8.

{
    float *normA;
    int norm;
    int M;
    int N;
    float *A;
    int LDA;
    float *work;
    float *fake;

    quark_unpack_args_8(quark, norm, M, N, A, LDA, work, normA, fake);
    *normA = LAPACKE_slange_work(
        LAPACK_COL_MAJOR,
        lapack_const(norm),
        M, N, A, LDA, work);
}

Here is the caller graph for this function:

void CORE_slange_quark

(

Quark *

quark

)

Definition at line 67 of file core_slange.c.

References A, lapack_const, norm, and quark_unpack_args_7.

{
    float *normA;
    int norm;
    int M;
    int N;
    float *A;
    int LDA;
    float *work;

    quark_unpack_args_7(quark, norm, M, N, A, LDA, work, normA);
    *normA = LAPACKE_slange_work(
        LAPACK_COL_MAJOR,
        lapack_const(norm),
        M, N, A, LDA, work);
}

Here is the caller graph for this function:

void QUARK_CORE_slange	(	Quark *	quark,
		Quark_Task_Flags *	task_flags,
		int	norm,
		int	M,
		int	N,
		float *	A,
		int	LDA,
		int	szeA,
		int	szeW,
		float *	result
	)

Definition at line 42 of file core_slange.c.

References CORE_slange_quark(), DAG_CORE_LANGE, INPUT, max, OUTPUT, QUARK_Insert_Task(), SCRATCH, and VALUE.

{
    szeW = max(1, szeW);
    DAG_CORE_LANGE;
    QUARK_Insert_Task(quark, CORE_slange_quark, task_flags,
        sizeof(PLASMA_enum),                &norm,  VALUE,
        sizeof(int),                        &M,     VALUE,
        sizeof(int),                        &N,     VALUE,
        sizeof(float)*szeA,     A,             INPUT,
        sizeof(int),                        &LDA,   VALUE,
        sizeof(float)*szeW,                 NULL,          SCRATCH,
        sizeof(float),                      result,        OUTPUT,
        0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void QUARK_CORE_slange_f1	(	Quark *	quark,
		Quark_Task_Flags *	task_flags,
		PLASMA_enum	norm,
		int	M,
		int	N,
		float *	A,
		int	LDA,
		int	szeA,
		int	szeW,
		float *	result,
		float *	fake,
		int	szeF
	)

Definition at line 87 of file core_slange.c.

References CORE_slange_f1_quark(), DAG_CORE_LANGE, GATHERV, INPUT, max, OUTPUT, QUARK_Insert_Task(), SCRATCH, and VALUE.

{
    szeW = max(1, szeW);
    DAG_CORE_LANGE;
    QUARK_Insert_Task(quark, CORE_slange_f1_quark, task_flags,
        sizeof(PLASMA_enum),                &norm,  VALUE,
        sizeof(int),                        &M,     VALUE,
        sizeof(int),                        &N,     VALUE,
        sizeof(float)*szeA,     A,             INPUT,
        sizeof(int),                        &LDA,   VALUE,
        sizeof(float)*szeW,                 NULL,          SCRATCH,
        sizeof(float),                      result,        OUTPUT,
        sizeof(float)*szeF,                 fake,          OUTPUT | GATHERV,
        0);
}

Here is the call graph for this function:

Here is the caller graph for this function: