PLASMA  2.4.5
PLASMA - Parallel Linear Algebra for Scalable Multi-core Architectures
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
core_slauum.c
Go to the documentation of this file.
1 
17 #include <lapacke.h>
18 #include "common.h"
19 
20 /***************************************************************************/
25 #if defined(PLASMA_HAVE_WEAK)
26 #pragma weak CORE_slauum = PCORE_slauum
27 #define CORE_slauum PCORE_slauum
28 #endif
29 void CORE_slauum(int uplo, int N, float *A, int LDA)
30 {
31  LAPACKE_slauum_work(LAPACK_COL_MAJOR, lapack_const(uplo), N, A, LDA );
32 }
33 
34 /***************************************************************************/
37 void QUARK_CORE_slauum(Quark *quark, Quark_Task_Flags *task_flags,
38  int uplo, int n, int nb,
39  float *A, int lda)
40 {
41  DAG_CORE_LAUUM;
42  QUARK_Insert_Task(quark, CORE_slauum_quark, task_flags,
43  sizeof(PLASMA_enum), &uplo, VALUE,
44  sizeof(int), &n, VALUE,
45  sizeof(float)*nb*nb, A, INOUT,
46  sizeof(int), &lda, VALUE,
47  0);
48 }
49 
50 /***************************************************************************/
53 #if defined(PLASMA_HAVE_WEAK)
54 #pragma weak CORE_slauum_quark = PCORE_slauum_quark
55 #define CORE_slauum_quark PCORE_slauum_quark
56 #endif
57 void CORE_slauum_quark(Quark *quark)
58 {
59  int uplo;
60  int N;
61  float *A;
62  int LDA;
63 
64  quark_unpack_args_4(quark, uplo, N, A, LDA);
65  LAPACKE_slauum_work(LAPACK_COL_MAJOR, lapack_const(uplo), N, A, LDA);
66 }