22 #if defined(PLASMA_HAVE_WEAK)
23 #pragma weak CORE_dgeadd = PCORE_dgeadd
24 #define CORE_dgeadd PCORE_dgeadd
32 if (M == LDA && M == LDB)
35 for (j = 0; j < N; j++)
36 cblas_daxpy(M, (alpha), &A[j*LDA], 1, &B[j*LDB], 1);
44 int m,
int n,
int nb,
double alpha,
50 sizeof(
int), &m,
VALUE,
51 sizeof(
int), &n,
VALUE,
52 sizeof(
double), &alpha,
VALUE,
53 sizeof(
double)*nb*nb, A,
INPUT,
54 sizeof(
int), &lda,
VALUE,
55 sizeof(
double)*nb*nb, B,
INOUT,
56 sizeof(
int), &ldb,
VALUE,
63 #if defined(PLASMA_HAVE_WEAK)
64 #pragma weak CORE_dgeadd_quark = PCORE_dgeadd_quark
65 #define CORE_dgeadd_quark PCORE_dgeadd_quark
80 if (M == LDA && M == LDB)
83 for (j = 0; j < N; j++)
84 cblas_daxpy(M, (alpha), &A[j*LDA], 1, &B[j*LDB], 1);