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_dsyrk.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_dsyrk = PCORE_dsyrk
26 #define CORE_dsyrk PCORE_dsyrk
27 #endif
28 void CORE_dsyrk(int uplo, int trans,
29  int N, int K,
30  double alpha, double *A, int LDA,
31  double beta, double *C, int LDC)
32 {
33  cblas_dsyrk(
34  CblasColMajor,
35  (CBLAS_UPLO)uplo, (CBLAS_TRANSPOSE)trans,
36  N, K,
37  (alpha), A, LDA,
38  (beta), C, LDC);
39 }
40 
41 /***************************************************************************/
44 void QUARK_CORE_dsyrk(Quark *quark, Quark_Task_Flags *task_flags,
45  int uplo, int trans,
46  int n, int k, int nb,
47  double alpha, double *A, int lda,
48  double beta, double *C, int ldc)
49 {
50  DAG_CORE_SYRK;
51  QUARK_Insert_Task(quark, CORE_dsyrk_quark, task_flags,
52  sizeof(PLASMA_enum), &uplo, VALUE,
53  sizeof(PLASMA_enum), &trans, VALUE,
54  sizeof(int), &n, VALUE,
55  sizeof(int), &k, VALUE,
56  sizeof(double), &alpha, VALUE,
57  sizeof(double)*nb*nb, A, INPUT,
58  sizeof(int), &lda, VALUE,
59  sizeof(double), &beta, VALUE,
60  sizeof(double)*nb*nb, C, INOUT,
61  sizeof(int), &ldc, VALUE,
62  0);
63 }
64 
65 /***************************************************************************/
68 #if defined(PLASMA_HAVE_WEAK)
69 #pragma weak CORE_dsyrk_quark = PCORE_dsyrk_quark
70 #define CORE_dsyrk_quark PCORE_dsyrk_quark
71 #endif
72 void CORE_dsyrk_quark(Quark *quark)
73 {
74  int uplo;
75  int trans;
76  int n;
77  int k;
78  double alpha;
79  double *A;
80  int lda;
81  double beta;
82  double *C;
83  int ldc;
84 
85  quark_unpack_args_10(quark, uplo, trans, n, k, alpha, A, lda, beta, C, ldc);
86  cblas_dsyrk(
87  CblasColMajor,
88  (CBLAS_UPLO)uplo, (CBLAS_TRANSPOSE)trans,
89  n, k,
90  (alpha), A, lda,
91  (beta), C, ldc);
92 }