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_clange.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_clange = PCORE_clange
27 #define CORE_clange PCORE_clange
28 #endif
29 void CORE_clange(int norm, int M, int N,
30  PLASMA_Complex32_t *A, int LDA,
31  float *work, float *normA)
32 {
33  *normA = LAPACKE_clange_work(
34  LAPACK_COL_MAJOR,
35  lapack_const(norm),
36  M, N, A, LDA, work);
37 }
38 
39 /***************************************************************************/
42 void QUARK_CORE_clange(Quark *quark, Quark_Task_Flags *task_flags,
43  int norm, int M, int N,
44  PLASMA_Complex32_t *A, int LDA, int szeA,
45  int szeW, float *result)
46 {
47  szeW = max(1, szeW);
48  DAG_CORE_LANGE;
49  QUARK_Insert_Task(quark, CORE_clange_quark, task_flags,
50  sizeof(PLASMA_enum), &norm, VALUE,
51  sizeof(int), &M, VALUE,
52  sizeof(int), &N, VALUE,
53  sizeof(PLASMA_Complex32_t)*szeA, A, INPUT,
54  sizeof(int), &LDA, VALUE,
55  sizeof(float)*szeW, NULL, SCRATCH,
56  sizeof(float), result, OUTPUT,
57  0);
58 }
59 
60 /***************************************************************************/
63 #if defined(PLASMA_HAVE_WEAK)
64 #pragma weak CORE_clange_quark = PCORE_clange_quark
65 #define CORE_clange_quark PCORE_clange_quark
66 #endif
67 void CORE_clange_quark(Quark *quark)
68 {
69  float *normA;
70  int norm;
71  int M;
72  int N;
73  PLASMA_Complex32_t *A;
74  int LDA;
75  float *work;
76 
77  quark_unpack_args_7(quark, norm, M, N, A, LDA, work, normA);
78  *normA = LAPACKE_clange_work(
79  LAPACK_COL_MAJOR,
80  lapack_const(norm),
81  M, N, A, LDA, work);
82 }
83 
84 /***************************************************************************/
87 void QUARK_CORE_clange_f1(Quark *quark, Quark_Task_Flags *task_flags,
88  PLASMA_enum norm, int M, int N,
89  PLASMA_Complex32_t *A, int LDA, int szeA,
90  int szeW, float *result,
91  float *fake, int szeF)
92 {
93  szeW = max(1, szeW);
94  DAG_CORE_LANGE;
95  QUARK_Insert_Task(quark, CORE_clange_f1_quark, task_flags,
96  sizeof(PLASMA_enum), &norm, VALUE,
97  sizeof(int), &M, VALUE,
98  sizeof(int), &N, VALUE,
99  sizeof(PLASMA_Complex32_t)*szeA, A, INPUT,
100  sizeof(int), &LDA, VALUE,
101  sizeof(float)*szeW, NULL, SCRATCH,
102  sizeof(float), result, OUTPUT,
103  sizeof(float)*szeF, fake, OUTPUT | GATHERV,
104  0);
105 }
106 
107 /***************************************************************************/
110 #if defined(PLASMA_HAVE_WEAK)
111 #pragma weak CORE_clange_f1_quark = PCORE_clange_f1_quark
112 #define CORE_clange_f1_quark PCORE_clange_f1_quark
113 #endif
114 void CORE_clange_f1_quark(Quark *quark)
115 {
116  float *normA;
117  int norm;
118  int M;
119  int N;
120  PLASMA_Complex32_t *A;
121  int LDA;
122  float *work;
123  float *fake;
124 
125  quark_unpack_args_8(quark, norm, M, N, A, LDA, work, normA, fake);
126  *normA = LAPACKE_clange_work(
127  LAPACK_COL_MAJOR,
128  lapack_const(norm),
129  M, N, A, LDA, work);
130 }
131