Home
last modified time | relevance | path

Searched refs:iuplo (Results 1 – 25 of 51) sorted by relevance

123

/dports/math/algae/algae-4.3.6/src/
H A Dlapack.h.in102 void PROTO (RPOSV, (int *iuplo, int *n, int *nrhs, REAL * a, int *lda,
105 void PROTO (RPOTRS, (int *iuplo, int *n, int *nrhs, REAL * a, int *lda,
107 void PROTO (XPOTRS, (int *iuplo, int *n, int *nrhs, REAL * a, int *lda,
109 void PROTO (RSYCON, (int *iuplo, int *n, REAL * a, int *lda, int *ipiv,
114 void PROTO (RSYGV, (int *itype, int *ijobz, int *iuplo, int *n,
117 void PROTO (XHEGV, (int *itype, int *ijobz, int *iuplo, int *n,
121 void PROTO (RSYSV, (int *iuplo, int *n, int *nrhs, REAL * a,
124 void PROTO (RSYTRF, (int *iuplo, int *n, REAL * a, int *lda, int *ipiv,
126 void PROTO (RSYTRS, (int *iuplo, int *n, int *nrhs, REAL * a, int *lda,
145 void PROTO (XHESV, (int *iuplo, int *n, int *nrhs, COMPLEX * a,
[all …]
H A Deig.c108 int iuplo, lwork, info, ijobvl, ijobvr; local
202 iuplo = 'L';
206 RSYEV (&ijobvr, &iuplo, &v->nr, v->a.real,
396 iuplo = 'L';
547 iuplo = 'U';
601 iuplo = 'U';
798 iuplo = 'L';
804 RSYGV (&itype, &ijobvr, &iuplo,
813 RSYGV (&itype, &ijobvr, &iuplo,
1101 iuplo = 'U';
[all …]
H A Dfactor.c58 int info, iuplo, lwork; local
531 iuplo = 'L';
561 RSYCON (&iuplo, &a->nr, a->a.real, &a->nr,
719 iuplo = 'L';
722 XSYTRF (&iuplo, &a->nr, a->a.real, &a->nr,
726 XHETRF (&iuplo, &a->nr, a->a.real, &a->nr,
755 XSYCON (&iuplo, &a->nr, a->a.real, &a->nr,
759 XHECON (&iuplo, &a->nr, a->a.real, &a->nr,
1247 int i, j, info, iuplo; local
1442 iuplo = 'L';
[all …]
H A Dsolve.c468 int iuplo = 'L'; local
506 RPOTRS (&iuplo, &fac->nr, &x->nc, fac->a.real, &fac->nr,
519 XPOTRS (&iuplo, &fac->nr, &x->nc, fac->a.real, &fac->nr,
539 int iuplo = 'L'; local
607 RSYTRS (&iuplo, &fac->nr, &x->nc, fac->a.real, &fac->nr,
621 XSYTRS (&iuplo, &fac->nr, &x->nc, fac->a.real, &fac->nr,
624 XHETRS (&iuplo, &fac->nr, &x->nc, fac->a.real, &fac->nr,
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/
H A Dzpttrs.c118 integer j, jb, nb, iuplo; in zpttrs_() local
193 iuplo = 1; in zpttrs_()
197 iuplo = 0; in zpttrs_()
201 zptts2_(&iuplo, n, nrhs, &d__[1], &e[1], &b[b_offset], ldb); in zpttrs_()
214 zptts2_(&iuplo, n, &jb, &d__[1], &e[1], &b[j * b_dim1 + 1], ldb); in zpttrs_()
H A Dcpttrs.c118 integer j, jb, nb, iuplo; in cpttrs_() local
193 iuplo = 1; in cpttrs_()
197 iuplo = 0; in cpttrs_()
201 cptts2_(&iuplo, n, nrhs, &d__[1], &e[1], &b[b_offset], ldb); in cpttrs_()
214 cptts2_(&iuplo, n, &jb, &d__[1], &e[1], &b[j * b_dim1 + 1], ldb); in cpttrs_()
H A Dslasdq.c214 integer iuplo; in slasdq_() local
256 iuplo = 0; in slasdq_()
259 iuplo = 1; in slasdq_()
263 iuplo = 2; in slasdq_()
265 if (iuplo == 0) in slasdq_()
317 if (iuplo == 1 && sqre1 == 1) in slasdq_()
343 iuplo = 2; in slasdq_()
353 if (iuplo == 2) in slasdq_()
H A Ddlasdq.c214 integer iuplo; in dlasdq_() local
254 iuplo = 0; in dlasdq_()
257 iuplo = 1; in dlasdq_()
261 iuplo = 2; in dlasdq_()
263 if (iuplo == 0) in dlasdq_()
315 if (iuplo == 1 && sqre1 == 1) in dlasdq_()
341 iuplo = 2; in dlasdq_()
351 if (iuplo == 2) in dlasdq_()
H A Dsbdsdc.c222 integer iuplo, nsize, start; in sbdsdc_() local
280 iuplo = 0; in sbdsdc_()
283 iuplo = 1; in sbdsdc_()
287 iuplo = 2; in sbdsdc_()
305 if (iuplo == 0) in sbdsdc_()
363 if (iuplo == 2) in sbdsdc_()
559 if (iuplo == 1) in sbdsdc_()
570 if (iuplo == 2 && icompq == 2) in sbdsdc_()
H A Ddbdsdc.c221 integer poles, iuplo, nsize, start; in dbdsdc_() local
274 iuplo = 0; in dbdsdc_()
277 iuplo = 1; in dbdsdc_()
281 iuplo = 2; in dbdsdc_()
299 if (iuplo == 0) in dbdsdc_()
357 if (iuplo == 2) in dbdsdc_()
553 if (iuplo == 1) in dbdsdc_()
564 if (iuplo == 2 && icompq == 2) in dbdsdc_()
/dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/
H A Ddlasdq.cpp35 int iuplo; in F77_FUNC() local
52 iuplo = 0; in F77_FUNC()
54 iuplo = 1; in F77_FUNC()
57 iuplo = 2; in F77_FUNC()
62 if (iuplo == 0) { in F77_FUNC()
92 if (iuplo == 1 && sqre1 == 1) { in F77_FUNC()
111 iuplo = 2; in F77_FUNC()
119 if (iuplo == 2) { in F77_FUNC()
H A Dslasdq.cpp35 int iuplo; in F77_FUNC() local
52 iuplo = 0; in F77_FUNC()
54 iuplo = 1; in F77_FUNC()
57 iuplo = 2; in F77_FUNC()
62 if (iuplo == 0) { in F77_FUNC()
92 if (iuplo == 1 && sqre1 == 1) { in F77_FUNC()
111 iuplo = 2; in F77_FUNC()
119 if (iuplo == 2) { in F77_FUNC()
H A Ddbdsdc.cpp35 int poles, iuplo, nsize, start; in F77_FUNC() local
64 iuplo = (*uplo=='U' || *uplo=='u') ? 1 : 2; in F77_FUNC()
105 if (iuplo == 2) { in F77_FUNC()
262 if (iuplo == 1) { in F77_FUNC()
268 if (iuplo == 2 && icompq == 2) { in F77_FUNC()
H A Dsbdsdc.cpp35 int poles, iuplo, nsize, start; in F77_FUNC() local
64 iuplo = (*uplo=='U' || *uplo=='u') ? 1 : 2; in F77_FUNC()
105 if (iuplo == 2) { in F77_FUNC()
261 if (iuplo == 1) { in F77_FUNC()
267 if (iuplo == 2 && icompq == 2) { in F77_FUNC()
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/
H A Dcpttrs.c20 static integer j, jb, nb, iuplo; in cpttrs_() local
148 iuplo = 1; in cpttrs_()
150 iuplo = 0; in cpttrs_()
154 cptts2_(&iuplo, n, nrhs, &d__[1], &e[1], &b[b_offset], ldb); in cpttrs_()
162 cptts2_(&iuplo, n, &jb, &d__[1], &e[1], &b[j * b_dim1 + 1], ldb); in cpttrs_()
H A Dzpttrs.c21 static integer j, jb, nb, iuplo; in zpttrs_() local
149 iuplo = 1; in zpttrs_()
151 iuplo = 0; in zpttrs_()
155 zptts2_(&iuplo, n, nrhs, &d__[1], &e[1], &b[b_offset], ldb); in zpttrs_()
163 zptts2_(&iuplo, n, &jb, &d__[1], &e[1], &b[j * b_dim1 + 1], ldb); in zpttrs_()
H A Ddlasdq.c33 static integer iuplo; in dlasdq_() local
199 iuplo = 0; in dlasdq_()
201 iuplo = 1; in dlasdq_()
204 iuplo = 2; in dlasdq_()
206 if (iuplo == 0) { in dlasdq_()
243 if (iuplo == 1 && sqre1 == 1) { in dlasdq_()
263 iuplo = 2; in dlasdq_()
277 if (iuplo == 2) { in dlasdq_()
H A Dslasdq.c31 static integer iuplo; in slasdq_() local
197 iuplo = 0; in slasdq_()
199 iuplo = 1; in slasdq_()
202 iuplo = 2; in slasdq_()
204 if (iuplo == 0) { in slasdq_()
241 if (iuplo == 1 && sqre1 == 1) { in slasdq_()
261 iuplo = 2; in slasdq_()
275 if (iuplo == 2) { in slasdq_()
H A Dsbdsdc.c43 static integer iuplo, nsize, start; in sbdsdc_() local
229 iuplo = 0; in sbdsdc_()
231 iuplo = 1; in sbdsdc_()
234 iuplo = 2; in sbdsdc_()
245 if (iuplo == 0) { in sbdsdc_()
292 if (iuplo == 2) { in sbdsdc_()
494 if (iuplo == 1) { in sbdsdc_()
504 if (iuplo == 2 && icompq == 2) { in sbdsdc_()
H A Ddbdsdc.c44 static integer poles, iuplo, nsize, start; in dbdsdc_() local
230 iuplo = 0; in dbdsdc_()
232 iuplo = 1; in dbdsdc_()
235 iuplo = 2; in dbdsdc_()
246 if (iuplo == 0) { in dbdsdc_()
293 if (iuplo == 2) { in dbdsdc_()
496 if (iuplo == 1) { in dbdsdc_()
506 if (iuplo == 2 && icompq == 2) { in dbdsdc_()
/dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/
H A Ddlasdq.c39 integer iuplo; in dlasdq_() local
204 iuplo = 0; in dlasdq_()
206 iuplo = 1; in dlasdq_()
209 iuplo = 2; in dlasdq_()
211 if (iuplo == 0) { in dlasdq_()
248 if (iuplo == 1 && sqre1 == 1) { in dlasdq_()
268 iuplo = 2; in dlasdq_()
282 if (iuplo == 2) { in dlasdq_()
H A Ddbdsdc.c51 integer poles, iuplo, nsize, start; in dbdsdc_() local
237 iuplo = 0; in dbdsdc_()
239 iuplo = 1; in dbdsdc_()
242 iuplo = 2; in dbdsdc_()
253 if (iuplo == 0) { in dbdsdc_()
299 if (iuplo == 2) { in dbdsdc_()
496 if (iuplo == 1) { in dbdsdc_()
506 if (iuplo == 2 && icompq == 2) { in dbdsdc_()
/dports/science/dftbplus/dftbplus-19.1/prog/dftb+/lib_math/
H A Dblasroutines.F90127 iuplo = uplo
129 iuplo = 'l'
131 @:ASSERT(iuplo == 'u' .or. iuplo == 'U' .or. iuplo == 'l' .or. iuplo == 'L')
158 iuplo = uplo
160 iuplo = 'l'
162 @:ASSERT(iuplo == 'u' .or. iuplo == 'U' .or. iuplo == 'l' .or. iuplo == 'L')
188 iuplo = uplo
190 iuplo = 'l'
192 @:ASSERT(iuplo == 'u' .or. iuplo == 'U' .or. iuplo == 'l' .or. iuplo == 'L')
220 iuplo = 'l'
[all …]
/dports/math/maxima/maxima-5.43.2/share/lapack/lapack/
H A Ddlasdq.lisp34 (prog ((cs 0.0) (r 0.0) (smin 0.0) (sn 0.0) (i 0) (isub 0) (iuplo 0)
37 (type (f2cl-lib:integer4) i isub iuplo j np1 sqre1)
40 (setf iuplo 0)
41 (if (lsame uplo "U") (setf iuplo 1))
42 (if (lsame uplo "L") (setf iuplo 2))
44 ((= iuplo 0)
79 ((and (= iuplo 1) (= sqre1 1))
133 (setf iuplo 2)
149 ((= iuplo 2)
H A Ddbdsdc.lisp43 (ierr 0) (ii 0) (is 0) (iu 0) (iuplo 0) (ivt 0) (j 0) (k 0) (kk 0)
48 icompq ierr ii is iu iuplo ivt j k
52 (setf iuplo 0)
53 (if (lsame uplo "U") (setf iuplo 1))
54 (if (lsame uplo "L") (setf iuplo 2))
65 ((= iuplo 0)
129 ((= iuplo 2)
665 ((= iuplo 1)
669 (if (and (= iuplo 2) (= icompq 2))

123