/dports/math/hmat-oss/hmat-oss-1.7.1/src/ |
H A D | lapack_operations.cpp | 44 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 D | svd.cpp | 14 …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 D | svd.cpp | 14 …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 D | svd.cpp | 14 …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 D | svd.cpp | 14 …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 D | svd.cpp | 14 …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 D | dgesvd.go | 52 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 D | dbdsqr.go | 20 …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 D | dgesvd.go | 54 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 D | dbdsqr.go | 21 …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 D | lasvd.cc | 96 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 D | dgesvd.go | 100 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 D | dgesvd.go | 100 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 D | dgesvd.go | 100 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 D | dgesvd.go | 100 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 D | dgesvd.go | 100 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 D | dgesv2.c | 15 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 D | dlasd3.lisp | 69 ((< 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 D | dlasdq.cpp | 17 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 D | slasdq.cpp | 17 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 D | dlasd0.cpp | 11 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 D | slasd0.cpp | 11 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 D | dlasdq.c | 22 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 D | slasdq.c | 201 … 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 D | dlasdq.c | 201 …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_()
|