24 #if defined(PLASMA_HAVE_WEAK)
25 #pragma weak CORE_dzasum = PCORE_dzasum
26 #define CORE_dzasum PCORE_dzasum
32 double *tmpW,
sum, abs;
37 for (j = 0; j < N; j++) {
40 for (i = 0; i < j; i++) {
46 work[j] += sum +
cabs(*tmpA);
50 for (j = 0; j < N; j++) {
54 work[j] +=
cabs(*tmpA);
57 for (i = j+1; i < M; i++) {
69 for (j = 0; j < N; j++) {
72 for (i = 0; i < M; i++) {
73 work[j] +=
cabs(*tmpA);
79 for (j = 0; j < N; j++) {
82 for (i = 0; i < M; i++) {
84 *tmpW +=
cabs( *tmpA );
98 double *work,
int szeW)
104 sizeof(
int), &M,
VALUE,
105 sizeof(
int), &N,
VALUE,
107 sizeof(
int), &lda,
VALUE,
108 sizeof(
double)*szeW, work,
INOUT,
115 #if defined(PLASMA_HAVE_WEAK)
116 #pragma weak CORE_dzasum_quark = PCORE_dzasum_quark
117 #define CORE_dzasum_quark PCORE_dzasum_quark
139 double *work,
int szeW,
double *fake,
int szeF)
146 sizeof(
int), &M,
VALUE,
147 sizeof(
int), &N,
VALUE,
149 sizeof(
int), &lda,
VALUE,
150 sizeof(
double)*szeW, work,
INOUT,
158 #if defined(PLASMA_HAVE_WEAK)
159 #pragma weak CORE_dzasum_f1_quark = PCORE_dzasum_f1_quark
160 #define CORE_dzasum_f1_quark PCORE_dzasum_f1_quark