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_dsymm.c
Go to the documentation of this file.
1 
17 #include "common.h"
18 
19 /***************************************************************************/
24 #if defined(PLASMA_HAVE_WEAK)
25 #pragma weak CORE_dsymm = PCORE_dsymm
26 #define CORE_dsymm PCORE_dsymm
27 #endif
28 void CORE_dsymm(int side, int uplo,
29  int M, int N,
30  double alpha, double *A, int LDA,
31  double *B, int LDB,
32  double beta, double *C, int LDC)
33 {
34  cblas_dsymm(
35  CblasColMajor,
36  (CBLAS_SIDE)side, (CBLAS_UPLO)uplo,
37  M, N,
38  (alpha), A, LDA,
39  B, LDB,
40  (beta), C, LDC);
41 }
42 
43 /***************************************************************************/
46 void QUARK_CORE_dsymm(Quark *quark, Quark_Task_Flags *task_flags,
47  int side, int uplo,
48  int m, int n, int nb,
49  double alpha, double *A, int lda,
50  double *B, int ldb,
51  double beta, double *C, int ldc)
52 {
53  DAG_CORE_SYMM;
54  QUARK_Insert_Task(quark, CORE_dsymm_quark, task_flags,
55  sizeof(PLASMA_enum), &side, VALUE,
56  sizeof(PLASMA_enum), &uplo, VALUE,
57  sizeof(int), &m, VALUE,
58  sizeof(int), &n, VALUE,
59  sizeof(double), &alpha, VALUE,
60  sizeof(double)*nb*nb, A, INPUT,
61  sizeof(int), &lda, VALUE,
62  sizeof(double)*nb*nb, B, INPUT,
63  sizeof(int), &ldb, VALUE,
64  sizeof(double), &beta, VALUE,
65  sizeof(double)*nb*nb, C, INOUT,
66  sizeof(int), &ldc, VALUE,
67  0);
68 }
69 
70 /***************************************************************************/
73 #if defined(PLASMA_HAVE_WEAK)
74 #pragma weak CORE_dsymm_quark = PCORE_dsymm_quark
75 #define CORE_dsymm_quark PCORE_dsymm_quark
76 #endif
77 void CORE_dsymm_quark(Quark *quark)
78 {
79  int side;
80  int uplo;
81  int M;
82  int N;
83  double alpha;
84  double *A;
85  int LDA;
86  double *B;
87  int LDB;
88  double beta;
89  double *C;
90  int LDC;
91 
92  quark_unpack_args_12(quark, side, uplo, M, N, alpha, A, LDA, B, LDB, beta, C, LDC);
93  cblas_dsymm(
94  CblasColMajor,
95  (CBLAS_SIDE)side, (CBLAS_UPLO)uplo,
96  M, N,
97  (alpha), A, LDA,
98  B, LDB,
99  (beta), C, LDC);
100 }