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_zlag2c.c
Go to the documentation of this file.
1 
15 #include <lapacke.h>
16 #include "common.h"
17 
18 /***************************************************************************/
23 #if defined(PLASMA_HAVE_WEAK)
24 #pragma weak CORE_zlag2c = PCORE_zlag2c
25 #define CORE_zlag2c PCORE_zlag2c
26 #endif
27 void CORE_zlag2c(int m, int n,
28  PLASMA_Complex64_t *A, int lda,
29  PLASMA_Complex32_t *B, int ldb, int *info)
30 {
31  *info = LAPACKE_zlag2c_work(LAPACK_COL_MAJOR, m, n, A, lda, B, ldb);
32 }
33 /***************************************************************************/
36 void QUARK_CORE_zlag2c(Quark *quark, Quark_Task_Flags *task_flags,
37  int m, int n, int nb,
38  PLASMA_Complex64_t *A, int lda,
39  PLASMA_Complex32_t *B, int ldb,
40  PLASMA_sequence *sequence, PLASMA_request *request)
41 {
42  DAG_CORE_LAG2C;
43  QUARK_Insert_Task(quark, CORE_zlag2c_quark, task_flags,
44  sizeof(int), &m, VALUE,
45  sizeof(int), &n, VALUE,
46  sizeof(PLASMA_Complex64_t)*nb*nb, A, INPUT,
47  sizeof(int), &lda, VALUE,
48  sizeof(PLASMA_Complex32_t)*nb*nb, B, OUTPUT,
49  sizeof(int), &ldb, VALUE,
50  sizeof(PLASMA_sequence*), &sequence, VALUE,
51  sizeof(PLASMA_request*), &request, VALUE,
52  0);
53 }
54 
55 
56 /***************************************************************************/
59 #if defined(PLASMA_HAVE_WEAK)
60 #pragma weak CORE_zlag2c_quark = PCORE_zlag2c_quark
61 #define CORE_zlag2c_quark PCORE_zlag2c_quark
62 #endif
63 void CORE_zlag2c_quark(Quark *quark)
64 {
65  int m;
66  int n;
67  PLASMA_Complex64_t *A;
68  int lda;
69  PLASMA_Complex32_t *B;
70  int ldb;
71  PLASMA_sequence *sequence;
72  PLASMA_request *request;
73  int info;
74 
75  quark_unpack_args_8(quark, m, n, A, lda, B, ldb, sequence, request);
76  info = LAPACKE_zlag2c_work(LAPACK_COL_MAJOR, m, n, A, lda, B, ldb);
77  if (sequence->status == PLASMA_SUCCESS && info != 0)
78  plasma_sequence_flush(quark, sequence, request, info);
79 }
80 
81 /***************************************************************************/
86 #if defined(PLASMA_HAVE_WEAK)
87 #pragma weak CORE_clag2z = PCORE_clag2z
88 #define CORE_clag2z PCORE_clag2z
89 #endif
90 void CORE_clag2z(int m, int n,
91  PLASMA_Complex32_t *A, int lda,
92  PLASMA_Complex64_t *B, int ldb)
93 {
94  LAPACKE_clag2z_work(LAPACK_COL_MAJOR, m, n, A, lda, B, ldb);
95 }
96 
97 /***************************************************************************/
100 void QUARK_CORE_clag2z(Quark *quark, Quark_Task_Flags *task_flags,
101  int m, int n, int nb,
102  PLASMA_Complex32_t *A, int lda,
103  PLASMA_Complex64_t *B, int ldb)
104 {
105  QUARK_Insert_Task(quark, CORE_clag2z_quark, task_flags,
106  sizeof(int), &m, VALUE,
107  sizeof(int), &n, VALUE,
108  sizeof(PLASMA_Complex32_t)*nb*nb, A, INPUT,
109  sizeof(int), &lda, VALUE,
110  sizeof(PLASMA_Complex64_t)*nb*nb, B, INOUT,
111  sizeof(int), &ldb, VALUE,
112  0);
113 }
114 
115 /***************************************************************************/
118 #if defined(PLASMA_HAVE_WEAK)
119 #pragma weak CORE_clag2z_quark = PCORE_clag2z_quark
120 #define CORE_clag2z_quark PCORE_clag2z_quark
121 #endif
122 void CORE_clag2z_quark(Quark *quark)
123 {
124  int m;
125  int n;
126  PLASMA_Complex32_t *A;
127  int lda;
128  PLASMA_Complex64_t *B;
129  int ldb;
130 
131  quark_unpack_args_6(quark, m, n, A, lda, B, ldb);
132  LAPACKE_clag2z_work(LAPACK_COL_MAJOR, m, n, A, lda, B, ldb);
133 }
134