| /dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
| H A D | template_lapack_stemr.h | 75 logical indeig; in template_lapack_stemr() local
327 indeig = template_blas_lsame(range, "I"); in template_lapack_stemr()
352 } else if (indeig) { in template_lapack_stemr()
361 } else if (! (alleig || valeig || indeig)) { in template_lapack_stemr()
367 } else if (indeig && (iil < 1 || iil > *n)) { in template_lapack_stemr()
369 } else if (indeig && (iiu < iil || iiu > *n)) { in template_lapack_stemr()
399 } else if (wantz && indeig) { in template_lapack_stemr()
429 if (alleig || indeig) { in template_lapack_stemr()
452 if (alleig || ( valeig && r2 > wl && r2 <= wu ) || ( indeig && iil == 1 ) ) { in template_lapack_stemr()
473 if (alleig || ( valeig && r1 > wl && r1 <= wu ) || ( indeig && iiu == 2 ) ) { in template_lapack_stemr()
|
| H A D | template_lapack_stevx.h | 187 logical alleig, indeig; in template_lapack_stevx() local
214 indeig = template_blas_lsame(range, "I"); in template_lapack_stevx()
219 } else if (! (alleig || valeig || indeig)) { in template_lapack_stevx()
228 } else if (indeig) { in template_lapack_stevx()
256 if (alleig || indeig) { in template_lapack_stevx()
314 if ((alleig || (indeig && *il == 1 && *iu == *n) ) && *abstol <= 0.) { in template_lapack_stevx()
|
| /dports/science/madness/madness-ebb3fd7/src/madness/external/elemental/external/pmrrr/src/lapack/ |
| H A D | odstmr.c | 66 int indeig; in odstmr() local
335 indeig = olsame(range, "I"); in odstmr()
360 } else if (indeig) { in odstmr()
369 } else if (! (alleig || valeig || indeig)) { in odstmr()
375 } else if (indeig && (iil < 1 || iil > *n)) { in odstmr()
377 } else if (indeig && (iiu < iil || iiu > *n)) { in odstmr()
407 } else if (wantz && indeig) { in odstmr()
437 if (alleig || indeig) { in odstmr()
460 if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) { in odstmr()
481 if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) { in odstmr()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | zhpgvx.c | 32 static logical alleig, indeig, valeig; in zhpgvx_() local
232 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in zhpgvx_()
239 } else if (! (alleig || valeig || indeig)) { in zhpgvx_()
247 } else if (indeig && *il < 1) { in zhpgvx_()
249 } else if (indeig && (*iu < min(*n,*il) || *iu > *n)) { in zhpgvx_()
|
| H A D | dspgvx.c | 31 static logical wantz, alleig, indeig, valeig; in dspgvx_() local
227 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in dspgvx_()
234 } else if (! (alleig || valeig || indeig)) { in dspgvx_()
242 } else if (indeig && *il < 1) { in dspgvx_()
244 } else if (indeig && (*iu < min(*n,*il) || *iu > *n)) { in dspgvx_()
|
| H A D | sspgvx.c | 30 static logical alleig, indeig, valeig; in sspgvx_() local
226 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in sspgvx_()
233 } else if (! (alleig || valeig || indeig)) { in sspgvx_()
241 } else if (indeig && *il < 1) { in sspgvx_()
243 } else if (indeig && (*iu < min(*n,*il) || *iu > *n)) { in sspgvx_()
|
| H A D | chpgvx.c | 31 static logical wantz, alleig, indeig, valeig; in chpgvx_() local
230 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in chpgvx_()
237 } else if (! (alleig || valeig || indeig)) { in chpgvx_()
245 } else if (indeig && *il < 1) { in chpgvx_()
247 } else if (indeig && (*iu < min(*n,*il) || *iu > *n)) { in chpgvx_()
|
| H A D | sstegr.c | 41 static logical indeig; in sstegr_() local
264 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in sstegr_()
273 } else if (! (alleig || valeig || indeig)) { in sstegr_()
279 } else if (valeig || indeig) { in sstegr_()
285 } else if (indeig && *il < 1) { in sstegr_()
290 } else if (indeig && (*iu < *il || *iu > *n)) { in sstegr_()
320 if (alleig || indeig) { in sstegr_()
|
| H A D | dstegr.c | 46 static logical indeig; in dstegr_() local
270 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in dstegr_()
279 } else if (! (alleig || valeig || indeig)) { in dstegr_()
285 } else if (valeig || indeig) { in dstegr_()
291 } else if (indeig && *il < 1) { in dstegr_()
296 } else if (indeig && (*iu < *il || *iu > *n)) { in dstegr_()
326 if (alleig || indeig) { in dstegr_()
|
| H A D | zstegr.c | 45 static logical indeig; in zstegr_() local
273 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in zstegr_()
282 } else if (! (alleig || valeig || indeig)) { in zstegr_()
288 } else if (valeig || indeig) { in zstegr_()
294 } else if (indeig && *il < 1) { in zstegr_()
299 } else if (indeig && (*iu < *il || *iu > *n)) { in zstegr_()
329 if (alleig || indeig) { in zstegr_()
|
| H A D | cstegr.c | 40 static logical indeig; in cstegr_() local
265 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in cstegr_()
274 } else if (! (alleig || valeig || indeig)) { in cstegr_()
280 } else if (valeig || indeig) { in cstegr_()
286 } else if (indeig && *il < 1) { in cstegr_()
291 } else if (indeig && (*iu < *il || *iu > *n)) { in cstegr_()
321 if (alleig || indeig) { in cstegr_()
|
| H A D | dsygvx.c | 35 static logical upper, wantz, alleig, indeig, valeig; in dsygvx_() local
262 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in dsygvx_()
270 } else if (! (alleig || valeig || indeig)) { in dsygvx_()
284 } else if (indeig && *il < 1) { in dsygvx_()
286 } else if (indeig && (*iu < min(*n,*il) || *iu > *n)) { in dsygvx_()
|
| H A D | ssygvx.c | 36 static logical alleig, indeig, valeig; in ssygvx_() local
262 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in ssygvx_()
270 } else if (! (alleig || valeig || indeig)) { in ssygvx_()
284 } else if (indeig && *il < 1) { in ssygvx_()
286 } else if (indeig && (*iu < min(*n,*il) || *iu > *n)) { in ssygvx_()
|
| H A D | chegvx.c | 34 static logical upper, wantz, alleig, indeig, valeig; in chegvx_() local
262 indeig = lsame_(range, "I", (ftnlen)1, (ftnlen)1); in chegvx_()
270 } else if (! (alleig || valeig || indeig)) { in chegvx_()
284 } else if (indeig && *il < 1) { in chegvx_()
286 } else if (indeig && (*iu < min(*n,*il) || *iu > *n)) { in chegvx_()
|
| /dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
| H A D | sstegr.cpp | 44 int valeig,alleig,indeig; in F77_FUNC() local
67 indeig = (*range=='I' || *range=='i'); in F77_FUNC()
76 } else if (! (alleig || valeig || indeig)) { in F77_FUNC()
82 } else if (indeig && (*il < 1 || *il > *n)) { in F77_FUNC()
84 } else if (indeig && (*iu < *il || *iu > *n)) { in F77_FUNC()
111 if (alleig || indeig) { in F77_FUNC()
|
| H A D | dstegr.cpp | 44 int valeig,alleig,indeig; in F77_FUNC() local
67 indeig = (*range=='I' || *range=='i'); in F77_FUNC()
76 } else if (! (alleig || valeig || indeig)) { in F77_FUNC()
82 } else if (indeig && (*il < 1 || *il > *n)) { in F77_FUNC()
84 } else if (indeig && (*iu < *il || *iu > *n)) { in F77_FUNC()
111 if (alleig || indeig) { in F77_FUNC()
|
| /dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
| H A D | dstemr.c | 376 logical indeig; in igraphdstemr_() local
438 indeig = igraphlsame_(range, "I"); in igraphdstemr_()
464 } else if (indeig) { in igraphdstemr_()
473 } else if (! (alleig || valeig || indeig)) { in igraphdstemr_()
479 } else if (indeig && (iil < 1 || iil > *n)) { in igraphdstemr_()
481 } else if (indeig && (iiu < iil || iiu > *n)) { in igraphdstemr_()
511 } else if (wantz && indeig) { in igraphdstemr_()
541 if (alleig || indeig) { in igraphdstemr_()
564 if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) { in igraphdstemr_()
585 if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) { in igraphdstemr_()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | sstemr.c | 344 logical indeig; in sstemr_() local
405 indeig = lsame_(range, "I"); in sstemr_()
435 else if (indeig) in sstemr_()
446 else if (! (alleig || valeig || indeig)) in sstemr_()
458 else if (indeig && (iil < 1 || iil > *n)) in sstemr_()
462 else if (indeig && (iiu < iil || iiu > *n)) in sstemr_()
500 else if (wantz && indeig) in sstemr_()
536 if (alleig || indeig) in sstemr_()
567 if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) in sstemr_()
596 if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) in sstemr_()
|
| H A D | dstemr.c | 345 logical indeig; in dstemr_() local
401 indeig = lsame_(range, "I"); in dstemr_()
431 else if (indeig) in dstemr_()
442 else if (! (alleig || valeig || indeig)) in dstemr_()
454 else if (indeig && (iil < 1 || iil > *n)) in dstemr_()
458 else if (indeig && (iiu < iil || iiu > *n)) in dstemr_()
496 else if (wantz && indeig) in dstemr_()
532 if (alleig || indeig) in dstemr_()
563 if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) in dstemr_()
592 if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) in dstemr_()
|
| H A D | zstemr.c | 368 logical indeig; in zstemr_() local
426 indeig = lsame_(range, "I"); in zstemr_()
456 else if (indeig) in zstemr_()
467 else if (! (alleig || valeig || indeig)) in zstemr_()
479 else if (indeig && (iil < 1 || iil > *n)) in zstemr_()
483 else if (indeig && (iiu < iil || iiu > *n)) in zstemr_()
521 else if (wantz && indeig) in zstemr_()
559 if (alleig || indeig) in zstemr_()
592 if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) in zstemr_()
626 if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) in zstemr_()
|
| H A D | cstemr.c | 370 logical indeig; in cstemr_() local
430 indeig = lsame_(range, "I"); in cstemr_()
460 else if (indeig) in cstemr_()
471 else if (! (alleig || valeig || indeig)) in cstemr_()
483 else if (indeig && (iil < 1 || iil > *n)) in cstemr_()
487 else if (indeig && (iiu < iil || iiu > *n)) in cstemr_()
525 else if (wantz && indeig) in cstemr_()
563 if (alleig || indeig) in cstemr_()
596 if (alleig || valeig && r2 > wl && r2 <= wu || indeig && iil == 1) in cstemr_()
630 if (alleig || valeig && r1 > wl && r1 <= wu || indeig && iiu == 2) in cstemr_()
|
| H A D | dspgvx.c | 270 logical wantz, alleig, indeig, valeig; in dspgvx_() local
307 indeig = lsame_(range, "I"); in dspgvx_()
317 else if (! (alleig || valeig || indeig)) in dspgvx_()
338 else if (indeig) in dspgvx_()
|
| H A D | sspgvx.c | 270 logical alleig, indeig, valeig; in sspgvx_() local
307 indeig = lsame_(range, "I"); in sspgvx_()
317 else if (! (alleig || valeig || indeig)) in sspgvx_()
338 else if (indeig) in sspgvx_()
|
| H A D | zhpgvx.c | 277 logical alleig, indeig, valeig; in zhpgvx_() local
315 indeig = lsame_(range, "I"); in zhpgvx_()
325 else if (! (alleig || valeig || indeig)) in zhpgvx_()
346 else if (indeig) in zhpgvx_()
|
| H A D | chpgvx.c | 279 logical wantz, alleig, indeig, valeig; in chpgvx_() local
317 indeig = lsame_(range, "I"); in chpgvx_()
327 else if (! (alleig || valeig || indeig)) in chpgvx_()
348 else if (indeig) in chpgvx_()
|