/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | slasd0.f | 150 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 159 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 186 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 190 M = N + SQRE 207 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 255 SQREI = SQRE 292 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 293 SQREI = SQRE
|
H A D | dlasd0.f | 152 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 161 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 188 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 192 M = N + SQRE 209 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 257 SQREI = SQRE 294 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 295 SQREI = SQRE
|
H A D | dlasd1.f | 204 SUBROUTINE DLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, argument 213 INTEGER INFO, LDU, LDVT, NL, NR, SQRE 249 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 258 M = N + SQRE 293 CALL DLASD2( NL, NR, SQRE, K, D, WORK( IZ ), ALPHA, BETA, U, LDU, 301 CALL DLASD3( NL, NR, SQRE, K, D, WORK( IQ ), LDQ, WORK( ISIGMA ),
|
H A D | slasd1.f | 204 SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, argument 213 INTEGER INFO, LDU, LDVT, NL, NR, SQRE 249 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 258 M = N + SQRE 293 CALL SLASD2( NL, NR, SQRE, K, D, WORK( IZ ), ALPHA, BETA, U, LDU, 301 CALL SLASD3( NL, NR, SQRE, K, D, WORK( IQ ), LDQ, WORK( ISIGMA ),
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | slasd0.f | 148 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 187 M = N + SQRE 204 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 252 SQREI = SQRE 289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 290 SQREI = SQRE
|
H A D | dlasd0.f | 148 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 187 M = N + SQRE 204 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 252 SQREI = SQRE 289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 290 SQREI = SQRE
|
H A D | slasd1.f | 202 SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, argument 210 INTEGER INFO, LDU, LDVT, NL, NR, SQRE 246 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 255 M = N + SQRE 290 CALL SLASD2( NL, NR, SQRE, K, D, WORK( IZ ), ALPHA, BETA, U, LDU, 298 CALL SLASD3( NL, NR, SQRE, K, D, WORK( IQ ), LDQ, WORK( ISIGMA ),
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dlasd0.f | 148 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 187 M = N + SQRE 204 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 252 SQREI = SQRE 289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 290 SQREI = SQRE
|
H A D | slasd0.f | 148 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 187 M = N + SQRE 204 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 252 SQREI = SQRE 289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 290 SQREI = SQRE
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | dlasd0.f | 1 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE local 104 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 108 M = N + SQRE 125 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 173 SQREI = SQRE 210 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 211 SQREI = SQRE
|
H A D | slasd0.f | 1 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE local 104 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 108 M = N + SQRE 125 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 173 SQREI = SQRE 210 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 211 SQREI = SQRE
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dlasd0.f | 148 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 187 M = N + SQRE 204 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 252 SQREI = SQRE 289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 290 SQREI = SQRE
|
H A D | slasd0.f | 148 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 187 M = N + SQRE 204 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 252 SQREI = SQRE 289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 290 SQREI = SQRE
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | slasd0.f | 148 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 187 M = N + SQRE 204 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 252 SQREI = SQRE 289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 290 SQREI = SQRE
|
H A D | dlasd0.f | 148 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 187 M = N + SQRE 204 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 252 SQREI = SQRE 289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 290 SQREI = SQRE
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
H A D | dlasd0.f | 1 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 110 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 114 M = N + SQRE 131 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 179 SQREI = SQRE 216 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 217 SQREI = SQRE
|
H A D | slasd0.f | 1 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 110 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 114 M = N + SQRE 131 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 179 SQREI = SQRE 216 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 217 SQREI = SQRE
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlasd0.f | 150 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 159 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE local 186 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 190 M = N + SQRE 207 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 255 SQREI = SQRE 292 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 293 SQREI = SQRE
|
H A D | slasd0.f | 150 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 159 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE local 186 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 190 M = N + SQRE 207 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 255 SQREI = SQRE 292 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 293 SQREI = SQRE
|
/dports/math/openblas/TIMING/EIG/EIGSRC/ |
H A D | dlasd0.f | 1 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 110 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 114 M = N + SQRE 131 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 179 SQREI = SQRE 216 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 217 SQREI = SQRE
|
H A D | slasd0.f | 1 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 110 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 114 M = N + SQRE 131 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 179 SQREI = SQRE 216 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 217 SQREI = SQRE
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dlasd0.f | 1 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 104 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 108 M = N + SQRE 125 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 173 SQREI = SQRE 210 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 211 SQREI = SQRE
|
H A D | slasd0.f | 1 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 104 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 108 M = N + SQRE 125 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 173 SQREI = SQRE 210 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 211 SQREI = SQRE
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | slasd0.f | 148 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 187 M = N + SQRE 204 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 252 SQREI = SQRE 289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 290 SQREI = SQRE
|
H A D | dlasd0.f | 148 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument 156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE 183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN 187 M = N + SQRE 204 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U, 252 SQREI = SQRE 289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN 290 SQREI = SQRE
|