/dports/math/algae/algae-4.3.6/src/ |
H A D | lapack.h.in | 102 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 D | eig.c | 108 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 D | factor.c | 58 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 D | solve.c | 468 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 D | zpttrs.c | 118 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 D | cpttrs.c | 118 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 D | slasdq.c | 214 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 D | dlasdq.c | 214 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 D | sbdsdc.c | 222 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 D | dbdsdc.c | 221 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 D | dlasdq.cpp | 35 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 D | slasdq.cpp | 35 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 D | dbdsdc.cpp | 35 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 D | sbdsdc.cpp | 35 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 D | cpttrs.c | 20 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 D | zpttrs.c | 21 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 D | dlasdq.c | 33 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 D | slasdq.c | 31 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 D | sbdsdc.c | 43 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 D | dbdsdc.c | 44 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 D | dlasdq.c | 39 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 D | dbdsdc.c | 51 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 D | blasroutines.F90 | 127 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 D | dlasdq.lisp | 34 (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 D | dbdsdc.lisp | 43 (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))
|