| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/check/ |
| H A D | zgesdd_check.c | 4 static integer c_n1 = -1; variable
92 maxwrk = *n + *n * ilaenv_(&c__1, "ZGEQRF", " ", m, n, & c_n1, &c_n1); in zgesdd_check()
102 wrkbl = *n + *n * ilaenv_(&c__1, "ZGEQRF", " ", m, n, & c_n1, &c_n1); in zgesdd_check()
125 wrkbl = *n + *n * ilaenv_(&c__1, "ZGEQRF", " ", m, n, & c_n1, &c_n1); in zgesdd_check()
148 wrkbl = *n + *n * ilaenv_(&c__1, "ZGEQRF", " ", m, n, & c_n1, &c_n1); in zgesdd_check()
172 maxwrk = (*n << 1) + (*m + *n) * ilaenv_(&c__1, "ZGEBRD", " ", m, n, &c_n1, &c_n1); in zgesdd_check()
213 maxwrk = (*n << 1) + (*m + *n) * ilaenv_(&c__1, "ZGEBRD", " ", m, n, &c_n1, &c_n1); in zgesdd_check()
266 maxwrk = *m + *m * ilaenv_(&c__1, "ZGELQF", " ", m, n, & c_n1, &c_n1); in zgesdd_check()
276 wrkbl = *m + *m * ilaenv_(&c__1, "ZGELQF", " ", m, n, & c_n1, &c_n1); in zgesdd_check()
299 wrkbl = *m + *m * ilaenv_(&c__1, "ZGELQF", " ", m, n, & c_n1, &c_n1); in zgesdd_check()
[all …]
|
| H A D | cgesdd_check.c | 4 static int c_n1 = -1; variable
91 maxwrk = *n + *n * ilaenv_(&c__1, "CGEQRF", " ", m, n, & c_n1, &c_n1); in cgesdd_check()
101 wrkbl = *n + *n * ilaenv_(&c__1, "CGEQRF", " ", m, n, & c_n1, &c_n1); in cgesdd_check()
124 wrkbl = *n + *n * ilaenv_(&c__1, "CGEQRF", " ", m, n, & c_n1, &c_n1); in cgesdd_check()
147 wrkbl = *n + *n * ilaenv_(&c__1, "CGEQRF", " ", m, n, & c_n1, &c_n1); in cgesdd_check()
171 maxwrk = (*n << 1) + (*m + *n) * ilaenv_(&c__1, "CGEBRD", " ", m, n, &c_n1, &c_n1); in cgesdd_check()
212 maxwrk = (*n << 1) + (*m + *n) * ilaenv_(&c__1, "CGEBRD", " ", m, n, &c_n1, &c_n1); in cgesdd_check()
265 maxwrk = *m + *m * ilaenv_(&c__1, "CGELQF", " ", m, n, & c_n1, &c_n1); in cgesdd_check()
275 wrkbl = *m + *m * ilaenv_(&c__1, "CGELQF", " ", m, n, & c_n1, &c_n1); in cgesdd_check()
298 wrkbl = *m + *m * ilaenv_(&c__1, "CGELQF", " ", m, n, & c_n1, &c_n1); in cgesdd_check()
[all …]
|
| H A D | sgesdd_check.c | 4 static int c_n1 = -1; variable
92 wrkbl = *n + *n * ilaenv_(&c__1, "SGEQRF", " ", m, n, & c_n1, &c_n1); in sgesdd_check()
106 wrkbl = *n + *n * ilaenv_(&c__1, "SGEQRF", " ", m, n, & c_n1, &c_n1); in sgesdd_check()
133 wrkbl = *n + *n * ilaenv_(&c__1, "SGEQRF", " ", m, n, & c_n1, &c_n1); in sgesdd_check()
160 wrkbl = *n + *n * ilaenv_(&c__1, "SGEQRF", " ", m, n, & c_n1, &c_n1); in sgesdd_check()
188 wrkbl = *n * 3 + (*m + *n) * ilaenv_(&c__1, "SGEBRD", " ", m, n, &c_n1, &c_n1); in sgesdd_check()
268 wrkbl = *m + *m * ilaenv_(&c__1, "SGELQF", " ", m, n, & c_n1, &c_n1); in sgesdd_check()
282 wrkbl = *m + *m * ilaenv_(&c__1, "SGELQF", " ", m, n, & c_n1, &c_n1); in sgesdd_check()
309 wrkbl = *m + *m * ilaenv_(&c__1, "SGELQF", " ", m, n, & c_n1, &c_n1); in sgesdd_check()
336 wrkbl = *m + *m * ilaenv_(&c__1, "SGELQF", " ", m, n, & c_n1, &c_n1); in sgesdd_check()
[all …]
|
| H A D | dgesdd_check.c | 4 static int c_n1 = -1; variable
91 wrkbl = *n + *n * ilaenv_(&c__1, "DGEQRF", " ", m, n, & c_n1, &c_n1); in dgesdd_check()
105 wrkbl = *n + *n * ilaenv_(&c__1, "DGEQRF", " ", m, n, & c_n1, &c_n1); in dgesdd_check()
132 wrkbl = *n + *n * ilaenv_(&c__1, "DGEQRF", " ", m, n, & c_n1, &c_n1); in dgesdd_check()
159 wrkbl = *n + *n * ilaenv_(&c__1, "DGEQRF", " ", m, n, & c_n1, &c_n1); in dgesdd_check()
187 wrkbl = *n * 3 + (*m + *n) * ilaenv_(&c__1, "DGEBRD", " ", m, n, &c_n1, &c_n1); in dgesdd_check()
267 wrkbl = *m + *m * ilaenv_(&c__1, "DGELQF", " ", m, n, & c_n1, &c_n1); in dgesdd_check()
281 wrkbl = *m + *m * ilaenv_(&c__1, "DGELQF", " ", m, n, & c_n1, &c_n1); in dgesdd_check()
308 wrkbl = *m + *m * ilaenv_(&c__1, "DGELQF", " ", m, n, & c_n1, &c_n1); in dgesdd_check()
335 wrkbl = *m + *m * ilaenv_(&c__1, "DGELQF", " ", m, n, & c_n1, &c_n1); in dgesdd_check()
[all …]
|
| H A D | dgelsd_check.c | 4 static int c_n1 = -1; variable
37 mnthr = ilaenv_(&c__6, "DGELSD", " ", m, n, nrhs, &c_n1); in dgelsd_check()
83 i__2 = *n + *n * ilaenv_(&c__1, "DGEQRF", " ", m, n, &c_n1, &c_n1); // , expr subst in dgelsd_check()
87 i__2 = *n + *nrhs * ilaenv_(&c__1, "DORMQR", "LT", m, nrhs, n, &c_n1); // , expr subst in dgelsd_check()
95 … i__2 = *n * 3 + (mm + *n) * ilaenv_(&c__1, "DGEBRD" , " ", &mm, n, &c_n1, &c_n1); // , expr subst in dgelsd_check()
99 … i__2 = *n * 3 + *nrhs * ilaenv_(&c__1, "DORMBR", "QLT", &mm, nrhs, n, &c_n1); // , expr subst in dgelsd_check()
103 … i__2 = *n * 3 + (*n - 1) * ilaenv_(&c__1, "DORMBR", "PLN", n, nrhs, n, &c_n1); // , expr subst in dgelsd_check()
127 maxwrk = *m + *m * ilaenv_(&c__1, "DGELQF", " ", m, n, &c_n1, &c_n1); in dgelsd_check()
130 …*m * *m + (*m << 2) + (*m << 1) * ilaenv_(&c__1, "DGEBRD", " ", m, m, &c_n1, &c_n1); // , expr sub… in dgelsd_check()
156 … i__2 = *m + *nrhs * ilaenv_(&c__1, "DORMLQ", "LT", n, nrhs, m, &c_n1); // , expr subst in dgelsd_check()
[all …]
|
| H A D | sgelsd_check.c | 6 static int c_n1 = -1; variable
73 mnthr = ilaenv_(&c__6, "SGELSD", " ", m, n, nrhs, &c_n1); in sgelsd_check()
86 i__2 = *n + *n * ilaenv_(&c__1, "SGEQRF", " ", m, n, &c_n1, &c_n1); // , expr subst in sgelsd_check()
90 … i__2 = *n + *nrhs * ilaenv_(&c__1, "SORMQR", "LT", m, nrhs, n, &c_n1); // , expr subst in sgelsd_check()
98 … i__2 = *n * 3 + (mm + *n) * ilaenv_(&c__1, "SGEBRD", " ", &mm, n, &c_n1, &c_n1); // , expr subst in sgelsd_check()
102 … i__2 = *n * 3 + *nrhs * ilaenv_(&c__1, "SORMBR" , "QLT", &mm, nrhs, n, &c_n1); // , expr subst in sgelsd_check()
106 … i__2 = *n * 3 + (*n - 1) * ilaenv_(&c__1, "SORMBR", "PLN", n, nrhs, n, &c_n1); // , expr subst in sgelsd_check()
130 maxwrk = *m + *m * ilaenv_(&c__1, "SGELQF", " ", m, n, & c_n1, &c_n1); in sgelsd_check()
133 …*m * *m + (*m << 2) + (*m << 1) * ilaenv_(&c__1, "SGEBRD", " ", m, m, &c_n1, &c_n1); // , expr sub… in sgelsd_check()
159 … i__2 = *m + *nrhs * ilaenv_(&c__1, "SORMLQ" , "LT", n, nrhs, m, &c_n1); // , expr subst in sgelsd_check()
[all …]
|
| H A D | zgelsd_check.c | 6 static int c_n1 = -1; variable
75 mnthr = ilaenv_(&c__6, "ZGELSD", " ", m, n, nrhs, &c_n1); in zgelsd_check()
88 i__2 = *n * ilaenv_(&c__1, "ZGEQRF", " ", m, n, &c_n1, &c_n1); // , expr subst in zgelsd_check()
92 i__2 = *nrhs * ilaenv_(&c__1, "ZUNMQR", "LC", m, nrhs, n, &c_n1); // , expr subst in zgelsd_check()
106 …i__2 = (*n << 1) + (mm + *n) * ilaenv_(&c__1, "ZGEBRD", " ", &mm, n, &c_n1, &c_n1); // , expr subst in zgelsd_check()
110 … i__2 = (*n << 1) + *nrhs * ilaenv_(&c__1, "ZUNMBR", "QLC", &mm, nrhs, n, &c_n1); // , expr subst in zgelsd_check()
114 … i__2 = (*n << 1) + (*n - 1) * ilaenv_(&c__1, "ZUNMBR", "PLN", n, nrhs, n, &c_n1); // , expr subst in zgelsd_check()
137 maxwrk = *m + *m * ilaenv_(&c__1, "ZGELQF", " ", m, n, & c_n1, &c_n1); in zgelsd_check()
140 …*m * *m + (*m << 2) + (*m << 1) * ilaenv_(&c__1, "ZGEBRD", " ", m, m, &c_n1, &c_n1); // , expr sub… in zgelsd_check()
182 … maxwrk = (*m << 1) + (*n + *m) * ilaenv_(&c__1, "ZGEBRD", " ", m, n, &c_n1, &c_n1); in zgelsd_check()
[all …]
|
| H A D | cgelsd_check.c | 6 static int c_n1 = -1; variable
74 mnthr = ilaenv_(&c__6, "CGELSD", " ", m, n, nrhs, &c_n1); in cgelsd_check()
87 i__2 = *n * ilaenv_(&c__1, "CGEQRF", " ", m, n, &c_n1, &c_n1); // , expr subst in cgelsd_check()
91 i__2 = *nrhs * ilaenv_(&c__1, "CUNMQR", "LC", m, nrhs, n, &c_n1); // , expr subst in cgelsd_check()
105 …i__2 = (*n << 1) + (mm + *n) * ilaenv_(&c__1, "CGEBRD", " ", &mm, n, &c_n1, &c_n1); // , expr subst in cgelsd_check()
109 … i__2 = (*n << 1) + *nrhs * ilaenv_(&c__1, "CUNMBR", "QLC", &mm, nrhs, n, &c_n1); // , expr subst in cgelsd_check()
113 … i__2 = (*n << 1) + (*n - 1) * ilaenv_(&c__1, "CUNMBR", "PLN", n, nrhs, n, &c_n1); // , expr subst in cgelsd_check()
136 maxwrk = *m + *m * ilaenv_(&c__1, "CGELQF", " ", m, n, & c_n1, &c_n1); in cgelsd_check()
139 …*m * *m + (*m << 2) + (*m << 1) * ilaenv_(&c__1, "CGEBRD", " ", m, m, &c_n1, &c_n1); // , expr sub… in cgelsd_check()
181 … maxwrk = (*m << 1) + (*n + *m) * ilaenv_(&c__1, "CGEBRD", " ", m, n, &c_n1, &c_n1); in cgelsd_check()
[all …]
|
| /dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
| H A D | dgesdd.c | 303 c_n1, &c_n1); in dgesdd_()
306 "DGEBRD", " ", n, n, &c_n1, &c_n1); in dgesdd_()
317 c_n1, &c_n1); in dgesdd_()
344 c_n1, &c_n1); in dgesdd_()
371 c_n1, &c_n1); in dgesdd_()
399 n, &c_n1, &c_n1); in dgesdd_()
465 c_n1, &c_n1); in dgesdd_()
479 c_n1, &c_n1); in dgesdd_()
506 c_n1, &c_n1); in dgesdd_()
533 c_n1, &c_n1); in dgesdd_()
[all …]
|
| H A D | dsytrd.c | 19 static integer c_n1 = -1; variable
213 nb = ilaenv_(&c__1, "DSYTRD", uplo, n, &c_n1, &c_n1, &c_n1); in dsytrd_()
241 i__1 = nb, i__2 = ilaenv_(&c__3, "DSYTRD", uplo, n, &c_n1, &c_n1, & in dsytrd_()
242 c_n1); in dsytrd_()
259 nbmin = ilaenv_(&c__2, "DSYTRD", uplo, n, &c_n1, &c_n1, &c_n1); in dsytrd_()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | dgegs.c | 5 static integer c_n1 = -1; variable
374 nb1 = ilaenv_(&c__1, "DGEQRF", " ", n, n, &c_n1, &c_n1); in dgegs_()
375 nb2 = ilaenv_(&c__1, "DORMQR", " ", n, n, n, &c_n1); in dgegs_()
376 nb3 = ilaenv_(&c__1, "DORGQR", " ", n, n, n, &c_n1); in dgegs_()
418 dlascl_("G", &c_n1, &c_n1, &anrm, &anrmto, n, n, &a[a_offset], lda, & iinfo); in dgegs_()
440 dlascl_("G", &c_n1, &c_n1, &bnrm, &bnrmto, n, n, &b[b_offset], ldb, & iinfo); in dgegs_()
577 dlascl_("H", &c_n1, &c_n1, &anrmto, &anrm, n, n, &a[a_offset], lda, & iinfo); in dgegs_()
583 dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, & iinfo); in dgegs_()
589 dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, & iinfo); in dgegs_()
598 dlascl_("U", &c_n1, &c_n1, &bnrmto, &bnrm, n, n, &b[b_offset], ldb, & iinfo); in dgegs_()
[all …]
|
| H A D | sgegs.c | 5 static integer c_n1 = -1; variable
377 nb1 = ilaenv_(&c__1, "SGEQRF", " ", n, n, &c_n1, &c_n1); in sgegs_()
378 nb2 = ilaenv_(&c__1, "SORMQR", " ", n, n, n, &c_n1); in sgegs_()
379 nb3 = ilaenv_(&c__1, "SORGQR", " ", n, n, n, &c_n1); in sgegs_()
421 slascl_("G", &c_n1, &c_n1, &anrm, &anrmto, n, n, &a[a_offset], lda, & iinfo); in sgegs_()
443 slascl_("G", &c_n1, &c_n1, &bnrm, &bnrmto, n, n, &b[b_offset], ldb, & iinfo); in sgegs_()
580 slascl_("H", &c_n1, &c_n1, &anrmto, &anrm, n, n, &a[a_offset], lda, & iinfo); in sgegs_()
586 slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, & iinfo); in sgegs_()
592 slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, & iinfo); in sgegs_()
601 slascl_("U", &c_n1, &c_n1, &bnrmto, &bnrm, n, n, &b[b_offset], ldb, & iinfo); in sgegs_()
[all …]
|
| H A D | zgesdd.c | 15 static integer c_n1 = -1; variable
381 maxwrk = *n + *n * ilaenv_(&c__1, "ZGEQRF", " ", m, n, & c_n1, &c_n1); in zgesdd_()
391 wrkbl = *n + *n * ilaenv_(&c__1, "ZGEQRF", " ", m, n, & c_n1, &c_n1); in zgesdd_()
414 wrkbl = *n + *n * ilaenv_(&c__1, "ZGEQRF", " ", m, n, & c_n1, &c_n1); in zgesdd_()
437 wrkbl = *n + *n * ilaenv_(&c__1, "ZGEQRF", " ", m, n, & c_n1, &c_n1); in zgesdd_()
461 maxwrk = (*n << 1) + (*m + *n) * ilaenv_(&c__1, "ZGEBRD", " ", m, n, &c_n1, &c_n1); in zgesdd_()
502 maxwrk = (*n << 1) + (*m + *n) * ilaenv_(&c__1, "ZGEBRD", " ", m, n, &c_n1, &c_n1); in zgesdd_()
555 maxwrk = *m + *m * ilaenv_(&c__1, "ZGELQF", " ", m, n, & c_n1, &c_n1); in zgesdd_()
565 wrkbl = *m + *m * ilaenv_(&c__1, "ZGELQF", " ", m, n, & c_n1, &c_n1); in zgesdd_()
588 wrkbl = *m + *m * ilaenv_(&c__1, "ZGELQF", " ", m, n, & c_n1, &c_n1); in zgesdd_()
[all …]
|
| H A D | cgesdd.c | 15 static integer c_n1 = -1; variable
377 maxwrk = *n + *n * ilaenv_(&c__1, "CGEQRF", " ", m, n, & c_n1, &c_n1); in cgesdd_()
387 wrkbl = *n + *n * ilaenv_(&c__1, "CGEQRF", " ", m, n, & c_n1, &c_n1); in cgesdd_()
410 wrkbl = *n + *n * ilaenv_(&c__1, "CGEQRF", " ", m, n, & c_n1, &c_n1); in cgesdd_()
433 wrkbl = *n + *n * ilaenv_(&c__1, "CGEQRF", " ", m, n, & c_n1, &c_n1); in cgesdd_()
457 maxwrk = (*n << 1) + (*m + *n) * ilaenv_(&c__1, "CGEBRD", " ", m, n, &c_n1, &c_n1); in cgesdd_()
498 maxwrk = (*n << 1) + (*m + *n) * ilaenv_(&c__1, "CGEBRD", " ", m, n, &c_n1, &c_n1); in cgesdd_()
551 maxwrk = *m + *m * ilaenv_(&c__1, "CGELQF", " ", m, n, & c_n1, &c_n1); in cgesdd_()
561 wrkbl = *m + *m * ilaenv_(&c__1, "CGELQF", " ", m, n, & c_n1, &c_n1); in cgesdd_()
584 wrkbl = *m + *m * ilaenv_(&c__1, "CGELQF", " ", m, n, & c_n1, &c_n1); in cgesdd_()
[all …]
|
| H A D | zgegs.c | 15 static integer c_n1 = -1; variable
381 nb1 = ilaenv_(&c__1, "ZGEQRF", " ", n, n, &c_n1, &c_n1); in zgegs_()
382 nb2 = ilaenv_(&c__1, "ZUNMQR", " ", n, n, n, &c_n1); in zgegs_()
383 nb3 = ilaenv_(&c__1, "ZUNGQR", " ", n, n, n, &c_n1); in zgegs_()
426 zlascl_("G", &c_n1, &c_n1, &anrm, &anrmto, n, n, &a[a_offset], lda, & iinfo); in zgegs_()
448 zlascl_("G", &c_n1, &c_n1, &bnrm, &bnrmto, n, n, &b[b_offset], ldb, & iinfo); in zgegs_()
584 zlascl_("U", &c_n1, &c_n1, &anrmto, &anrm, n, n, &a[a_offset], lda, & iinfo); in zgegs_()
590 zlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alpha[1], n, & iinfo); in zgegs_()
599 zlascl_("U", &c_n1, &c_n1, &bnrmto, &bnrm, n, n, &b[b_offset], ldb, & iinfo); in zgegs_()
605 zlascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, & iinfo); in zgegs_()
|
| H A D | cgegs.c | 15 static integer c_n1 = -1; variable
382 nb1 = ilaenv_(&c__1, "CGEQRF", " ", n, n, &c_n1, &c_n1); in cgegs_()
383 nb2 = ilaenv_(&c__1, "CUNMQR", " ", n, n, n, &c_n1); in cgegs_()
384 nb3 = ilaenv_(&c__1, "CUNGQR", " ", n, n, n, &c_n1); in cgegs_()
427 clascl_("G", &c_n1, &c_n1, &anrm, &anrmto, n, n, &a[a_offset], lda, & iinfo); in cgegs_()
449 clascl_("G", &c_n1, &c_n1, &bnrm, &bnrmto, n, n, &b[b_offset], ldb, & iinfo); in cgegs_()
585 clascl_("U", &c_n1, &c_n1, &anrmto, &anrm, n, n, &a[a_offset], lda, & iinfo); in cgegs_()
591 clascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alpha[1], n, & iinfo); in cgegs_()
600 clascl_("U", &c_n1, &c_n1, &bnrmto, &bnrm, n, n, &b[b_offset], ldb, & iinfo); in cgegs_()
606 clascl_("G", &c_n1, &c_n1, &bnrmto, &bnrm, n, &c__1, &beta[1], n, & iinfo); in cgegs_()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | dgesdd.c | 297 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in dgesdd_()
300 "DGEBRD", " ", n, n, &c_n1, &c_n1, (ftnlen)6, ( in dgesdd_()
312 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in dgesdd_()
340 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in dgesdd_()
368 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in dgesdd_()
397 n, &c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in dgesdd_()
462 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in dgesdd_()
477 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in dgesdd_()
505 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in dgesdd_()
533 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in dgesdd_()
[all …]
|
| H A D | sgesdd.c | 299 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in sgesdd_()
302 "SGEBRD", " ", n, n, &c_n1, &c_n1, (ftnlen)6, ( in sgesdd_()
314 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in sgesdd_()
342 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in sgesdd_()
370 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in sgesdd_()
399 n, &c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in sgesdd_()
464 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in sgesdd_()
479 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in sgesdd_()
507 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in sgesdd_()
535 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in sgesdd_()
[all …]
|
| H A D | sgegs.c | 11 static integer c_n1 = -1; variable
327 nb1 = ilaenv_(&c__1, "SGEQRF", " ", n, n, &c_n1, &c_n1, (ftnlen)6, ( in sgegs_()
329 nb2 = ilaenv_(&c__1, "SORMQR", " ", n, n, n, &c_n1, (ftnlen)6, ( in sgegs_()
331 nb3 = ilaenv_(&c__1, "SORGQR", " ", n, n, n, &c_n1, (ftnlen)6, ( in sgegs_()
374 slascl_("G", &c_n1, &c_n1, &anrm, &anrmto, n, n, &a[a_offset], lda, & in sgegs_()
395 slascl_("G", &c_n1, &c_n1, &bnrm, &bnrmto, n, n, &b[b_offset], ldb, & in sgegs_()
536 slascl_("H", &c_n1, &c_n1, &anrmto, &anrm, n, n, &a[a_offset], lda, & in sgegs_()
542 slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, & in sgegs_()
548 slascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, & in sgegs_()
557 slascl_("U", &c_n1, &c_n1, &bnrmto, &bnrm, n, n, &b[b_offset], ldb, & in sgegs_()
[all …]
|
| H A D | dgegs.c | 11 static integer c_n1 = -1; variable
330 nb1 = ilaenv_(&c__1, "DGEQRF", " ", n, n, &c_n1, &c_n1, (ftnlen)6, ( in dgegs_()
332 nb2 = ilaenv_(&c__1, "DORMQR", " ", n, n, n, &c_n1, (ftnlen)6, ( in dgegs_()
334 nb3 = ilaenv_(&c__1, "DORGQR", " ", n, n, n, &c_n1, (ftnlen)6, ( in dgegs_()
377 dlascl_("G", &c_n1, &c_n1, &anrm, &anrmto, n, n, &a[a_offset], lda, & in dgegs_()
398 dlascl_("G", &c_n1, &c_n1, &bnrm, &bnrmto, n, n, &b[b_offset], ldb, & in dgegs_()
539 dlascl_("H", &c_n1, &c_n1, &anrmto, &anrm, n, n, &a[a_offset], lda, & in dgegs_()
545 dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphar[1], n, & in dgegs_()
551 dlascl_("G", &c_n1, &c_n1, &anrmto, &anrm, n, &c__1, &alphai[1], n, & in dgegs_()
560 dlascl_("U", &c_n1, &c_n1, &bnrmto, &bnrm, n, n, &b[b_offset], ldb, & in dgegs_()
[all …]
|
| H A D | zgesdd.c | 317 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in zgesdd_()
330 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in zgesdd_()
357 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in zgesdd_()
384 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in zgesdd_()
412 " ", m, n, &c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in zgesdd_()
455 " ", m, n, &c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in zgesdd_()
506 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in zgesdd_()
518 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in zgesdd_()
545 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in zgesdd_()
572 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in zgesdd_()
[all …]
|
| H A D | cgesdd.c | 305 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in cgesdd_()
318 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in cgesdd_()
345 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in cgesdd_()
372 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in cgesdd_()
400 " ", m, n, &c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in cgesdd_()
443 " ", m, n, &c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in cgesdd_()
494 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in cgesdd_()
506 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in cgesdd_()
533 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in cgesdd_()
560 c_n1, &c_n1, (ftnlen)6, (ftnlen)1); in cgesdd_()
[all …]
|
| H A D | dsytrd.c | 11 static integer c_n1 = -1; variable
207 nb = ilaenv_(&c__1, "DSYTRD", uplo, n, &c_n1, &c_n1, &c_n1, (ftnlen)6, in dsytrd_()
236 i__1 = nb, i__2 = ilaenv_(&c__3, "DSYTRD", uplo, n, &c_n1, &c_n1, & in dsytrd_()
237 c_n1, (ftnlen)6, (ftnlen)1); in dsytrd_()
254 nbmin = ilaenv_(&c__2, "DSYTRD", uplo, n, &c_n1, &c_n1, &c_n1, in dsytrd_()
|
| /dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
| H A D | template_lapack_sytrd.h | 172 integer c_n1 = -1; in template_lapack_sytrd() local
219 nb = template_lapack_ilaenv(&c__1, "DSYTRD", uplo, n, &c_n1, &c_n1, &c_n1, (ftnlen)6, in template_lapack_sytrd()
248 i__1 = nb, i__2 = template_lapack_ilaenv(&c__3, "DSYTRD", uplo, n, &c_n1, &c_n1, & in template_lapack_sytrd()
249 c_n1, (ftnlen)6, (ftnlen)1); in template_lapack_sytrd()
266 nbmin = template_lapack_ilaenv(&c__2, "DSYTRD", uplo, n, &c_n1, &c_n1, &c_n1, in template_lapack_sytrd()
|
| /dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
| H A D | dsytrd.c | 18 static integer c_n1 = -1; variable
278 nb = igraphilaenv_(&c__1, "DSYTRD", uplo, n, &c_n1, &c_n1, &c_n1, (ftnlen)6, in igraphdsytrd_()
307 i__1 = nb, i__2 = igraphilaenv_(&c__3, "DSYTRD", uplo, n, &c_n1, &c_n1, & in igraphdsytrd_()
308 c_n1, (ftnlen)6, (ftnlen)1); in igraphdsytrd_()
325 nbmin = igraphilaenv_(&c__2, "DSYTRD", uplo, n, &c_n1, &c_n1, &c_n1, in igraphdsytrd_()
|