64 #if defined(PLASMA_HAVE_WEAK)
65 #pragma weak CORE_dgessm = PCORE_dgessm
66 #define CORE_dgessm PCORE_dgessm
73 static double zone = 1.0;
74 static double mzone = -1.0;
97 if ((LDL <
max(1,M)) && (M > 0)) {
101 if ((LDA <
max(1,M)) && (M > 0)) {
107 if ((M == 0) || (N == 0) || (K == 0) || (IB == 0))
110 for(i = 0; i < K; i += IB) {
117 LAPACKE_dlaswp_work(LAPACK_COL_MAJOR, N, A, LDA, tmp, tmp2, IPIV, ione);
134 (mzone), &L[LDL*i+(i+sb)], LDL,
136 (zone), &A[i+sb], LDA );
146 int m,
int n,
int k,
int ib,
int nb,
153 sizeof(
int), &m,
VALUE,
154 sizeof(
int), &n,
VALUE,
155 sizeof(
int), &k,
VALUE,
156 sizeof(
int), &ib,
VALUE,
157 sizeof(
int)*nb, IPIV,
INPUT,
159 sizeof(
int), &ldl,
VALUE,
160 sizeof(
double)*nb*nb, A,
INOUT,
161 sizeof(
int), &lda,
VALUE,
168 #if defined(PLASMA_HAVE_WEAK)
169 #pragma weak CORE_dgessm_quark = PCORE_dgessm_quark
170 #define CORE_dgessm_quark PCORE_dgessm_quark