/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | strexc.f | 169 LOGICAL WANTQ 187 WANTQ = LSAME( COMPQ, 'V' ) 188 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 194 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 264 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 289 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 299 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 312 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 323 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 325 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
H A D | dtrexc.f | 169 LOGICAL WANTQ 187 WANTQ = LSAME( COMPQ, 'V' ) 188 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 194 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 264 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 289 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 299 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 312 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 323 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 325 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
H A D | dtgexc.f | 220 SUBROUTINE DTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, argument 229 LOGICAL WANTQ, WANTZ 265 ELSE IF( LDQ.LT.1 .OR. WANTQ .AND. ( LDQ.LT.MAX( 1, N ) ) ) THEN 352 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, 377 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, 387 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, 405 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, 417 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, 424 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, 453 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | strexc.f | 168 LOGICAL WANTQ 186 WANTQ = LSAME( COMPQ, 'V' ) 187 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 193 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 263 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 288 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 298 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 311 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 322 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 324 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
H A D | dtrexc.f | 168 LOGICAL WANTQ 186 WANTQ = LSAME( COMPQ, 'V' ) 187 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 193 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 263 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 288 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 298 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 311 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 322 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 324 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dtrexc.f | 168 LOGICAL WANTQ 186 WANTQ = LSAME( COMPQ, 'V' ) 187 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 193 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 263 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 288 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 298 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 311 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 322 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 324 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
H A D | strexc.f | 168 LOGICAL WANTQ 186 WANTQ = LSAME( COMPQ, 'V' ) 187 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 193 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 263 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 288 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 298 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 311 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 322 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 324 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dtrexc.f | 168 LOGICAL WANTQ 186 WANTQ = LSAME( COMPQ, 'V' ) 187 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 193 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 263 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 288 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 298 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 311 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 322 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 324 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
H A D | strexc.f | 168 LOGICAL WANTQ 186 WANTQ = LSAME( COMPQ, 'V' ) 187 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 193 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 263 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 288 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 298 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 311 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 322 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 324 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | strexc.f | 89 LOGICAL WANTQ 107 WANTQ = LSAME( COMPQ, 'V' ) 108 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 114 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 184 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 209 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 219 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 232 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 243 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 245 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
H A D | dtrexc.f | 89 LOGICAL WANTQ local 107 WANTQ = LSAME( COMPQ, 'V' ) 108 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 114 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 184 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 209 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 219 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 232 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 243 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 245 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dtrexc.f | 168 LOGICAL WANTQ 186 WANTQ = LSAME( COMPQ, 'V' ) 187 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 193 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 263 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 288 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 298 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 311 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 322 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 324 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
H A D | strexc.f | 168 LOGICAL WANTQ 186 WANTQ = LSAME( COMPQ, 'V' ) 187 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 193 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 263 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 288 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 298 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 311 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 322 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 324 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dtrexc.f | 169 LOGICAL WANTQ 187 WANTQ = LSAME( COMPQ, 'V' ) 188 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 194 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 264 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 289 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 299 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 312 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 323 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 325 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/math/algae/algae-4.3.6/lapack/ |
H A D | dtrexc.f | 89 LOGICAL WANTQ 107 WANTQ = LSAME( COMPQ, 'V' ) 108 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 114 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 184 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 209 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 219 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 232 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 243 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 245 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dtrexc.f | 89 LOGICAL WANTQ 107 WANTQ = LSAME( COMPQ, 'V' ) 108 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 114 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 184 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 209 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 219 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 232 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 243 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 245 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
H A D | strexc.f | 89 LOGICAL WANTQ 107 WANTQ = LSAME( COMPQ, 'V' ) 108 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 114 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 184 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 209 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 219 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 232 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 243 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 245 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/ |
H A D | dtrexc.f | 169 LOGICAL WANTQ 187 WANTQ = LSAME( COMPQ, 'V' ) 188 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 194 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 264 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 289 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 299 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 312 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 323 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 325 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/ |
H A D | strexc.f | 169 LOGICAL WANTQ 187 WANTQ = LSAME( COMPQ, 'V' ) 188 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 194 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 264 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 289 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 299 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 312 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 323 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 325 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dtrexc.f | 171 LOGICAL WANTQ local 189 WANTQ = LSAME( COMPQ, 'V' ) 190 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 196 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 266 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 291 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 301 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 314 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 325 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 327 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
H A D | strexc.f | 171 LOGICAL WANTQ local 189 WANTQ = LSAME( COMPQ, 'V' ) 190 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 196 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 266 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 291 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 301 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 314 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 325 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 327 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/ |
H A D | strexc.f | 169 LOGICAL WANTQ 187 WANTQ = LSAME( COMPQ, 'V' ) 188 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 194 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 264 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 289 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 299 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 312 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 323 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 325 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dtrexc.f | 168 LOGICAL WANTQ 186 WANTQ = LSAME( COMPQ, 'V' ) 187 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 193 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 263 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 288 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 298 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 311 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 322 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 324 CALL DLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
H A D | strexc.f | 168 LOGICAL WANTQ 186 WANTQ = LSAME( COMPQ, 'V' ) 187 IF( .NOT.WANTQ .AND. .NOT.LSAME( COMPQ, 'N' ) ) THEN 193 ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.MAX( 1, N ) ) ) THEN 263 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, NBF, NBNEXT, 288 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, NBNEXT, 298 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, NBNEXT, 311 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 322 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE, 1, 1, 324 CALL SLAEXC( WANTQ, N, T, LDT, Q, LDQ, HERE+1, 1, 1, [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/ |
H A D | dtgexc.f | 1 SUBROUTINE DTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, argument 10 LOGICAL WANTQ, WANTZ 162 ELSE IF( LDQ.LT.1 .OR. WANTQ .AND. ( LDQ.LT.MAX( 1, N ) ) ) THEN 242 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, 267 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, 277 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, 295 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, 307 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, 314 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, 343 CALL DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, [all …]
|