| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | sstev.c | 119 real rmin, rmax, tnrm, sigma; in sstev_() local
207 tnrm = slanst_("M", n, &d__[1], &e[1]); in sstev_()
208 if (tnrm > 0.f && tnrm < rmin) in sstev_()
211 sigma = rmin / tnrm; in sstev_()
213 else if (tnrm > rmax) in sstev_()
216 sigma = rmax / tnrm; in sstev_()
|
| H A D | dstev.c | 119 doublereal rmin, rmax, tnrm; in dstev_() local
206 tnrm = dlanst_("M", n, &d__[1], &e[1]); in dstev_()
207 if (tnrm > 0. && tnrm < rmin) in dstev_()
210 sigma = rmin / tnrm; in dstev_()
212 else if (tnrm > rmax) in dstev_()
215 sigma = rmax / tnrm; in dstev_()
|
| H A D | sstevd.c | 165 real eps, rmin, rmax, tnrm, sigma; in sstevd_() local
284 tnrm = slanst_("M", n, &d__[1], &e[1]); in sstevd_()
285 if (tnrm > 0.f && tnrm < rmin) in sstevd_()
288 sigma = rmin / tnrm; in sstevd_()
290 else if (tnrm > rmax) in sstevd_()
293 sigma = rmax / tnrm; in sstevd_()
|
| H A D | dstevd.c | 165 doublereal eps, rmin, rmax, tnrm; in dstevd_() local
285 tnrm = dlanst_("M", n, &d__[1], &e[1]); in dstevd_()
286 if (tnrm > 0. && tnrm < rmin) in dstevd_()
289 sigma = rmin / tnrm; in dstevd_()
291 else if (tnrm > rmax) in dstevd_()
294 sigma = rmax / tnrm; in dstevd_()
|
| H A D | sstevx.c | 226 real tnrm; in sstevx_() local
385 tnrm = slanst_("M", n, &d__[1], &e[1]); in sstevx_()
386 if (tnrm > 0.f && tnrm < rmin) in sstevx_()
389 sigma = rmin / tnrm; in sstevx_()
391 else if (tnrm > rmax) in sstevx_()
394 sigma = rmax / tnrm; in sstevx_()
|
| H A D | dstevx.c | 226 doublereal tnrm; in dstevx_() local
388 tnrm = dlanst_("M", n, &d__[1], &e[1]); in dstevx_()
389 if (tnrm > 0. && tnrm < rmin) in dstevx_()
392 sigma = rmin / tnrm; in dstevx_()
394 else if (tnrm > rmax) in dstevx_()
397 sigma = rmax / tnrm; in dstevx_()
|
| H A D | sstevr.c | 310 real tnrm, sigma; in sstevr_() local
490 tnrm = slanst_("M", n, &d__[1], &e[1]); in sstevr_()
491 if (tnrm > 0.f && tnrm < rmin) in sstevr_()
494 sigma = rmin / tnrm; in sstevr_()
496 else if (tnrm > rmax) in sstevr_()
499 sigma = rmax / tnrm; in sstevr_()
|
| H A D | dstevr.c | 308 doublereal tnrm; in dstevr_() local
491 tnrm = dlanst_("M", n, &d__[1], &e[1]); in dstevr_()
492 if (tnrm > 0. && tnrm < rmin) in dstevr_()
495 sigma = rmin / tnrm; in dstevr_()
497 else if (tnrm > rmax) in dstevr_()
500 sigma = rmax / tnrm; in dstevr_()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | dstev.c | 26 static doublereal rmin, rmax, tnrm; in dstev_() local
168 tnrm = dlanst_("M", n, &d__[1], &e[1], (ftnlen)1); in dstev_()
169 if (tnrm > 0. && tnrm < rmin) { in dstev_()
171 sigma = rmin / tnrm; in dstev_()
172 } else if (tnrm > rmax) { in dstev_()
174 sigma = rmax / tnrm; in dstev_()
|
| H A D | sstev.c | 25 static real rmin, rmax, tnrm, sigma; in sstev_() local
164 tnrm = slanst_("M", n, &d__[1], &e[1], (ftnlen)1); in sstev_()
165 if (tnrm > 0.f && tnrm < rmin) { in sstev_()
167 sigma = rmin / tnrm; in sstev_()
168 } else if (tnrm > rmax) { in sstev_()
170 sigma = rmax / tnrm; in sstev_()
|
| H A D | sstevd.c | 24 static real eps, rmin, rmax, tnrm, sigma; in sstevd_() local
222 tnrm = slanst_("M", n, &d__[1], &e[1], (ftnlen)1); in sstevd_()
223 if (tnrm > 0.f && tnrm < rmin) { in sstevd_()
225 sigma = rmin / tnrm; in sstevd_()
226 } else if (tnrm > rmax) { in sstevd_()
228 sigma = rmax / tnrm; in sstevd_()
|
| H A D | dstevd.c | 25 static doublereal eps, rmin, rmax, tnrm; in dstevd_() local
227 tnrm = dlanst_("M", n, &d__[1], &e[1], (ftnlen)1); in dstevd_()
228 if (tnrm > 0. && tnrm < rmin) { in dstevd_()
230 sigma = rmin / tnrm; in dstevd_()
231 } else if (tnrm > rmax) { in dstevd_()
233 sigma = rmax / tnrm; in dstevd_()
|
| H A D | sstegr.c | 32 static real tnrm, scale; in sstegr_() local
349 tnrm = slanst_("M", n, &d__[1], &e[1], (ftnlen)1); in sstegr_()
350 if (tnrm > 0.f && tnrm < rmin) { in sstegr_()
351 scale = rmin / tnrm; in sstegr_()
352 } else if (tnrm > rmax) { in sstegr_()
353 scale = rmax / tnrm; in sstegr_()
359 tnrm *= scale; in sstegr_()
375 thresh = eps * tnrm; in sstegr_()
|
| H A D | dstegr.c | 33 static doublereal tnrm; in dstegr_() local
355 tnrm = dlanst_("M", n, &d__[1], &e[1], (ftnlen)1); in dstegr_()
356 if (tnrm > 0. && tnrm < rmin) { in dstegr_()
357 scale = rmin / tnrm; in dstegr_()
358 } else if (tnrm > rmax) { in dstegr_()
359 scale = rmax / tnrm; in dstegr_()
365 tnrm *= scale; in dstegr_()
381 thresh = eps * tnrm; in dstegr_()
|
| H A D | zstegr.c | 33 static doublereal tnrm; in zstegr_() local
359 tnrm = dlanst_("M", n, &d__[1], &e[1], (ftnlen)1); in zstegr_()
360 if (tnrm > 0. && tnrm < rmin) { in zstegr_()
361 scale = rmin / tnrm; in zstegr_()
362 } else if (tnrm > rmax) { in zstegr_()
363 scale = rmax / tnrm; in zstegr_()
369 tnrm *= scale; in zstegr_()
385 thresh = eps * tnrm; in zstegr_()
|
| H A D | cstegr.c | 32 static real tnrm, scale; in cstegr_() local
351 tnrm = slanst_("M", n, &d__[1], &e[1], (ftnlen)1); in cstegr_()
352 if (tnrm > 0.f && tnrm < rmin) { in cstegr_()
353 scale = rmin / tnrm; in cstegr_()
354 } else if (tnrm > rmax) { in cstegr_()
355 scale = rmax / tnrm; in cstegr_()
361 tnrm *= scale; in cstegr_()
377 thresh = eps * tnrm; in cstegr_()
|
| H A D | sstevx.c | 29 static real rmin, rmax, tnrm; in sstevx_() local
293 tnrm = slanst_("M", n, &d__[1], &e[1], (ftnlen)1); in sstevx_()
294 if (tnrm > 0.f && tnrm < rmin) { in sstevx_()
296 sigma = rmin / tnrm; in sstevx_()
297 } else if (tnrm > rmax) { in sstevx_()
299 sigma = rmax / tnrm; in sstevx_()
|
| H A D | dstevx.c | 29 static doublereal rmin, rmax, tnrm; in dstevx_() local
299 tnrm = dlanst_("M", n, &d__[1], &e[1], (ftnlen)1); in dstevx_()
300 if (tnrm > 0. && tnrm < rmin) { in dstevx_()
302 sigma = rmin / tnrm; in dstevx_()
303 } else if (tnrm > rmax) { in dstevx_()
305 sigma = rmax / tnrm; in dstevx_()
|
| /dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
| H A D | sstegr.cpp | 38 float tnrm; in F77_FUNC() local
135 tnrm = F77_FUNC(slanst,SLANST)("M", n, &d__[1], &e[1]); in F77_FUNC()
136 if (tnrm > 0. && tnrm < rmin) { in F77_FUNC()
137 scale = rmin / tnrm; in F77_FUNC()
138 } else if (tnrm > rmax) { in F77_FUNC()
139 scale = rmax / tnrm; in F77_FUNC()
145 tnrm *= scale; in F77_FUNC()
155 thresh = eps * tnrm; in F77_FUNC()
|
| H A D | dstegr.cpp | 38 double tnrm; in F77_FUNC() local
135 tnrm = F77_FUNC(dlanst,DLANST)("M", n, &d__[1], &e[1]); in F77_FUNC()
136 if (tnrm > 0. && tnrm < rmin) { in F77_FUNC()
137 scale = rmin / tnrm; in F77_FUNC()
138 } else if (tnrm > rmax) { in F77_FUNC()
139 scale = rmax / tnrm; in F77_FUNC()
145 tnrm *= scale; in F77_FUNC()
155 thresh = eps * tnrm; in F77_FUNC()
|
| /dports/math/xtensor-blas/xtensor-blas-0.20.0/include/xflens/cxxlapack/interface/ |
| H A D | larra.tcc | 49 float tnrm, in larra() argument
61 &tnrm, in larra()
81 double tnrm, in larra() argument
93 &tnrm, in larra()
|
| /dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
| H A D | template_lapack_stevx.h | 181 Treal rmin, rmax, tnrm; in template_lapack_stevx() local
292 tnrm = template_lapack_lanst("M", n, &d__[1], &e[1]); in template_lapack_stevx()
293 if (tnrm > 0. && tnrm < rmin) { in template_lapack_stevx()
295 sigma = rmin / tnrm; in template_lapack_stevx()
296 } else if (tnrm > rmax) { in template_lapack_stevx()
298 sigma = rmax / tnrm; in template_lapack_stevx()
|
| H A D | template_lapack_stevr.h | 63 Treal tnrm; in template_lapack_stevr() local
414 tnrm = template_lapack_lanst("M", n, &d__[1], &e[1]); in template_lapack_stevr()
415 if (tnrm > 0. && tnrm < rmin) { in template_lapack_stevr()
417 sigma = rmin / tnrm; in template_lapack_stevr()
418 } else if (tnrm > rmax) { in template_lapack_stevr()
420 sigma = rmax / tnrm; in template_lapack_stevr()
|
| H A D | template_lapack_stemr.h | 65 Treal tnrm; in template_lapack_stemr() local
516 tnrm = template_lapack_lanst("M", n, &d__[1], &e[1]); in template_lapack_stemr()
517 if (tnrm > 0. && tnrm < rmin) { in template_lapack_stemr()
518 scale = rmin / tnrm; in template_lapack_stemr()
519 } else if (tnrm > rmax) { in template_lapack_stemr()
520 scale = rmax / tnrm; in template_lapack_stemr()
526 tnrm *= scale; in template_lapack_stemr()
654 pivmin, &tnrm, &iinfo); in template_lapack_stemr()
|
| /dports/science/madness/madness-ebb3fd7/src/madness/external/elemental/external/pmrrr/src/lapack/ |
| H A D | odstmr.c | 44 double tnrm; in odstmr() local
524 tnrm = odnst("M", n, &d__[1], &e[1]); in odstmr()
525 if (tnrm > 0. && tnrm < rmin) { in odstmr()
526 scale = rmin / tnrm; in odstmr()
527 } else if (tnrm > rmax) { in odstmr()
528 scale = rmax / tnrm; in odstmr()
534 tnrm *= scale; in odstmr()
662 pivmin, &tnrm, &iinfo); in odstmr()
|