/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/64to32blas/ |
H A D | ygesvd.F | 1 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 D | jgesvd.F | 1 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 D | ygesvd.F | 1 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 D | jgesvd.F | 1 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 D | dakota_linear_algebra.cpp | 25 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 D | pdsvdtst.f | 219 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 D | pssvdtst.f | 219 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 D | cond.c | 34 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 D | pinv.c | 42 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 D | gesvd.hpp | 2 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 D | dgesvdx.f | 256 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 D | sgesvdx.f | 256 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 D | cgesvdx.f | 263 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 D | zgesvdx.f | 260 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 D | MatrixOps.cc | 47 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 D | dense_matrix_blas_lapack.C | 303 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 D | dgesvdx.f | 260 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 D | sgesvdx.f | 260 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 D | zgesvdx.f | 267 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 D | cgesvdx.f | 267 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 D | cgesvdx.f | 267 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 D | dgesvdx.f | 260 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 D | zgesvdx.f | 267 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 D | sgesvdx.f | 260 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 D | sgesvdx.f | 260 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 )
|