Home
last modified time | relevance | path

Searched refs:WANTQ (Results 1 – 25 of 643) sorted by relevance

12345678910>>...26

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dstrexc.f169 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 Ddtrexc.f169 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 Ddtgexc.f220 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 Dstrexc.f168 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 Ddtrexc.f168 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 Ddtrexc.f168 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 Dstrexc.f168 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 Ddtrexc.f168 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 Dstrexc.f168 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 Dstrexc.f89 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 Ddtrexc.f89 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 Ddtrexc.f168 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 Dstrexc.f168 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 Ddtrexc.f169 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 Ddtrexc.f89 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 Ddtrexc.f89 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 Dstrexc.f89 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 Ddtrexc.f169 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 Dstrexc.f169 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 Ddtrexc.f171 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 Dstrexc.f171 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 Dstrexc.f169 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 Ddtrexc.f168 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 Dstrexc.f168 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 Ddtgexc.f1 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 …]

12345678910>>...26