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