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_dlauum.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_dlauum = PCORE_dlauum
27 #define CORE_dlauum PCORE_dlauum
28 #endif
29 void CORE_dlauum(int uplo, int N, double *A, int LDA)
30 {
31  LAPACKE_dlauum_work(LAPACK_COL_MAJOR, lapack_const(uplo), N, A, LDA );
32 }
33 
34 /***************************************************************************/
37 void QUARK_CORE_dlauum(Quark *quark, Quark_Task_Flags *task_flags,
38  int uplo, int n, int nb,
39  double *A, int lda)
40 {
42  QUARK_Insert_Task(quark, CORE_dlauum_quark, task_flags,
43  sizeof(PLASMA_enum), &uplo, VALUE,
44  sizeof(int), &n, VALUE,
45  sizeof(double)*nb*nb, A, INOUT,
46  sizeof(int), &lda, VALUE,
47  0);
48 }
49 
50 /***************************************************************************/
53 #if defined(PLASMA_HAVE_WEAK)
54 #pragma weak CORE_dlauum_quark = PCORE_dlauum_quark
55 #define CORE_dlauum_quark PCORE_dlauum_quark
56 #endif
58 {
59  int uplo;
60  int N;
61  double *A;
62  int LDA;
63 
64  quark_unpack_args_4(quark, uplo, N, A, LDA);
65  LAPACKE_dlauum_work(LAPACK_COL_MAJOR, lapack_const(uplo), N, A, LDA);
66 }