86 #if defined(PLASMA_HAVE_WEAK)
87 #pragma weak CORE_dssssm = PCORE_dssssm
88 #define CORE_dssssm PCORE_dssssm
90 int CORE_dssssm(
int M1,
int N1,
int M2,
int N2,
int K,
int IB,
97 static double zone = 1.0;
98 static double mzone =-1.0;
128 if (LDA1 <
max(1,M1)) {
132 if (LDA2 <
max(1,M2)) {
136 if (LDL1 <
max(1,IB)) {
140 if (LDL2 <
max(1,M2)) {
146 if ((M1 == 0) || (N1 == 0) || (M2 == 0) || (N2 == 0) || (K == 0) || (IB == 0))
151 for(ii = 0; ii < K; ii += IB) {
154 for(i = 0; i < sb; i++) {
174 (mzone), &L2[LDL2*ii], LDL2,
185 int m1,
int n1,
int m2,
int n2,
int k,
int ib,
int nb,
186 double *A1,
int lda1,
187 double *A2,
int lda2,
188 double *L1,
int ldl1,
189 double *L2,
int ldl2,
194 sizeof(
int), &m1,
VALUE,
195 sizeof(
int), &n1,
VALUE,
196 sizeof(
int), &m2,
VALUE,
197 sizeof(
int), &n2,
VALUE,
198 sizeof(
int), &k,
VALUE,
199 sizeof(
int), &ib,
VALUE,
200 sizeof(
double)*nb*nb, A1,
INOUT,
201 sizeof(
int), &lda1,
VALUE,
203 sizeof(
int), &lda2,
VALUE,
204 sizeof(
double)*ib*nb, L1,
INPUT,
205 sizeof(
int), &ldl1,
VALUE,
206 sizeof(
double)*ib*nb, L2,
INPUT,
207 sizeof(
int), &ldl2,
VALUE,
208 sizeof(
int)*nb, IPIV,
INPUT,
215 #if defined(PLASMA_HAVE_WEAK)
216 #pragma weak CORE_dssssm_quark = PCORE_dssssm_quark
217 #define CORE_dssssm_quark PCORE_dssssm_quark
237 quark_unpack_args_15(quark, m1, n1, m2, n2, k, ib, A1, lda1, A2, lda2, L1, ldl1, L2, ldl2, IPIV);
238 CORE_dssssm(m1, n1, m2, n2, k, ib, A1, lda1, A2, lda2, L1, ldl1, L2, ldl2, IPIV);