| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/check/ |
| H A D | zgesvd_check.c | 17 logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in zgesvd_check() local
51 wntvs = lsame_(jobvt, "S"); in zgesvd_check()
52 wntvas = wntva || wntvs; in zgesvd_check()
60 else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) in zgesvd_check()
80 else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) in zgesvd_check()
439 else if (wntvs && wntun) in zgesvd_check()
458 else if (wntvs && wntuo) in zgesvd_check()
481 else if (wntvs && wntuas) in zgesvd_check()
578 if (wntvs || wntvo) in zgesvd_check()
|
| H A D | cgesvd_check.c | 16 logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in cgesvd_check() local
50 wntvs = lsame_(jobvt, "S"); in cgesvd_check()
51 wntvas = wntva || wntvs; in cgesvd_check()
59 else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) in cgesvd_check()
79 else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) in cgesvd_check()
439 else if (wntvs && wntun) in cgesvd_check()
458 else if (wntvs && wntuo) in cgesvd_check()
481 else if (wntvs && wntuas) in cgesvd_check()
578 if (wntvs || wntvo) in cgesvd_check()
|
| H A D | sgesvd_check.c | 16 logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in sgesvd_check() local
50 wntvs = lsame_(jobvt, "S"); in sgesvd_check()
51 wntvas = wntva || wntvs; in sgesvd_check()
59 else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) in sgesvd_check()
79 else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) in sgesvd_check()
479 else if (wntvs && wntun) in sgesvd_check()
501 else if (wntvs && wntuo) in sgesvd_check()
528 else if (wntvs && wntuas) in sgesvd_check()
637 if (wntvs || wntvo) in sgesvd_check()
|
| H A D | dgesvd_check.c | 16 logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in dgesvd_check() local
50 wntvs = lsame_(jobvt, "S"); in dgesvd_check()
51 wntvas = wntva || wntvs; in dgesvd_check()
59 else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) in dgesvd_check()
79 else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) in dgesvd_check()
479 else if (wntvs && wntun) in dgesvd_check()
501 else if (wntvs && wntuo) in dgesvd_check()
527 else if (wntvs && wntuas) in dgesvd_check()
636 if (wntvs || wntvo) in dgesvd_check()
|
| /dports/lang/yorick/yorick-y_2_2_04/matrix/ |
| H A D | dgesv2.c | 69 wntvas, wntvn, wntvo, wntvs; in dgesv2() local
103 wntvs = lsame( jobvt, 's' ); in dgesv2()
104 wntvas = wntva || wntvs; in dgesv2()
111 } else if( !( wntva || wntvs || wntvo || wntvn ) || in dgesv2()
123 ( wntvs && ldvt<minmn ) ) { in dgesv2()
182 } else if( wntvs && wntun ) { in dgesv2()
197 } else if( wntvs && wntuo ) { in dgesv2()
214 } else if( wntvs && wntuas ) { in dgesv2()
289 if( wntvs || wntvo ) in dgesv2()
688 } else if( wntvs ) { in dgesv2()
[all …]
|
| H A D | dgesvd.c | 187 wntvas, wntvn, wntvo, wntvs; in dgesvd() local
227 wntvs = lsame( jobvt, 's' ); in dgesvd()
228 wntvas = wntva || wntvs; in dgesvd()
235 } else if( !( wntva || wntvs || wntvo || wntvn ) || in dgesvd()
247 ( wntvs && ldvt<minmn ) ) { in dgesvd()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | zgesvd.c | 255 logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in zgesvd_() local
323 wntvs = lsame_(jobvt, "S"); in zgesvd_()
324 wntvas = wntva || wntvs; in zgesvd_()
332 else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) in zgesvd_()
352 else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) in zgesvd_()
711 else if (wntvs && wntun) in zgesvd_()
730 else if (wntvs && wntuo) in zgesvd_()
753 else if (wntvs && wntuas) in zgesvd_()
850 if (wntvs || wntvo) in zgesvd_()
2425 else if (wntvs) in zgesvd_()
[all …]
|
| H A D | cgesvd.c | 254 logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in cgesvd_() local
319 wntvs = lsame_(jobvt, "S"); in cgesvd_()
320 wntvas = wntva || wntvs; in cgesvd_()
328 else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) in cgesvd_()
348 else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) in cgesvd_()
708 else if (wntvs && wntun) in cgesvd_()
727 else if (wntvs && wntuo) in cgesvd_()
750 else if (wntvs && wntuas) in cgesvd_()
847 if (wntvs || wntvo) in cgesvd_()
2422 else if (wntvs) in cgesvd_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | zgesvd.c | 49 static logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in zgesvd_() local
270 wntvs = lsame_(jobvt, "S", (ftnlen)1, (ftnlen)1); in zgesvd_()
271 wntvas = wntva || wntvs; in zgesvd_()
279 } else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) { in zgesvd_()
289 } else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) { in zgesvd_()
655 } else if (wntvs && wntun) { in zgesvd_()
678 } else if (wntvs && wntuo) { in zgesvd_()
706 } else if (wntvs && wntuas) { in zgesvd_()
822 if (wntvs || wntvo) { in zgesvd_()
2988 } else if (wntvs) { in zgesvd_()
[all …]
|
| H A D | dgesvd.c | 44 static logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in dgesvd_() local
254 wntvs = lsame_(jobvt, "S", (ftnlen)1, (ftnlen)1); in dgesvd_()
255 wntvas = wntva || wntvs; in dgesvd_()
263 } else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) { in dgesvd_()
273 } else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) { in dgesvd_()
668 } else if (wntvs && wntun) { in dgesvd_()
694 } else if (wntvs && wntuo) { in dgesvd_()
724 } else if (wntvs && wntuas) { in dgesvd_()
849 if (wntvs || wntvo) { in dgesvd_()
2893 } else if (wntvs) { in dgesvd_()
[all …]
|
| H A D | cgesvd.c | 46 static logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in cgesvd_() local
262 wntvs = lsame_(jobvt, "S", (ftnlen)1, (ftnlen)1); in cgesvd_()
263 wntvas = wntva || wntvs; in cgesvd_()
271 } else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) { in cgesvd_()
281 } else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) { in cgesvd_()
647 } else if (wntvs && wntun) { in cgesvd_()
670 } else if (wntvs && wntuo) { in cgesvd_()
698 } else if (wntvs && wntuas) { in cgesvd_()
814 if (wntvs || wntvo) { in cgesvd_()
2980 } else if (wntvs) { in cgesvd_()
[all …]
|
| H A D | sgesvd.c | 45 static logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in sgesvd_() local
251 wntvs = lsame_(jobvt, "S", (ftnlen)1, (ftnlen)1); in sgesvd_()
252 wntvas = wntva || wntvs; in sgesvd_()
260 } else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) { in sgesvd_()
270 } else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) { in sgesvd_()
665 } else if (wntvs && wntun) { in sgesvd_()
691 } else if (wntvs && wntuo) { in sgesvd_()
721 } else if (wntvs && wntuas) { in sgesvd_()
846 if (wntvs || wntvo) { in sgesvd_()
2890 } else if (wntvs) { in sgesvd_()
[all …]
|
| /dports/science/hypre/hypre-2.23.0/src/lapack/ |
| H A D | dgesvd.c | 49 static logical wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in dgesvd_() local
249 wntvs = lsame_(jobvt, "S"); in dgesvd_()
250 wntvas = wntva || wntvs; in dgesvd_()
258 } else if (! (wntva || wntvs || wntvo || wntvn) || (wntvo && wntuo)) { in dgesvd_()
268 } else if (*ldvt < 1 || (wntva && *ldvt < *n) || (wntvs && *ldvt < minmn)) { in dgesvd_()
663 } else if (wntvs && wntun) { in dgesvd_()
689 } else if (wntvs && wntuo) { in dgesvd_()
719 } else if (wntvs && wntuas) { in dgesvd_()
844 if (wntvs || wntvo) { in dgesvd_()
2878 } else if (wntvs) { in dgesvd_()
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/lapack/lapack/ |
| H A D | dgesvd.lisp | 43 (wntvs nil))
51 wntva wntvas wntvn wntvo wntvs))
61 (setf wntvs (lsame jobvt "S"))
62 (setf wntvas (or wntva wntvs))
70 ((or (not (or wntva wntvs wntvo wntvn)) (and wntvo wntuo))
868 ((and wntvs wntun)
921 ((and wntvs wntuo)
986 ((and wntvs wntuas)
1240 (if (or wntvs wntvo)
5138 (wntvs
[all …]
|
| /dports/audio/praat/praat-6.2.03/external/clapack/ |
| H A D | lapack_dg.cpp | 18110 bool wntua, wntva, wntun, wntuo, wntvn, wntvo, wntus, wntvs; in dgesvd_() local
18282 wntvs = lsame_(jobvt, "S"); in dgesvd_()
18283 wntvas = wntva || wntvs; in dgesvd_()
18290 } else if (! (wntva || wntvs || wntvo || wntvn) || wntvo && wntuo) { in dgesvd_()
18300 } else if (*ldvt < 1 || wntva && *ldvt < *n || wntvs && *ldvt < minmn) { in dgesvd_()
18674 } else if (wntvs && wntun) { in dgesvd_()
18697 } else if (wntvs && wntuo) { in dgesvd_()
18724 } else if (wntvs && wntuas) { in dgesvd_()
18837 if (wntvs || wntvo) { in dgesvd_()
20876 } else if (wntvs) { in dgesvd_()
[all …]
|