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_dlaset.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_dlaset = PCORE_dlaset
56 #define CORE_dlaset PCORE_dlaset
57 #endif
58 void CORE_dlaset(PLASMA_enum uplo, int M, int N,
59  double alpha, double beta,
60  double *A, int LDA)
61 {
62  LAPACKE_dlaset_work(
63  LAPACK_COL_MAJOR,
64  lapack_const(uplo),
65  M, N, alpha, beta, A, LDA);
66 }
67 
68 /***************************************************************************/
71 void QUARK_CORE_dlaset(Quark *quark, Quark_Task_Flags *task_flags,
72  PLASMA_enum uplo, int M, int N,
73  double alpha, double beta,
74  double *A, int LDA)
75 {
76  DAG_CORE_LASET;
77  QUARK_Insert_Task(quark, CORE_dlaset_quark, task_flags,
78  sizeof(PLASMA_enum), &uplo, VALUE,
79  sizeof(int), &M, VALUE,
80  sizeof(int), &N, VALUE,
81  sizeof(double), &alpha, VALUE,
82  sizeof(double), &beta, VALUE,
83  sizeof(double)*M*N, A, OUTPUT,
84  sizeof(int), &LDA, VALUE,
85  0);
86 }
87 
88 /***************************************************************************/
91 #if defined(PLASMA_HAVE_WEAK)
92 #pragma weak CORE_dlaset_quark = PCORE_dlaset_quark
93 #define CORE_dlaset_quark PCORE_dlaset_quark
94 #endif
95 void CORE_dlaset_quark(Quark *quark)
96 {
97  int uplo;
98  int M;
99  int N;
100  double alpha;
101  double beta;
102  double *A;
103  int LDA;
104 
105  quark_unpack_args_7(quark, uplo, M, N, alpha, beta, A, LDA);
106  LAPACKE_dlaset_work(
107  LAPACK_COL_MAJOR,
108  lapack_const(uplo),
109  M, N, alpha, beta, A, LDA);
110 }