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_zlaset.c
Go to the documentation of this file.
1 
15 #include <lapacke.h>
16 #include "common.h"
17 
18 /***************************************************************************/
54 #if defined(PLASMA_HAVE_WEAK)
55 #pragma weak CORE_zlaset = PCORE_zlaset
56 #define CORE_zlaset PCORE_zlaset
57 #endif
58 void CORE_zlaset(PLASMA_enum uplo, int M, int N,
59  PLASMA_Complex64_t alpha, PLASMA_Complex64_t beta,
60  PLASMA_Complex64_t *A, int LDA)
61 {
62  LAPACKE_zlaset_work(
63  LAPACK_COL_MAJOR,
64  lapack_const(uplo),
65  M, N, alpha, beta, A, LDA);
66 }
67 
68 /***************************************************************************/
71 void QUARK_CORE_zlaset(Quark *quark, Quark_Task_Flags *task_flags,
72  PLASMA_enum uplo, int M, int N,
73  PLASMA_Complex64_t alpha, PLASMA_Complex64_t beta,
74  PLASMA_Complex64_t *A, int LDA)
75 {
76  DAG_CORE_LASET;
77  QUARK_Insert_Task(quark, CORE_zlaset_quark, task_flags,
78  sizeof(PLASMA_enum), &uplo, VALUE,
79  sizeof(int), &M, VALUE,
80  sizeof(int), &N, VALUE,
81  sizeof(PLASMA_Complex64_t), &alpha, VALUE,
82  sizeof(PLASMA_Complex64_t), &beta, VALUE,
83  sizeof(PLASMA_Complex64_t)*M*N, A, OUTPUT,
84  sizeof(int), &LDA, VALUE,
85  0);
86 }
87 
88 /***************************************************************************/
91 #if defined(PLASMA_HAVE_WEAK)
92 #pragma weak CORE_zlaset_quark = PCORE_zlaset_quark
93 #define CORE_zlaset_quark PCORE_zlaset_quark
94 #endif
95 void CORE_zlaset_quark(Quark *quark)
96 {
97  int uplo;
98  int M;
99  int N;
100  PLASMA_Complex64_t alpha;
101  PLASMA_Complex64_t beta;
102  PLASMA_Complex64_t *A;
103  int LDA;
104 
105  quark_unpack_args_7(quark, uplo, M, N, alpha, beta, A, LDA);
106  LAPACKE_zlaset_work(
107  LAPACK_COL_MAJOR,
108  lapack_const(uplo),
109  M, N, alpha, beta, A, LDA);
110 }