| /dports/science/siconos/siconos-4.4.0/externals/numeric_bindings/boost/numeric/bindings/lapack/auxiliary/ |
| H A D | lalsd.hpp | 140 const fortran_int_t smlsiz, const fortran_int_t n, in invoke()
198 smlsiz, nlvl, bindings::size_column(b) ) ); in invoke()
229 std::ptrdiff_t smlsiz_plus_one = smlsiz + 1; in min_size_work()
230 return 9*n + 2*n*smlsiz + 8*n*nlvl + n*nrhs + in min_size_work()
277 static_cast<real_type>(smlsiz+1)) / in invoke()
316 static_cast<real_type>(smlsiz+1)) / in invoke()
321 smlsiz, nlvl, bindings::size_column(b) ) ); in invoke()
361 std::ptrdiff_t smlsiz_plus_one = smlsiz + 1; in min_size_rwork()
362 return 9*n + 2*n*smlsiz + 8*n*nlvl + 3*smlsiz*nrhs + in min_size_rwork()
394 lalsd( const char uplo, const fortran_int_t smlsiz, in lalsd() argument
[all …]
|
| /dports/science/siconos/siconos-4.4.0/externals/numeric_bindings/libs/numeric/bindings/tools/templates/auxiliary/ |
| H A D | lalsd.hpp | 4 $INTEGER_TYPE smlsiz_plus_one = smlsiz + 1;
5 return 9*n + 2*n*smlsiz + 8*n*nlvl + n*nrhs + smlsiz_plus_one * smlsiz_plus_one;
13 $INTEGER_TYPE smlsiz_plus_one = smlsiz + 1;
14 return 9*n + 2*n*smlsiz + 8*n*nlvl + 3*smlsiz*nrhs + smlsiz_plus_one * smlsiz_plus_one;
20 static_cast<real_type>(smlsiz+1)) /
24 std::log(static_cast<real_type>(n)/static_cast<real_type>(smlsiz+1)) /
|
| /dports/math/xtensor-blas/xtensor-blas-0.20.0/include/xflens/cxxlapack/interface/ |
| H A D | lalsd.tcc | 45 IndexType smlsiz, in lalsd() argument
61 &smlsiz, in lalsd()
86 IndexType smlsiz, in lalsd() argument
102 &smlsiz, in lalsd()
126 IndexType smlsiz, in lalsd() argument
143 &smlsiz, in lalsd()
169 IndexType smlsiz, in lalsd() argument
186 &smlsiz, in lalsd()
|
| H A D | lalsa.tcc | 45 IndexType smlsiz, in lalsa() argument
74 &smlsiz, in lalsa()
112 IndexType smlsiz, in lalsa() argument
141 &smlsiz, in lalsa()
178 IndexType smlsiz, in lalsa() argument
207 &smlsiz, in lalsa()
244 IndexType smlsiz, in lalsa() argument
273 &smlsiz, in lalsa()
|
| H A D | lasd0.tcc | 52 IndexType smlsiz, in lasd0() argument
67 &smlsiz, in lasd0()
90 IndexType smlsiz, in lasd0() argument
105 &smlsiz, in lasd0()
|
| H A D | lalsd.h | 43 IndexType smlsiz,
59 IndexType smlsiz,
74 IndexType smlsiz,
90 IndexType smlsiz,
|
| H A D | lasda.tcc | 45 IndexType smlsiz, in lasda() argument
72 &smlsiz, in lasda()
107 IndexType smlsiz, in lasda() argument
134 &smlsiz, in lasda()
|
| H A D | lalsa.h | 43 IndexType smlsiz,
71 IndexType smlsiz,
99 IndexType smlsiz,
127 IndexType smlsiz,
|
| /dports/science/siconos/siconos-4.4.0/externals/numeric_bindings/libs/numeric/bindings/tools/templates/driver/ |
| H A D | gelsd.hpp | 12 $INTEGER_TYPE smlsiz = ilaenv(9, "GELSD", "");
14 …EGER_TYPE>(std::log(static_cast<real_type>(minmn)/static_cast<real_type>(smlsiz+1))/std::log(2.0))…
16 $INTEGER_TYPE smlsiz_plus_one = smlsiz + 1;
17 return std::max< $INTEGER_TYPE >( 1, 10*minmn + 2*minmn*smlsiz + 8*minmn*nlvl + 3*smlsiz*nrhs + sml…
29 $INTEGER_TYPE smlsiz_plus_one = smlsiz + 1;
30 return std::max< $INTEGER_TYPE >( 1, 12*minmn + 2*minmn*smlsiz + 8*minmn*nlvl + minmn*nrhs + smlsiz…
|
| /dports/science/siconos/siconos-4.4.0/externals/numeric_bindings/boost/numeric/bindings/lapack/driver/ |
| H A D | gelsd.hpp | 163 std::ptrdiff_t smlsiz = ilaenv(9, "GELSD", ""); in invoke() local
174 min_size_work( minmn, smlsiz, nlvl, in invoke()
211 std::ptrdiff_t smlsiz = ilaenv(9, "GELSD", ""); in invoke() local
238 std::ptrdiff_t smlsiz = ilaenv(9, "GELSD", ""); in invoke() local
264 std::ptrdiff_t smlsiz_plus_one = smlsiz + 1; in min_size_work()
311 std::ptrdiff_t smlsiz = ilaenv(9, "GELSD", ""); in invoke() local
322 min_size_rwork( minmn, smlsiz, nlvl, in invoke()
363 std::ptrdiff_t smlsiz = ilaenv(9, "GELSD", ""); in invoke() local
392 std::ptrdiff_t smlsiz = ilaenv(9, "GELSD", ""); in invoke() local
431 std::ptrdiff_t smlsiz_plus_one = smlsiz + 1; in min_size_rwork()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/check/ |
| H A D | zgelsd_check.c | 22 int smlsiz; in zgelsd_check() local
74 smlsiz = ilaenv_(&c__9, "ZGELSD", " ", &c__0, &c__0, &c__0, &c__0); in zgelsd_check()
77 i__1 = (int) (log((double) minmn / (double) (smlsiz + 1)) / log(2.)) + 1; in zgelsd_check()
100 i__3 = smlsiz + 1; in zgelsd_check()
103 … lrwork = *n * 10 + (*n << 1) * smlsiz + (*n << 3) * nlvl + smlsiz * 3 * *nrhs + max(i__1,i__2); in zgelsd_check()
129 i__3 = smlsiz + 1; in zgelsd_check()
132 … lrwork = *m * 10 + (*m << 1) * smlsiz + (*m << 3) * nlvl + smlsiz * 3 * *nrhs + max(i__1,i__2); in zgelsd_check()
|
| H A D | cgelsd_check.c | 22 int smlsiz; in cgelsd_check() local
73 smlsiz = ilaenv_(&c__9, "CGELSD", " ", &c__0, &c__0, &c__0, &c__0); in cgelsd_check()
76 i__1 = (int) (log((float) minmn / (float) (smlsiz + 1)) / log( 2.f)) + 1; in cgelsd_check()
99 i__3 = smlsiz + 1; in cgelsd_check()
102 … lrwork = *n * 10 + (*n << 1) * smlsiz + (*n << 3) * nlvl + smlsiz * 3 * *nrhs + max(i__1,i__2); in cgelsd_check()
128 i__3 = smlsiz + 1; in cgelsd_check()
131 … lrwork = *m * 10 + (*m << 1) * smlsiz + (*m << 3) * nlvl + smlsiz * 3 * *nrhs + max(i__1,i__2); in cgelsd_check()
|
| H A D | dgelsd_check.c | 22 int smlsiz; in dgelsd_check() local
59 smlsiz = ilaenv_(&c__9, "DGELSD", " ", &c__0, &c__0, &c__0, &c__0); in dgelsd_check()
70 i__1 = (int) (log((double) minmn / (double) (smlsiz + 1)) / log(2.)) + 1; in dgelsd_check()
106 i__1 = smlsiz + 1; in dgelsd_check()
107 wlalsd = *n * 9 + (*n << 1) * smlsiz + (*n << 3) * nlvl + *n * * nrhs + i__1 * i__1; in dgelsd_check()
121 i__1 = smlsiz + 1; in dgelsd_check()
122 wlalsd = *m * 9 + (*m << 1) * smlsiz + (*m << 3) * nlvl + *m * * nrhs + i__1 * i__1; in dgelsd_check()
|
| H A D | sgelsd_check.c | 22 int smlsiz; in sgelsd_check() local
72 smlsiz = ilaenv_(&c__9, "SGELSD", " ", &c__0, &c__0, &c__0, &c__0); in sgelsd_check()
75 i__1 = (int) (log((float) minmn / (float) (smlsiz + 1)) / log( 2.f)) + 1; in sgelsd_check()
109 i__1 = smlsiz + 1; in sgelsd_check()
110 wlalsd = *n * 9 + (*n << 1) * smlsiz + (*n << 3) * nlvl + *n * *nrhs + i__1 * i__1; in sgelsd_check()
124 i__1 = smlsiz + 1; in sgelsd_check()
125 wlalsd = *m * 9 + (*m << 1) * smlsiz + (*m << 3) * nlvl + *m * *nrhs + i__1 * i__1; in sgelsd_check()
|
| /dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
| H A D | dbdsdc.cpp | 39 int givnum, givptr, qstart, smlsiz, wstart, smlszp; in F77_FUNC() local
61 smlsiz = DBDSDC_SMALLSIZE; in F77_FUNC()
89 q[smlsiz * *n + 1] = 1.; in F77_FUNC()
128 if (*n <= smlsiz) { in F77_FUNC()
160 mlvl = (int) (std::log((double) (*n) / (double) (smlsiz + 1)) / in F77_FUNC()
162 smlszp = smlsiz + 1; in F77_FUNC()
166 ivt = smlsiz + 1; in F77_FUNC()
204 q[*n + (smlsiz + qstart - 1) * *n] = 1.; in F77_FUNC()
212 ldvt, &smlsiz, &iwork[1], &work[wstart], info); in F77_FUNC()
214 F77_FUNC(dlasda,DLASDA)(&icompq, &smlsiz, &nsize, &sqre, &d__[start], in F77_FUNC()
|
| H A D | sbdsdc.cpp | 39 int givnum, givptr, qstart, smlsiz, wstart, smlszp; in F77_FUNC() local
61 smlsiz = DBDSDC_SMALLSIZE; in F77_FUNC()
89 q[smlsiz * *n + 1] = 1.; in F77_FUNC()
128 if (*n <= smlsiz) { in F77_FUNC()
160 mlvl = (int) (std::log((float) (*n) / (float) (smlsiz + 1)) / std::log(2.)) + 1; in F77_FUNC()
161 smlszp = smlsiz + 1; in F77_FUNC()
165 ivt = smlsiz + 1; in F77_FUNC()
203 q[*n + (smlsiz + qstart - 1) * *n] = 1.; in F77_FUNC()
211 ldvt, &smlsiz, &iwork[1], &work[wstart], info); in F77_FUNC()
213 F77_FUNC(slasda,SLASDA)(&icompq, &smlsiz, &nsize, &sqre, &d__[start], in F77_FUNC()
|
| /dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
| H A D | dbdsdc.c | 76 integer givnum, givptr, qstart, smlsiz, wstart, smlszp; in dbdsdc_() local
275 smlsiz = ilaenv_(&c__9, "DBDSDC", " ", &c__0, &c__0, &c__0, &c__0); in dbdsdc_()
279 q[smlsiz * *n + 1] = 1.; in dbdsdc_()
331 if (*n <= smlsiz) { in dbdsdc_()
367 mlvl = (integer) (log((doublereal) (*n) / (doublereal) (smlsiz + 1)) / in dbdsdc_()
369 smlszp = smlsiz + 1; in dbdsdc_()
373 ivt = smlsiz + 1; in dbdsdc_()
428 q[*n + (smlsiz + qstart - 1) * *n] = 1.; in dbdsdc_()
435 ldvt, &smlsiz, &iwork[1], &work[wstart], info); in dbdsdc_()
437 dlasda_(&icompq, &smlsiz, &nsize, &sqre, &d__[start], &e[ in dbdsdc_()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | sbdsdc.c | 240 integer givptr, qstart, smlsiz, wstart, smlszp; in sbdsdc_() local
336 smlsiz = ilaenv_(&c__9, "SBDSDC", " ", &c__0, &c__0, &c__0, &c__0); in sbdsdc_()
342 q[smlsiz * *n + 1] = 1.f; in sbdsdc_()
397 if (*n <= smlsiz) in sbdsdc_()
429 mlvl = (integer) (log((real) (*n) / (real) (smlsiz + 1)) / log(2.f)) + 1; in sbdsdc_()
430 smlszp = smlsiz + 1; in sbdsdc_()
434 ivt = smlsiz + 1; in sbdsdc_()
493 q[*n + (smlsiz + qstart - 1) * *n] = 1.f; in sbdsdc_()
499 …], &u[start + start * u_dim1], ldu, &vt[start + start * vt_dim1], ldvt, &smlsiz, &iwork[1], &work[… in sbdsdc_()
503 …slasda_(&icompq, &smlsiz, &nsize, &sqre, &d__[start], &e[ start], &q[start + (iu + qstart - 2) * *… in sbdsdc_()
|
| H A D | dbdsdc.c | 234 integer givnum, givptr, qstart, smlsiz, wstart, smlszp; in dbdsdc_() local
330 smlsiz = ilaenv_(&c__9, "DBDSDC", " ", &c__0, &c__0, &c__0, &c__0); in dbdsdc_()
336 q[smlsiz * *n + 1] = 1.; in dbdsdc_()
391 if (*n <= smlsiz) in dbdsdc_()
423 mlvl = (integer) (log((doublereal) (*n) / (doublereal) (smlsiz + 1)) / log(2.)) + 1; in dbdsdc_()
424 smlszp = smlsiz + 1; in dbdsdc_()
428 ivt = smlsiz + 1; in dbdsdc_()
487 q[*n + (smlsiz + qstart - 1) * *n] = 1.; in dbdsdc_()
493 …], &u[start + start * u_dim1], ldu, &vt[start + start * vt_dim1], ldvt, &smlsiz, &iwork[1], &work[… in dbdsdc_()
497 …dlasda_(&icompq, &smlsiz, &nsize, &sqre, &d__[start], &e[ start], &q[start + (iu + qstart - 2) * *… in dbdsdc_()
|
| H A D | zgelsd.c | 258 integer nrwork, smlsiz; in zgelsd_() local
332 smlsiz = ilaenv_(&c__9, "ZGELSD", " ", &c__0, &c__0, &c__0, &c__0); in zgelsd_()
335 i__1 = (integer) (log((doublereal) minmn / (doublereal) (smlsiz + 1)) / log(2.)) + 1; in zgelsd_()
358 i__3 = smlsiz + 1; in zgelsd_()
361 … lrwork = *n * 10 + (*n << 1) * smlsiz + (*n << 3) * nlvl + smlsiz * 3 * *nrhs + max(i__1,i__2); in zgelsd_()
387 i__3 = smlsiz + 1; in zgelsd_()
390 … lrwork = *m * 10 + (*m << 1) * smlsiz + (*m << 3) * nlvl + smlsiz * 3 * *nrhs + max(i__1,i__2); in zgelsd_()
581 …zlalsd_("U", &smlsiz, n, nrhs, &s[1], &rwork[ie], &b[b_offset], ldb, rcond, rank, &work[nwork], &r… in zgelsd_()
639 …zlalsd_("U", &smlsiz, m, nrhs, &s[1], &rwork[ie], &b[b_offset], ldb, rcond, rank, &work[nwork], &r… in zgelsd_()
674 …zlalsd_("L", &smlsiz, m, nrhs, &s[1], &rwork[ie], &b[b_offset], ldb, rcond, rank, &work[nwork], &r… in zgelsd_()
|
| H A D | cgelsd.c | 258 integer nrwork, smlsiz; in cgelsd_() local
330 smlsiz = ilaenv_(&c__9, "CGELSD", " ", &c__0, &c__0, &c__0, &c__0); in cgelsd_()
333 i__1 = (integer) (log((real) minmn / (real) (smlsiz + 1)) / log( 2.f)) + 1; in cgelsd_()
356 i__3 = smlsiz + 1; in cgelsd_()
359 … lrwork = *n * 10 + (*n << 1) * smlsiz + (*n << 3) * nlvl + smlsiz * 3 * *nrhs + max(i__1,i__2); in cgelsd_()
385 i__3 = smlsiz + 1; in cgelsd_()
388 … lrwork = *m * 10 + (*m << 1) * smlsiz + (*m << 3) * nlvl + smlsiz * 3 * *nrhs + max(i__1,i__2); in cgelsd_()
579 …clalsd_("U", &smlsiz, n, nrhs, &s[1], &rwork[ie], &b[b_offset], ldb, rcond, rank, &work[nwork], &r… in cgelsd_()
637 …clalsd_("U", &smlsiz, m, nrhs, &s[1], &rwork[ie], &b[b_offset], ldb, rcond, rank, &work[nwork], &r… in cgelsd_()
672 …clalsd_("L", &smlsiz, m, nrhs, &s[1], &rwork[ie], &b[b_offset], ldb, rcond, rank, &work[nwork], &r… in cgelsd_()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | sbdsdc.c | 70 static integer givptr, qstart, smlsiz, wstart, smlszp; in sbdsdc_() local
267 smlsiz = ilaenv_(&c__9, "SBDSDC", " ", &c__0, &c__0, &c__0, &c__0, ( in sbdsdc_()
272 q[smlsiz * *n + 1] = 1.f; in sbdsdc_()
324 if (*n <= smlsiz) { in sbdsdc_()
365 mlvl = (integer) (log((real) (*n) / (real) (smlsiz + 1)) / log(2.f)) + 1; in sbdsdc_()
366 smlszp = smlsiz + 1; in sbdsdc_()
370 ivt = smlsiz + 1; in sbdsdc_()
425 q[*n + (smlsiz + qstart - 1) * *n] = 1.f; in sbdsdc_()
432 ldvt, &smlsiz, &iwork[1], &work[wstart], info); in sbdsdc_()
434 slasda_(&icompq, &smlsiz, &nsize, &sqre, &d__[start], &e[ in sbdsdc_()
|
| H A D | dbdsdc.c | 71 static integer givnum, givptr, qstart, smlsiz, wstart, smlszp; in dbdsdc_() local
268 smlsiz = ilaenv_(&c__9, "DBDSDC", " ", &c__0, &c__0, &c__0, &c__0, ( in dbdsdc_()
273 q[smlsiz * *n + 1] = 1.; in dbdsdc_()
325 if (*n <= smlsiz) { in dbdsdc_()
366 mlvl = (integer) (log((doublereal) (*n) / (doublereal) (smlsiz + 1)) / in dbdsdc_()
368 smlszp = smlsiz + 1; in dbdsdc_()
372 ivt = smlsiz + 1; in dbdsdc_()
427 q[*n + (smlsiz + qstart - 1) * *n] = 1.; in dbdsdc_()
434 ldvt, &smlsiz, &iwork[1], &work[wstart], info); in dbdsdc_()
436 dlasda_(&icompq, &smlsiz, &nsize, &sqre, &d__[start], &e[ in dbdsdc_()
|
| H A D | dlalsd.c | 15 /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer in dlalsd_() argument
300 if (*n <= *smlsiz) { in dlalsd_()
338 nlvl = (integer) (log((doublereal) (*n) / (doublereal) (*smlsiz + 1)) / in dlalsd_()
341 smlszp = *smlsiz + 1; in dlalsd_()
344 vt = *smlsiz * *n + 1; in dlalsd_()
417 } else if (nsize <= *smlsiz) { in dlalsd_()
435 dlasda_(&icmpq1, smlsiz, &nsize, &sqre, &d__[st], &e[st], & in dlalsd_()
446 dlalsa_(&icmpq2, smlsiz, &nsize, nrhs, &b[st + b_dim1], ldb, & in dlalsd_()
495 } else if (nsize <= *smlsiz) { in dlalsd_()
500 dlalsa_(&icmpq2, smlsiz, &nsize, nrhs, &work[bxst], n, &b[st + in dlalsd_()
|
| H A D | slalsd.c | 15 /* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer in slalsd_() argument
295 if (*n <= *smlsiz) { in slalsd_()
333 nlvl = (integer) (log((real) (*n) / (real) (*smlsiz + 1)) / log(2.f)) + 1; in slalsd_()
335 smlszp = *smlsiz + 1; in slalsd_()
338 vt = *smlsiz * *n + 1; in slalsd_()
411 } else if (nsize <= *smlsiz) { in slalsd_()
429 slasda_(&icmpq1, smlsiz, &nsize, &sqre, &d__[st], &e[st], & in slalsd_()
440 slalsa_(&icmpq2, smlsiz, &nsize, nrhs, &b[st + b_dim1], ldb, & in slalsd_()
489 } else if (nsize <= *smlsiz) { in slalsd_()
494 slalsa_(&icmpq2, smlsiz, &nsize, nrhs, &work[bxst], n, &b[st + in slalsd_()
|