Home
last modified time | relevance | path

Searched refs:JOBVT (Results 1 – 25 of 168) sorted by relevance

1234567

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/64to32blas/
H A Dygesvd.F1 SUBROUTINE YGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, argument
6 CHARACTER JOBU, JOBVT local
20 call DGESVD( JOBU, JOBVT, M4,N4,A, LDA4, S, U, LDU4, VT, LDVT4,
H A Djgesvd.F1 SUBROUTINE jGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, argument
6 CHARACTER JOBU, JOBVT local
20 call ZGESVD( JOBU, JOBVT, M4, N4, A, LDA4, S, U, LDU4,
/dports/science/nwchem-data/nwchem-7.0.2-release/src/64to32blas/
H A Dygesvd.F1 SUBROUTINE YGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, argument
6 CHARACTER JOBU, JOBVT
20 call DGESVD( JOBU, JOBVT, M4,N4,A, LDA4, S, U, LDU4, VT, LDVT4,
H A Djgesvd.F1 SUBROUTINE jGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, argument
6 CHARACTER JOBU, JOBVT
20 call ZGESVD( JOBU, JOBVT, M4, N4, A, LDA4, S, U, LDU4,
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/src/
H A Ddakota_linear_algebra.cpp25 char JOBVT = 'N'; in svd() local
28 JOBVT = 'A'; // compute all singular vectors VT in svd()
48 la.GESVD(JOBU, JOBVT, M, N, matrix[0], LDA, &singular_vals[0], in svd()
54 la.GESVD(JOBU, JOBVT, M, N, matrix[0], LDA, &singular_vals[0], in svd()
/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/
H A Dpdsvdtst.f219 CHARACTER HETERO, JOBU, JOBVT local
479 JOBVT = 'V'
486 JOBVT = 'N'
489 JOBVT = 'V'
495 JOBVT = 'N'
516 CALL PDGESVD( JOBU, JOBVT, M, N, WORK( PTRAC ), IA, JA,
612 CALL PDGESVD( JOBU, JOBVT, M, N, WORK( PTRAC ), IA, JA,
H A Dpssvdtst.f219 CHARACTER HETERO, JOBU, JOBVT local
479 JOBVT = 'V'
486 JOBVT = 'N'
489 JOBVT = 'V'
495 JOBVT = 'N'
515 CALL PSGESVD( JOBU, JOBVT, M, N, WORK( PTRAC ), IA, JA,
611 CALL PSGESVD( JOBU, JOBVT, M, N, WORK( PTRAC ), IA, JA,
/dports/science/siconos/siconos-4.4.0/numerics/src/tools/
H A Dcond.c34 char JOBVT = 'N'; in cond() local
44 DGESVD(JOBU, JOBVT, n, m, A, n, S, U, LDU, VT, LDVT, superb, &InfoDGSVD); in cond()
H A Dpinv.c42 char JOBU = 'A', JOBVT = 'A'; in pinv() local
43 DGESVD(JOBU, JOBVT, n, m, A, n, S, U, LDU, VT, LDVT, superb, &InfoDGSVD); in pinv()
/dports/science/siconos/siconos-4.4.0/externals/numeric_bindings/libs/numeric/bindings/tools/templates/driver/
H A Dgesvd.hpp2 JOBU,JOBVT,M,N
30 JOBU,JOBVT,M,N,MINMN
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddgesvdx.f256 SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
266 CHARACTER JOBU, JOBVT, RANGE
318 WANTVT = LSAME( JOBVT, 'V' )
332 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
333 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
378 MNTHR = ILAENV( 6, 'DGESVD', JOBU // JOBVT, M, N, 0, 0 )
397 MNTHR = ILAENV( 6, 'DGESVD', JOBU // JOBVT, M, N, 0, 0 )
H A Dsgesvdx.f256 SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
266 CHARACTER JOBU, JOBVT, RANGE
318 WANTVT = LSAME( JOBVT, 'V' )
332 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
333 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
378 MNTHR = ILAENV( 6, 'SGESVD', JOBU // JOBVT, M, N, 0, 0 )
397 MNTHR = ILAENV( 6, 'SGESVD', JOBU // JOBVT, M, N, 0, 0 )
H A Dcgesvdx.f263 SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
273 CHARACTER JOBU, JOBVT, RANGE
328 WANTVT = LSAME( JOBVT, 'V' )
342 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
343 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
388 MNTHR = ILAENV( 6, 'CGESVD', JOBU // JOBVT, M, N, 0, 0 )
407 MNTHR = ILAENV( 6, 'CGESVD', JOBU // JOBVT, M, N, 0, 0 )
H A Dzgesvdx.f260 SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
270 CHARACTER JOBU, JOBVT, RANGE
325 WANTVT = LSAME( JOBVT, 'V' )
339 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
340 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
385 MNTHR = ILAENV( 6, 'ZGESVD', JOBU // JOBVT, M, N, 0, 0 )
404 MNTHR = ILAENV( 6, 'ZGESVD', JOBU // JOBVT, M, N, 0, 0 )
/dports/science/qmcpack/qmcpack-3.11.0/src/QMCTools/ppconvert/src/common/
H A DMatrixOps.cc47 F77_DGESVD (char *JOBU, char* JOBVT, int *M, int *N,
53 F77_ZGESVD (char *JOBU, char* JOBVT, int *M, int *N,
401 char JOBVT = 'S'; // return min (M,N) columns of V in SVdecomp() local
410 F77_ZGESVD (&JOBU, &JOBVT, &M, &N, Atrans.data(), &LDA, in SVdecomp()
/dports/math/libmesh/libmesh-1.6.2/src/numerics/
H A Ddense_matrix_blas_lapack.C303 char JOBVT = 'N'; in _svd_lapack() local
309 _svd_helper(JOBU, JOBVT, sigma_val, U_val, VT_val); in _svd_lapack()
346 char JOBVT = 'S'; in _svd_lapack() local
373 _svd_helper(JOBU, JOBVT, sigma_val, VT.get_values(), U.get_values()); in _svd_lapack()
385 char JOBVT, in _svd_helper() argument
443 if (JOBVT == 'S') in _svd_helper()
488 LAPACKgesvd_(&JOBU, &JOBVT, &M, &N, pPS(_val.data()), &LDA, in _svd_helper()
501 LAPACKgesvd_(&JOBU, &JOBVT, &M, &N, val_copy.data(), &LDA, sigma_val.data(), U_val.data(), in _svd_helper()
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Ddgesvdx.f260 SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
269 CHARACTER JOBU, JOBVT, RANGE
321 WANTVT = LSAME( JOBVT, 'V' )
335 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
336 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
387 MNTHR = ILAENV( 6, 'DGESVD', JOBU // JOBVT, M, N, 0, 0 )
422 MNTHR = ILAENV( 6, 'DGESVD', JOBU // JOBVT, M, N, 0, 0 )
H A Dsgesvdx.f260 SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
269 CHARACTER JOBU, JOBVT, RANGE
321 WANTVT = LSAME( JOBVT, 'V' )
335 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
336 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
387 MNTHR = ILAENV( 6, 'SGESVD', JOBU // JOBVT, M, N, 0, 0 )
422 MNTHR = ILAENV( 6, 'SGESVD', JOBU // JOBVT, M, N, 0, 0 )
H A Dzgesvdx.f267 SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
276 CHARACTER JOBU, JOBVT, RANGE
331 WANTVT = LSAME( JOBVT, 'V' )
345 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
346 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
397 MNTHR = ILAENV( 6, 'ZGESVD', JOBU // JOBVT, M, N, 0, 0 )
422 MNTHR = ILAENV( 6, 'ZGESVD', JOBU // JOBVT, M, N, 0, 0 )
H A Dcgesvdx.f267 SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
276 CHARACTER JOBU, JOBVT, RANGE
332 WANTVT = LSAME( JOBVT, 'V' )
346 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
347 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
398 MNTHR = ILAENV( 6, 'CGESVD', JOBU // JOBVT, M, N, 0, 0 )
423 MNTHR = ILAENV( 6, 'CGESVD', JOBU // JOBVT, M, N, 0, 0 )
/dports/math/blas/lapack-3.10.0/SRC/
H A Dcgesvdx.f267 SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
276 CHARACTER JOBU, JOBVT, RANGE
332 WANTVT = LSAME( JOBVT, 'V' )
346 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
347 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
398 MNTHR = ILAENV( 6, 'CGESVD', JOBU // JOBVT, M, N, 0, 0 )
423 MNTHR = ILAENV( 6, 'CGESVD', JOBU // JOBVT, M, N, 0, 0 )
H A Ddgesvdx.f260 SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
269 CHARACTER JOBU, JOBVT, RANGE
321 WANTVT = LSAME( JOBVT, 'V' )
335 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
336 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
387 MNTHR = ILAENV( 6, 'DGESVD', JOBU // JOBVT, M, N, 0, 0 )
422 MNTHR = ILAENV( 6, 'DGESVD', JOBU // JOBVT, M, N, 0, 0 )
H A Dzgesvdx.f267 SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
276 CHARACTER JOBU, JOBVT, RANGE
331 WANTVT = LSAME( JOBVT, 'V' )
345 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
346 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
397 MNTHR = ILAENV( 6, 'ZGESVD', JOBU // JOBVT, M, N, 0, 0 )
422 MNTHR = ILAENV( 6, 'ZGESVD', JOBU // JOBVT, M, N, 0, 0 )
H A Dsgesvdx.f260 SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
269 CHARACTER JOBU, JOBVT, RANGE
321 WANTVT = LSAME( JOBVT, 'V' )
335 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
336 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
387 MNTHR = ILAENV( 6, 'SGESVD', JOBU // JOBVT, M, N, 0, 0 )
422 MNTHR = ILAENV( 6, 'SGESVD', JOBU // JOBVT, M, N, 0, 0 )
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dsgesvdx.f260 SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, argument
269 CHARACTER JOBU, JOBVT, RANGE
321 WANTVT = LSAME( JOBVT, 'V' )
335 ELSE IF( .NOT.LSAME( JOBVT, 'V' ) .AND.
336 $ .NOT.LSAME( JOBVT, 'N' ) ) THEN
387 MNTHR = ILAENV( 6, 'SGESVD', JOBU // JOBVT, M, N, 0, 0 )
422 MNTHR = ILAENV( 6, 'SGESVD', JOBU // JOBVT, M, N, 0, 0 )

1234567