/dports/science/siconos/siconos-4.4.0/externals/numeric_bindings/boost/numeric/bindings/lapack/auxiliary/ |
H A D | larrb.hpp | 57 const float spdiam, const fortran_int_t twist ) { in larrb() argument 60 wgap, werr, work, iwork, &pivmin, &spdiam, &twist, &info ); in larrb() 74 const double spdiam, const fortran_int_t twist ) { in larrb() argument 77 wgap, werr, work, iwork, &pivmin, &spdiam, &twist, &info ); in larrb() 106 const real_type spdiam, const fortran_int_t twist, in invoke() 142 pivmin, spdiam, twist ); in invoke() 159 const real_type spdiam, const fortran_int_t twist, in invoke() 184 const real_type spdiam, const fortran_int_t twist, in invoke() 235 VectorD >::type >::type spdiam, const fortran_int_t twist, in larrb() 239 offset, w, wgap, werr, pivmin, spdiam, twist, work ); in larrb() [all …]
|
/dports/math/xtensor-blas/xtensor-blas-0.20.0/include/xflens/cxxlapack/interface/ |
H A D | larrb.tcc | 58 float spdiam, in larrb() argument 76 &spdiam, in larrb() 105 double spdiam, in larrb() argument 123 &spdiam, in larrb()
|
H A D | larrf.tcc | 53 float spdiam, in larrf() argument 74 &spdiam, in larrf() 103 double spdiam, in larrf() argument 124 &spdiam, in larrf()
|
H A D | larrf.h | 51 float spdiam, 71 double spdiam,
|
H A D | larrb.h | 56 float spdiam, 75 double spdiam,
|
/dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
H A D | template_lapack_larre.h | 86 Treal safmin, spdiam; in template_lapack_larre() local 371 spdiam = gu - gl; in template_lapack_larre() 455 spdiam = gu - gl; in template_lapack_larre() 523 spdiam = isrght - isleft; in template_lapack_larre() 554 s1 = isleft + spdiam * .25; in template_lapack_larre() 555 s2 = isrght - spdiam * .25; in template_lapack_larre() 561 s1 = isleft + spdiam * .25; in template_lapack_larre() 562 s2 = isrght - spdiam * .25; in template_lapack_larre() 612 tau = spdiam * eps * *n + *pivmin * 2.; in template_lapack_larre() 660 if (dmax__ > spdiam * 64.) { in template_lapack_larre() [all …]
|
H A D | template_lapack_larrf.h | 44 Treal *wgap, Treal *werr, Treal *spdiam, Treal * in template_lapack_larrf() argument 236 fail = (Treal) (*n - 1) * mingap / (*spdiam * eps); in template_lapack_larrf() 237 fail2 = (Treal) (*n - 1) * mingap / (*spdiam * template_blas_sqrt(eps)); in template_lapack_larrf() 242 growthbound = *spdiam * 8.; in template_lapack_larrf() 372 rrr1 = tmp / (*spdiam * template_blas_sqrt(znm2)); in template_lapack_larrf() 399 rrr2 = tmp / (*spdiam * template_blas_sqrt(znm2)); in template_lapack_larrf()
|
H A D | template_lapack_larrv.h | 91 Treal spdiam; in template_lapack_larrv() local 400 spdiam = gu - gl; in template_lapack_larrv() 530 iindwk], pivmin, &spdiam, &in, &iinfo); in template_lapack_larrv() 642 spdiam, &in, &iinfo); in template_lapack_larrv() 665 &wgap[wbegin], &werr[wbegin], &spdiam, &lgap, in template_lapack_larrv() 801 iindwk], pivmin, &spdiam, &itmp1, &iinfo); in template_lapack_larrv()
|
/dports/science/madness/madness-ebb3fd7/src/madness/external/elemental/external/pmrrr/src/lapack/ |
H A D | odrre.c | 77 double safmin, spdiam; in odrre() local 357 spdiam = gu - gl; in odrre() 441 spdiam = gu - gl; in odrre() 509 spdiam = isrght - isleft; in odrre() 540 s1 = isleft + spdiam * .25; in odrre() 541 s2 = isrght - spdiam * .25; in odrre() 547 s1 = isleft + spdiam * .25; in odrre() 548 s2 = isrght - spdiam * .25; in odrre() 598 tau = spdiam * eps * *n + *pivmin * 2.; in odrre() 647 if (dmax__ > spdiam * 64.) { in odrre() [all …]
|
H A D | odrrf.c | 18 double *wgap, double *werr, double *spdiam, double * in odrrf() argument 209 fail = (double) (*n - 1) * mingap / (*spdiam * eps); in odrrf() 210 fail2 = (double) (*n - 1) * mingap / (*spdiam * sqrt(eps)); in odrrf() 215 growthbound = *spdiam * 8.; in odrrf() 345 rrr1 = tmp / (*spdiam * sqrt(znm2)); in odrrf() 372 rrr2 = tmp / (*spdiam * sqrt(znm2)); in odrrf()
|
H A D | odrrv.c | 82 double spdiam; in odrrv() local 390 spdiam = gu - gl; in odrrv() 520 iindwk], pivmin, &spdiam, &in, &iinfo); in odrrv() 632 spdiam, &in, &iinfo); in odrrv() 655 &wgap[wbegin], &werr[wbegin], &spdiam, &lgap, in odrrv() 791 iindwk], pivmin, &spdiam, &itmp1, &iinfo); in odrrv()
|
H A D | odrrj.c | 14 double *pivmin, double *spdiam, int *info) in odrrj() argument 140 maxitr = (int) ((log(*spdiam + *pivmin) - log(*pivmin)) / log(2.)) + in odrrj()
|
/dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
H A D | dlarre.c | 374 doublereal safmin, spdiam; in igraphdlarre_() local 482 spdiam = gu - gl; in igraphdlarre_() 566 spdiam = gu - gl; in igraphdlarre_() 634 spdiam = isrght - isleft; in igraphdlarre_() 665 s1 = isleft + spdiam * .25; in igraphdlarre_() 666 s2 = isrght - spdiam * .25; in igraphdlarre_() 672 s1 = isleft + spdiam * .25; in igraphdlarre_() 673 s2 = isrght - spdiam * .25; in igraphdlarre_() 723 tau = spdiam * eps * *n + *pivmin * 2.; in igraphdlarre_() 774 if (dmax__ > spdiam * 64.) { in igraphdlarre_() [all …]
|
H A D | dlarrf.c | 211 doublereal *wgap, doublereal *werr, doublereal *spdiam, doublereal * in igraphdlarrf_() argument 312 fail = (doublereal) (*n - 1) * mingap / (*spdiam * eps); in igraphdlarrf_() 313 fail2 = (doublereal) (*n - 1) * mingap / (*spdiam * sqrt(eps)); in igraphdlarrf_() 318 growthbound = *spdiam * 8.; in igraphdlarrf_() 448 rrr1 = tmp / (*spdiam * sqrt(znm2)); in igraphdlarrf_() 475 rrr2 = tmp / (*spdiam * sqrt(znm2)); in igraphdlarrf_()
|
H A D | dlarrv.c | 362 doublereal spdiam; in igraphdlarrv_() local 508 spdiam = gu - gl; in igraphdlarrv_() 638 iindwk], pivmin, &spdiam, &in, &iinfo); in igraphdlarrv_() 750 spdiam, &in, &iinfo); in igraphdlarrv_() 773 &wgap[wbegin], &werr[wbegin], &spdiam, &lgap, in igraphdlarrv_() 909 iindwk], pivmin, &spdiam, &itmp1, &iinfo); in igraphdlarrv_()
|
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
H A D | slarre.c | 326 real safmin, spdiam; in slarre_() local 460 spdiam = gu - gl; in slarre_() 552 spdiam = gu - gl; in slarre_() 635 spdiam = isrght - isleft; in slarre_() 669 s1 = isleft + spdiam * .25f; in slarre_() 670 s2 = isrght - spdiam * .25f; in slarre_() 679 s1 = isleft + spdiam * .25f; in slarre_() 680 s2 = isrght - spdiam * .25f; in slarre_() 748 tau = spdiam * eps * *n + *pivmin * 2.f; in slarre_() 815 if (dmax__ > spdiam * 64.f) in slarre_() [all …]
|
H A D | dlarre.c | 332 doublereal safmin, spdiam; in dlarre_() local 460 spdiam = gu - gl; in dlarre_() 552 spdiam = gu - gl; in dlarre_() 635 spdiam = isrght - isleft; in dlarre_() 669 s1 = isleft + spdiam * .25; in dlarre_() 670 s2 = isrght - spdiam * .25; in dlarre_() 679 s1 = isleft + spdiam * .25; in dlarre_() 680 s2 = isrght - spdiam * .25; in dlarre_() 748 tau = spdiam * eps * *n + *pivmin * 2.; in dlarre_() 815 if (dmax__ > spdiam * 64.) in dlarre_() [all …]
|
H A D | slarrf.c | 180 … integer *clstrt, integer *clend, real *w, real *wgap, real *werr, real *spdiam, real *clgapl, rea… in slarrf_() argument 284 fail = (real) (*n - 1) * mingap / (*spdiam * eps); in slarrf_() 285 fail2 = (real) (*n - 1) * mingap / (*spdiam * sqrt(eps)); in slarrf_() 289 growthbound = *spdiam * 8.f; in slarrf_() 451 rrr1 = tmp / (*spdiam * sqrt(znm2)); in slarrf_() 487 rrr2 = tmp / (*spdiam * sqrt(znm2)); in slarrf_()
|
H A D | dlarrf.c | 180 …r *clend, doublereal *w, doublereal *wgap, doublereal *werr, doublereal *spdiam, doublereal * clga… in dlarrf_() argument 284 fail = (doublereal) (*n - 1) * mingap / (*spdiam * eps); in dlarrf_() 285 fail2 = (doublereal) (*n - 1) * mingap / (*spdiam * sqrt(eps)); in dlarrf_() 289 growthbound = *spdiam * 8.; in dlarrf_() 451 rrr1 = tmp / (*spdiam * sqrt(znm2)); in dlarrf_() 487 rrr2 = tmp / (*spdiam * sqrt(znm2)); in dlarrf_()
|
H A D | slarrv.c | 319 real spdiam; in slarrv_() local 491 spdiam = gu - gl; in slarrv_() 639 …gin], &wgap[ wbegin], &werr[wbegin], &work[indwrk], &iwork[ iindwk], pivmin, &spdiam, &in, &iinfo); in slarrv_() 770 …gin], &wgap[wbegin], &werr[wbegin] , &work[indwrk], &iwork[iindwk], pivmin, & spdiam, &in, &iinfo); in slarrv_() 787 …in - 1], &newfst, &newlst, &work[wbegin], &wgap[wbegin], &werr[wbegin], &spdiam, &lgap, &rgap, piv… in slarrv_() 932 …], &wgap[wbegin], & werr[wbegin], &work[indwrk], &iwork[ iindwk], pivmin, &spdiam, &itmp1, &iinfo); in slarrv_()
|
H A D | dlarrv.c | 322 doublereal spdiam; in dlarrv_() local 496 spdiam = gu - gl; in dlarrv_() 644 …gin], &wgap[ wbegin], &werr[wbegin], &work[indwrk], &iwork[ iindwk], pivmin, &spdiam, &in, &iinfo); in dlarrv_() 775 …gin], &wgap[wbegin], &werr[wbegin] , &work[indwrk], &iwork[iindwk], pivmin, & spdiam, &in, &iinfo); in dlarrv_() 792 …in - 1], &newfst, &newlst, &work[wbegin], &wgap[wbegin], &werr[wbegin], &spdiam, &lgap, &rgap, piv… in dlarrv_() 937 …], &wgap[wbegin], & werr[wbegin], &work[indwrk], &iwork[ iindwk], pivmin, &spdiam, &itmp1, &iinfo); in dlarrv_()
|
/dports/science/madness/madness-ebb3fd7/src/madness/external/elemental/external/pmrrr/src/ |
H A D | tasks.c | 51 double spdiam, double lgap, rrr_t *RRR) in PMR_create_s_task() argument 67 s->bl_spdiam = spdiam; in PMR_create_s_task() 81 int bl_begin, int bl_end, double spdiam, in PMR_create_c_task() argument 100 c->bl_spdiam = spdiam; in PMR_create_c_task()
|
H A D | plarre.c | 215 Dstruct->spdiam = gu - gl; in plarre() 567 double isleft, isright, spdiam; in eigval_root_proc() local 601 spdiam = gu - gl; in eigval_root_proc() 617 spdiam = isright - isleft; in eigval_root_proc() 620 s1 = isleft + HALF * spdiam; in eigval_root_proc() 645 tau = spdiam*DBL_EPSILON*n + 2.0*pivmin; in eigval_root_proc() 676 if (Dmax > MAX_GROWTH*spdiam) { in eigval_root_proc() 762 double spdiam; in eigval_refine_proc() local 795 spdiam = gu - gl; in eigval_refine_proc() 843 pivmin, spdiam); in eigval_refine_proc() [all …]
|
H A D | plarrv.c | 322 double sigma, gl, gu, avggap, spdiam; in init_workQ() local 355 spdiam = gu - gl; in init_workQ() 356 avggap = spdiam / (isize-1); in init_workQ() 460 iend, spdiam, lgap, RRR); in init_workQ() 516 iend, spdiam, lgap, iWbegin, in init_workQ() 554 iend, spdiam, lgap, iWbegin, iWend, in init_workQ()
|
/dports/science/madness/madness-ebb3fd7/src/madness/external/elemental/external/pmrrr/include/ |
H A D | tasks.h | 100 int bl_begin, int bl_end, double spdiam, 104 int bl_begin, int bl_end, double spdiam,
|