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