Home
last modified time | relevance | path

Searched refs:ldvt (Results 1 – 25 of 604) sorted by relevance

12345678910>>...25

/dports/math/hmat-oss/hmat-oss-1.7.1/src/
H A Dlapack_operations.cpp44 int ldvt) { in svdCall() argument
70 int ldvt) { in svdCall() argument
76 result = proxy_lapack::gesvd(jobu, jobv, m, n, a, lda, sigma, u, ldu, vt, ldvt, &workSize_D, -1); in svdCall()
82 result = proxy_lapack::gesvd(jobu, jobv, m, n, a, lda, sigma, u, ldu, vt, ldvt, work, workSize); in svdCall()
90 int ldvt) { in svdCall() argument
117 int ldvt) { in svdCall() argument
129 result = proxy_lapack::gesvd(jobu, jobv, m, n, a, lda, sigma, u, ldu, vt, ldvt, work, workSize); in svdCall()
138 double* sigma, hmat::S_t* u, int ldu, hmat::S_t* vt, int ldvt) { in sddCall() argument
164 double* sigma, hmat::D_t* u, int ldu, hmat::D_t* vt, int ldvt) { in sddCall() argument
184 double* sigma, hmat::C_t* u, int ldu, hmat::C_t* vt, int ldvt) { in sddCall() argument
[all …]
/dports/math/eigen3/eigen-3.3.9/lapack/
H A Dsvd.cpp14 …Scalar* a, int *lda, RealScalar *s, Scalar *u, int *ldu, Scalar *vt, int *ldvt, Scalar* /*work*/, …
29 else if(*ldvt<1 || (*jobz=='A' && *ldvt<*n)
30 || (*jobz=='S' && *ldvt<diag_size)
31 || (*jobz=='O' && *m>=*n && *ldvt<*n)) *info = -10;
63 matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
68 matrix(vt,diag_size,*n,*ldvt) = svd.matrixV().adjoint();
73 matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
100 else if(*ldvt<1 || (*jobv=='A' && *ldvt<*n)
101 || (*jobv=='S' && *ldvt<diag_size)) *info = -11;
133 if(*jobv=='A') matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
[all …]
/dports/math/stanmath/math-4.2.0/lib/eigen_3.3.9/lapack/
H A Dsvd.cpp14 …Scalar* a, int *lda, RealScalar *s, Scalar *u, int *ldu, Scalar *vt, int *ldvt, Scalar* /*work*/, …
29 else if(*ldvt<1 || (*jobz=='A' && *ldvt<*n)
30 || (*jobz=='S' && *ldvt<diag_size)
31 || (*jobz=='O' && *m>=*n && *ldvt<*n)) *info = -10;
63 matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
68 matrix(vt,diag_size,*n,*ldvt) = svd.matrixV().adjoint();
73 matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
100 else if(*ldvt<1 || (*jobv=='A' && *ldvt<*n)
101 || (*jobv=='S' && *ldvt<diag_size)) *info = -11;
133 if(*jobv=='A') matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
[all …]
/dports/math/libsemigroups/libsemigroups-1.3.7/extern/eigen-3.3.7/lapack/
H A Dsvd.cpp14 …Scalar* a, int *lda, RealScalar *s, Scalar *u, int *ldu, Scalar *vt, int *ldvt, Scalar* /*work*/, …
29 else if(*ldvt<1 || (*jobz=='A' && *ldvt<*n)
30 || (*jobz=='S' && *ldvt<diag_size)
31 || (*jobz=='O' && *m>=*n && *ldvt<*n)) *info = -10;
63 matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
68 matrix(vt,diag_size,*n,*ldvt) = svd.matrixV().adjoint();
73 matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
100 else if(*ldvt<1 || (*jobv=='A' && *ldvt<*n)
101 || (*jobv=='S' && *ldvt<diag_size)) *info = -11;
133 if(*jobv=='A') matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
[all …]
/dports/misc/opennn/opennn-5.0.5/eigen/lapack/
H A Dsvd.cpp14 …Scalar* a, int *lda, RealScalar *s, Scalar *u, int *ldu, Scalar *vt, int *ldvt, Scalar* /*work*/, …
29 else if(*ldvt<1 || (*jobz=='A' && *ldvt<*n)
30 || (*jobz=='S' && *ldvt<diag_size)
31 || (*jobz=='O' && *m>=*n && *ldvt<*n)) *info = -10;
63 matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
68 matrix(vt,diag_size,*n,*ldvt) = svd.matrixV().adjoint();
73 matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
100 else if(*ldvt<1 || (*jobv=='A' && *ldvt<*n)
101 || (*jobv=='S' && *ldvt<diag_size)) *info = -11;
133 if(*jobv=='A') matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
[all …]
/dports/devel/taskflow/taskflow-3.2.0/3rd-party/eigen-3.3.7/lapack/
H A Dsvd.cpp14 …Scalar* a, int *lda, RealScalar *s, Scalar *u, int *ldu, Scalar *vt, int *ldvt, Scalar* /*work*/, …
29 else if(*ldvt<1 || (*jobz=='A' && *ldvt<*n)
30 || (*jobz=='S' && *ldvt<diag_size)
31 || (*jobz=='O' && *m>=*n && *ldvt<*n)) *info = -10;
63 matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
68 matrix(vt,diag_size,*n,*ldvt) = svd.matrixV().adjoint();
73 matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
100 else if(*ldvt<1 || (*jobv=='A' && *ldvt<*n)
101 || (*jobv=='S' && *ldvt<diag_size)) *info = -11;
133 if(*jobv=='A') matrix(vt,*n,*n,*ldvt) = svd.matrixV().adjoint();
[all …]
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/lapack/testlapack/
H A Ddgesvd.go52 ldvt := n + 7
128 vtAll := make([]float64, n*ldvt)
211 vt := make([]float64, n*ldvt)
224 ok := impl.Dgesvd(jobU, jobVT, m, n, a, lda, s, u, ldu, vt, ldvt, work, len(work))
258 if res := svdPartialVTResidual(minmn, n, vt, vtAll, ldvt); res > tol {
265 if res := svdPartialVTResidual(n, n, vt, vtAll, ldvt); res > tol {
307 dvt[i] = d[i] * vt[i*ldvt+j]
360 func svdPartialVTResidual(m, n int, vt, vtRef []float64, ldvt int) float64 {
363 jmax := blas64.Iamax(blas64.Vector{N: n, Data: vtRef[i*ldvt:], Inc: 1})
364 s := math.Copysign(1, vtRef[i*ldvt+jmax]) * math.Copysign(1, vt[i*ldvt+jmax])
[all …]
H A Ddbdsqr.go20 …Dbdsqr(uplo blas.Uplo, n, ncvt, nru, ncc int, d, e, vt []float64, ldvt int, u []float64, ldu int, …
28 n, ncvt, nru, ncc, ldvt, ldu, ldc int
47 ldvt := test.ldvt
50 if ldvt == 0 {
51 ldvt = max(1, ncvt)
149 vt := make([]float64, n*ldvt)
165 impl.Dbdsqr(uplo, n, ncvt, nru, ncc, d, e, vt, ldvt, u, ldu, c, ldc, work)
176 ldans := ldvt
177 bi.Dgemm(blas.NoTrans, blas.NoTrans, n, ncvt, n, 1, pt, ldpt, vtCopy, ldvt, 0, ans, ldans)
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/lapack/testlapack/
H A Ddgesvd.go54 ldvt := n + 7
130 vtAll := make([]float64, n*ldvt)
179 q = blas64.General{Rows: n, Cols: n, Data: vtAll, Stride: ldvt}
215 vt := make([]float64, n*ldvt)
261 q := blas64.General{Rows: minmn, Cols: n, Data: vtAll, Stride: ldvt}
269 q := blas64.General{Rows: n, Cols: n, Data: vtAll, Stride: ldvt}
273 if res := svdPartialVTResidual(n, n, vt, vtAll, ldvt); res > tol {
315 dvt[i] = d[i] * vt[i*ldvt+j]
371 jmax := blas64.Iamax(blas64.Vector{N: n, Data: vtRef[i*ldvt:], Inc: 1})
372 s := math.Copysign(1, vtRef[i*ldvt+jmax]) * math.Copysign(1, vt[i*ldvt+jmax])
[all …]
H A Ddbdsqr.go21 …Dbdsqr(uplo blas.Uplo, n, ncvt, nru, ncc int, d, e, vt []float64, ldvt int, u []float64, ldu int, …
29 n, ncvt, nru, ncc, ldvt, ldu, ldc int
48 ldvt := test.ldvt
51 if ldvt == 0 {
52 ldvt = max(1, ncvt)
150 vt := make([]float64, n*ldvt)
166 impl.Dbdsqr(uplo, n, ncvt, nru, ncc, d, e, vt, ldvt, u, ldu, c, ldc, work)
177 ldans := ldvt
178 bi.Dgemm(blas.NoTrans, blas.NoTrans, n, ncvt, n, 1, pt, ldpt, vtCopy, ldvt, 0, ans, ldans)
/dports/math/lapack++/lapackpp-2.5.4/src/
H A Dlasvd.cc96 integer ldvt = VT.inc(0) * VT.gdim(0); in LaSVD_IP() local
100 &Sigma(0), &U(0, 0), &ldu, &VT(0, 0), &ldvt, in LaSVD_IP()
105 &Sigma(0), &U(0, 0), &ldu, &VT(0, 0), &ldvt, in LaSVD_IP()
154 integer ldvt = 1; in LaSVD_IP() local
158 &Sigma(0), &U(0, 0), &ldu, &VT(0, 0), &ldvt, in LaSVD_IP()
163 &Sigma(0), &U(0, 0), &ldu, &VT(0, 0), &ldvt, in LaSVD_IP()
222 integer ldvt = VT.inc(0) * VT.gdim(0); in LaSVD_IP() local
224 if (ldvt == 0 && jobz == 'O' && VT.size(0) == 0) in LaSVD_IP()
225 ldvt = 1; in LaSVD_IP()
237 &Sigma(0), &U(0, 0), &ldu, &VT(0, 0), &ldvt, in LaSVD_IP()
[all …]
/dports/security/aws-iam-authenticator/aws-iam-authenticator-0.5.2/vendor/gonum.org/v1/gonum/lapack/gonum/
H A Ddgesvd.go100 case ldvt < 1 || (wantvas && ldvt < n):
373 if (len(vt) < (n-1)*ldvt+n && wantva) || (len(vt) < (minmn-1)*ldvt+n && wantvs) {
587 impl.Dlaset(blas.Lower, n-1, n-1, 0, 0, vt[ldvt:], ldvt)
595 impl.Dgebrd(n, n, vt, ldvt, s, work[ie:],
611 vt, ldvt, u, ldu, work, 1, work[iwork:])
794 impl.Dlaset(blas.Lower, n-1, n-1, 0, 0, vt[ldvt:], ldvt)
803 impl.Dgebrd(n, n, vt, ldvt, s, work[ie:],
819 vt, ldvt, u, ldu, work, 1, work[iwork:])
877 vt, ldvt, u, ldu, work, 1, work[iwork:])
977 work[ir:], ldworkr, a, lda, 0, vt, ldvt)
[all …]
/dports/www/carbonapi/carbonapi-0.14.1/vendor/gonum.org/v1/gonum/lapack/gonum/
H A Ddgesvd.go100 case ldvt < 1 || (wantvas && ldvt < n):
373 if (len(vt) < (n-1)*ldvt+n && wantva) || (len(vt) < (minmn-1)*ldvt+n && wantvs) {
587 impl.Dlaset(blas.Lower, n-1, n-1, 0, 0, vt[ldvt:], ldvt)
595 impl.Dgebrd(n, n, vt, ldvt, s, work[ie:],
611 vt, ldvt, u, ldu, work, 1, work[iwork:])
794 impl.Dlaset(blas.Lower, n-1, n-1, 0, 0, vt[ldvt:], ldvt)
803 impl.Dgebrd(n, n, vt, ldvt, s, work[ie:],
819 vt, ldvt, u, ldu, work, 1, work[iwork:])
877 vt, ldvt, u, ldu, work, 1, work[iwork:])
977 work[ir:], ldworkr, a, lda, 0, vt, ldvt)
[all …]
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/lapack/gonum/
H A Ddgesvd.go100 case ldvt < 1 || (wantvas && ldvt < n):
373 if (len(vt) < (n-1)*ldvt+n && wantva) || (len(vt) < (minmn-1)*ldvt+n && wantvs) {
587 impl.Dlaset(blas.Lower, n-1, n-1, 0, 0, vt[ldvt:], ldvt)
595 impl.Dgebrd(n, n, vt, ldvt, s, work[ie:],
611 vt, ldvt, u, ldu, work, 1, work[iwork:])
794 impl.Dlaset(blas.Lower, n-1, n-1, 0, 0, vt[ldvt:], ldvt)
803 impl.Dgebrd(n, n, vt, ldvt, s, work[ie:],
819 vt, ldvt, u, ldu, work, 1, work[iwork:])
877 vt, ldvt, u, ldu, work, 1, work[iwork:])
977 work[ir:], ldworkr, a, lda, 0, vt, ldvt)
[all …]
/dports/sysutils/kubectl/kubernetes-1.22.2/vendor/gonum.org/v1/gonum/lapack/gonum/
H A Ddgesvd.go100 case ldvt < 1 || (wantvas && ldvt < n):
373 if (len(vt) < (n-1)*ldvt+n && wantva) || (len(vt) < (minmn-1)*ldvt+n && wantvs) {
587 impl.Dlaset(blas.Lower, n-1, n-1, 0, 0, vt[ldvt:], ldvt)
595 impl.Dgebrd(n, n, vt, ldvt, s, work[ie:],
611 vt, ldvt, u, ldu, work, 1, work[iwork:])
794 impl.Dlaset(blas.Lower, n-1, n-1, 0, 0, vt[ldvt:], ldvt)
803 impl.Dgebrd(n, n, vt, ldvt, s, work[ie:],
819 vt, ldvt, u, ldu, work, 1, work[iwork:])
877 vt, ldvt, u, ldu, work, 1, work[iwork:])
977 work[ir:], ldworkr, a, lda, 0, vt, ldvt)
[all …]
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/lapack/gonum/
H A Ddgesvd.go100 case ldvt < 1 || (wantvas && ldvt < n):
373 if (len(vt) < (n-1)*ldvt+n && wantva) || (len(vt) < (minmn-1)*ldvt+n && wantvs) {
587 impl.Dlaset(blas.Lower, n-1, n-1, 0, 0, vt[ldvt:], ldvt)
595 impl.Dgebrd(n, n, vt, ldvt, s, work[ie:],
611 vt, ldvt, u, ldu, work, 1, work[iwork:])
794 impl.Dlaset(blas.Lower, n-1, n-1, 0, 0, vt[ldvt:], ldvt)
803 impl.Dgebrd(n, n, vt, ldvt, s, work[ie:],
819 vt, ldvt, u, ldu, work, 1, work[iwork:])
877 vt, ldvt, u, ldu, work, 1, work[iwork:])
977 work[ir:], ldworkr, a, lda, 0, vt, ldvt)
[all …]
/dports/lang/yorick/yorick-y_2_2_04/matrix/
H A Ddgesv2.c15 double vt[], long ldvt,
37 double vt[], long ldvt, in dgesv2() argument
54 #define vt_2(a1,a2) vt[a1-1+ldvt*(a2-1)] in dgesv2()
122 } else if( ldvt<1 || ( wntva && ldvt<n ) || in dgesv2()
123 ( wntvs && ldvt<minmn ) ) { in dgesv2()
813 &work_1( itaup ), vt, ldvt, in dgesv2()
976 &work_1( itaup ), vt, ldvt, in dgesv2()
1129 &work_1( itaup ), vt, ldvt, in dgesv2()
1280 &work_1( itaup ), vt, ldvt, in dgesv2()
1448 &work_1( itaup ), vt, ldvt, in dgesv2()
[all …]
/dports/math/maxima/maxima-5.43.2/share/lapack/lapack/
H A Ddlasd3.lisp69 ((< ldvt m)
91 ((1 ldvt) (1 *))
93 ldvt)
182 ((1 ldvt) (1 *))
275 ((1 ldvt) (1 *))
523 ((1 ldvt) (1 *))
525 ldvt)
554 ((1 ldvt) (1 *))
556 ldvt))
614 ((1 ldvt) (1 *))
[all …]
/dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/
H A Ddlasdq.cpp17 int *ldvt, in F77_FUNC()
40 vt_dim1 = *ldvt; in F77_FUNC()
74 } else if ((*ncvt == 0 && *ldvt < 1) || (*ncvt > 0 && *ldvt < itmp1)) { in F77_FUNC()
116 vt_offset], ldvt); in F77_FUNC()
160 F77_FUNC(dbdsqr,DBDSQR)("U", n, ncvt, nru, ncc, &d__[1], &e[1], &vt[vt_offset], ldvt, &u[ in F77_FUNC()
179 F77_FUNC(dswap,DSWAP)(ncvt, &vt[isub + vt_dim1], ldvt, &vt[i__ + vt_dim1], in F77_FUNC()
180 ldvt); in F77_FUNC()
H A Dslasdq.cpp17 int *ldvt, in F77_FUNC()
40 vt_dim1 = *ldvt; in F77_FUNC()
74 } else if ( (*ncvt == 0 && *ldvt < 1) || (*ncvt > 0 && *ldvt < itmp1)) { in F77_FUNC()
116 vt_offset], ldvt); in F77_FUNC()
160 F77_FUNC(sbdsqr,SBDSQR)("U", n, ncvt, nru, ncc, &d__[1], &e[1], &vt[vt_offset], ldvt, &u[ in F77_FUNC()
179 F77_FUNC(sswap,SSWAP)(ncvt, &vt[isub + vt_dim1], ldvt, &vt[i__ + vt_dim1], in F77_FUNC()
180 ldvt); in F77_FUNC()
H A Ddlasd0.cpp11 int *ldvt, in F77_FUNC()
33 vt_dim1 = *ldvt; in F77_FUNC()
51 } else if (*ldvt < m) { in F77_FUNC()
62 ldvt, &u[u_offset], ldu, &u[u_offset], ldu, &work[1], info); in F77_FUNC()
89 nlf + nlf * vt_dim1], ldvt, &u[nlf + nlf * u_dim1], ldu, &u[ in F77_FUNC()
106 nrf + nrf * vt_dim1], ldvt, &u[nrf + nrf * u_dim1], ldu, &u[ in F77_FUNC()
144 u_dim1], ldu, &vt[nlf + nlf * vt_dim1], ldvt, &iwork[ in F77_FUNC()
H A Dslasd0.cpp11 int *ldvt, in F77_FUNC()
33 vt_dim1 = *ldvt; in F77_FUNC()
51 } else if (*ldvt < m) { in F77_FUNC()
62 ldvt, &u[u_offset], ldu, &u[u_offset], ldu, &work[1], info); in F77_FUNC()
89 nlf + nlf * vt_dim1], ldvt, &u[nlf + nlf * u_dim1], ldu, &u[ in F77_FUNC()
106 nrf + nrf * vt_dim1], ldvt, &u[nrf + nrf * u_dim1], ldu, &u[ in F77_FUNC()
144 u_dim1], ldu, &vt[nlf + nlf * vt_dim1], ldvt, &iwork[ in F77_FUNC()
/dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/
H A Ddlasdq.c22 doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, in dlasdq_() argument
191 vt_dim1 = *ldvt; in dlasdq_()
223 } else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < max(1,*n)) { in dlasdq_()
275 vt_offset], ldvt); in dlasdq_()
333 dbdsqr_("U", n, ncvt, nru, ncc, &d__[1], &e[1], &vt[vt_offset], ldvt, &u[ in dlasdq_()
361 dswap_(ncvt, &vt[isub + vt_dim1], ldvt, &vt[i__ + vt_dim1], in dlasdq_()
362 ldvt); in dlasdq_()
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/
H A Dslasdq.c201 … ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *u, integer *… in slasdq_() argument
244 vt_dim1 = *ldvt; in slasdq_()
289 else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < max(1,*n)) in slasdq_()
348 slasr_("L", "V", "F", &np1, ncvt, &work[1], &work[np1], &vt[ vt_offset], ldvt); in slasdq_()
409 …sbdsqr_("U", n, ncvt, nru, ncc, &d__[1], &e[1], &vt[vt_offset], ldvt, &u[ u_offset], ldu, &c__[c_o… in slasdq_()
439 sswap_(ncvt, &vt[isub + vt_dim1], ldvt, &vt[i__ + vt_dim1], ldvt); in slasdq_()
H A Ddlasdq.c201 …u, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, integer *ldvt, doublereal *u, int… in dlasdq_() argument
242 vt_dim1 = *ldvt; in dlasdq_()
287 else if (*ncvt == 0 && *ldvt < 1 || *ncvt > 0 && *ldvt < max(1,*n)) in dlasdq_()
346 dlasr_("L", "V", "F", &np1, ncvt, &work[1], &work[np1], &vt[ vt_offset], ldvt); in dlasdq_()
407 …dbdsqr_("U", n, ncvt, nru, ncc, &d__[1], &e[1], &vt[vt_offset], ldvt, &u[ u_offset], ldu, &c__[c_o… in dlasdq_()
437 dswap_(ncvt, &vt[isub + vt_dim1], ldvt, &vt[i__ + vt_dim1], ldvt); in dlasdq_()

12345678910>>...25