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_ssymm.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_ssymm = PCORE_ssymm
26 #define CORE_ssymm PCORE_ssymm
27 #endif
28 void CORE_ssymm(int side, int uplo,
29  int M, int N,
30  float alpha, float *A, int LDA,
31  float *B, int LDB,
32  float beta, float *C, int LDC)
33 {
34  cblas_ssymm(
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_ssymm(Quark *quark, Quark_Task_Flags *task_flags,
47  int side, int uplo,
48  int m, int n, int nb,
49  float alpha, float *A, int lda,
50  float *B, int ldb,
51  float beta, float *C, int ldc)
52 {
53  DAG_CORE_SYMM;
54  QUARK_Insert_Task(quark, CORE_ssymm_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(float), &alpha, VALUE,
60  sizeof(float)*nb*nb, A, INPUT,
61  sizeof(int), &lda, VALUE,
62  sizeof(float)*nb*nb, B, INPUT,
63  sizeof(int), &ldb, VALUE,
64  sizeof(float), &beta, VALUE,
65  sizeof(float)*nb*nb, C, INOUT,
66  sizeof(int), &ldc, VALUE,
67  0);
68 }
69 
70 /***************************************************************************/
73 #if defined(PLASMA_HAVE_WEAK)
74 #pragma weak CORE_ssymm_quark = PCORE_ssymm_quark
75 #define CORE_ssymm_quark PCORE_ssymm_quark
76 #endif
77 void CORE_ssymm_quark(Quark *quark)
78 {
79  int side;
80  int uplo;
81  int M;
82  int N;
83  float alpha;
84  float *A;
85  int LDA;
86  float *B;
87  int LDB;
88  float beta;
89  float *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_ssymm(
94  CblasColMajor,
95  (CBLAS_SIDE)side, (CBLAS_UPLO)uplo,
96  M, N,
97  (alpha), A, LDA,
98  B, LDB,
99  (beta), C, LDC);
100 }