| /dports/math/blas/lapack-3.10.0/SRC/ |
| H A D | ssbgvd.f | 226 $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO )
234 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N
239 $ WORK( * ), Z( LDZ, * )
296 ELSE IF( LDZ.LT.1 .OR. ( WANTZ .AND. LDZ.LT.N ) ) THEN
337 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
347 CALL SSBTRD( VECT, UPLO, N, KA, AB, LDAB, W, WORK( INDE ), Z, LDZ,
357 CALL SGEMM( 'N', 'N', N, N, N, ONE, Z, LDZ, WORK( INDWRK ), N,
359 CALL SLACPY( 'A', N, N, WORK( INDWK2 ), N, Z, LDZ )
|
| H A D | ztgexc.f | 199 $ LDZ, IFST, ILST, INFO )
207 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
211 $ Z( LDZ, * )
237 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
264 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
281 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| H A D | ctgexc.f | 199 $ LDZ, IFST, ILST, INFO )
207 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
211 $ Z( LDZ, * )
237 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
264 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
281 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
| H A D | ssbgvd.f | 2 $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO )
11 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N
16 $ WORK( * ), Z( LDZ, * )
199 ELSE IF( LDZ.LT.1 .OR. ( WANTZ .AND. LDZ.LT.N ) ) THEN
238 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
248 CALL SSBTRD( VECT, UPLO, N, KA, AB, LDAB, W, WORK( INDE ), Z, LDZ,
258 CALL SGEMM( 'N', 'N', N, N, N, ONE, Z, LDZ, WORK( INDWRK ), N,
260 CALL SLACPY( 'A', N, N, WORK( INDWK2 ), N, Z, LDZ )
|
| H A D | dsbgvd.f | 2 $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) argument
11 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N local
16 $ WORK( * ), Z( LDZ, * )
199 ELSE IF( LDZ.LT.1 .OR. ( WANTZ .AND. LDZ.LT.N ) ) THEN
238 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
248 CALL DSBTRD( VECT, UPLO, N, KA, AB, LDAB, W, WORK( INDE ), Z, LDZ,
258 CALL DGEMM( 'N', 'N', N, N, N, ONE, Z, LDZ, WORK( INDWRK ), N,
260 CALL DLACPY( 'A', N, N, WORK( INDWK2 ), N, Z, LDZ )
|
| H A D | ctgexc.f | 2 $ LDZ, IFST, ILST, INFO )
11 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
15 $ Z( LDZ, * )
147 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
174 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
191 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| H A D | ztgexc.f | 2 $ LDZ, IFST, ILST, INFO ) argument
11 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N local
15 $ Z( LDZ, * )
147 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
174 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
191 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| /dports/math/lapack/lapack-3.10.0/SRC/ |
| H A D | ssbgvd.f | 226 $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO )
234 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N
239 $ WORK( * ), Z( LDZ, * )
296 ELSE IF( LDZ.LT.1 .OR. ( WANTZ .AND. LDZ.LT.N ) ) THEN
337 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
347 CALL SSBTRD( VECT, UPLO, N, KA, AB, LDAB, W, WORK( INDE ), Z, LDZ,
357 CALL SGEMM( 'N', 'N', N, N, N, ONE, Z, LDZ, WORK( INDWRK ), N,
359 CALL SLACPY( 'A', N, N, WORK( INDWK2 ), N, Z, LDZ )
|
| H A D | ctgexc.f | 199 $ LDZ, IFST, ILST, INFO )
207 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
211 $ Z( LDZ, * )
237 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
264 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
281 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| H A D | ztgexc.f | 199 $ LDZ, IFST, ILST, INFO ) argument
207 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N local
211 $ Z( LDZ, * )
237 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
264 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
281 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| /dports/math/lapacke/lapack-3.10.0/SRC/ |
| H A D | ssbgvd.f | 226 $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO )
234 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N
239 $ WORK( * ), Z( LDZ, * )
296 ELSE IF( LDZ.LT.1 .OR. ( WANTZ .AND. LDZ.LT.N ) ) THEN
337 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
347 CALL SSBTRD( VECT, UPLO, N, KA, AB, LDAB, W, WORK( INDE ), Z, LDZ,
357 CALL SGEMM( 'N', 'N', N, N, N, ONE, Z, LDZ, WORK( INDWRK ), N,
359 CALL SLACPY( 'A', N, N, WORK( INDWK2 ), N, Z, LDZ )
|
| H A D | ctgexc.f | 199 $ LDZ, IFST, ILST, INFO )
207 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
211 $ Z( LDZ, * )
237 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
264 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
281 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| H A D | ztgexc.f | 199 $ LDZ, IFST, ILST, INFO )
207 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
211 $ Z( LDZ, * )
237 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
264 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
281 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| /dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
| H A D | dsbgvd.f | 2 $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO )
11 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N
16 $ WORK( * ), Z( LDZ, * )
199 ELSE IF( LDZ.LT.1 .OR. ( WANTZ .AND. LDZ.LT.N ) ) THEN
238 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
248 CALL DSBTRD( VECT, UPLO, N, KA, AB, LDAB, W, WORK( INDE ), Z, LDZ,
258 CALL DGEMM( 'N', 'N', N, N, N, ONE, Z, LDZ, WORK( INDWRK ), N,
260 CALL DLACPY( 'A', N, N, WORK( INDWK2 ), N, Z, LDZ )
|
| H A D | ssbgvd.f | 2 $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO )
11 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N
16 $ WORK( * ), Z( LDZ, * )
199 ELSE IF( LDZ.LT.1 .OR. ( WANTZ .AND. LDZ.LT.N ) ) THEN
238 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
248 CALL SSBTRD( VECT, UPLO, N, KA, AB, LDAB, W, WORK( INDE ), Z, LDZ,
258 CALL SGEMM( 'N', 'N', N, N, N, ONE, Z, LDZ, WORK( INDWRK ), N,
260 CALL SLACPY( 'A', N, N, WORK( INDWK2 ), N, Z, LDZ )
|
| H A D | ctgexc.f | 2 $ LDZ, IFST, ILST, INFO )
11 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
15 $ Z( LDZ, * )
147 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
174 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
191 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| /dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
| H A D | ssbgvd.f | 228 $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) argument
237 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N local
242 $ WORK( * ), Z( LDZ, * )
299 ELSE IF( LDZ.LT.1 .OR. ( WANTZ .AND. LDZ.LT.N ) ) THEN
340 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
350 CALL SSBTRD( VECT, UPLO, N, KA, AB, LDAB, W, WORK( INDE ), Z, LDZ,
360 CALL SGEMM( 'N', 'N', N, N, N, ONE, Z, LDZ, WORK( INDWRK ), N,
362 CALL SLACPY( 'A', N, N, WORK( INDWK2 ), N, Z, LDZ )
|
| /dports/math/cblas/lapack-3.10.0/SRC/ |
| H A D | ssbgvd.f | 226 $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO )
234 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, LIWORK, LWORK, N
239 $ WORK( * ), Z( LDZ, * )
296 ELSE IF( LDZ.LT.1 .OR. ( WANTZ .AND. LDZ.LT.N ) ) THEN
337 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
347 CALL SSBTRD( VECT, UPLO, N, KA, AB, LDAB, W, WORK( INDE ), Z, LDZ,
357 CALL SGEMM( 'N', 'N', N, N, N, ONE, Z, LDZ, WORK( INDWRK ), N,
359 CALL SLACPY( 'A', N, N, WORK( INDWK2 ), N, Z, LDZ )
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/ |
| H A D | ztgexc.f | 2 $ LDZ, IFST, ILST, INFO )
11 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
15 $ Z( LDZ, * )
147 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
174 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
191 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
| H A D | ztgexc.f | 201 $ LDZ, IFST, ILST, INFO )
210 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
214 $ Z( LDZ, * )
240 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
267 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
284 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| /dports/math/xlapack/lapack-3.10.0/SRC/ |
| H A D | ctgexc.f | 199 $ LDZ, IFST, ILST, INFO )
207 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
211 $ Z( LDZ, * )
237 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
264 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
281 CALL CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| H A D | ztgexc.f | 199 $ LDZ, IFST, ILST, INFO )
207 INTEGER IFST, ILST, INFO, LDA, LDB, LDQ, LDZ, N
211 $ Z( LDZ, * )
237 ELSE IF( LDZ.LT.1 .OR. WANTZ .AND. ( LDZ.LT.MAX( 1, N ) ) ) THEN
264 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
281 CALL ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LDZ,
|
| /dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
| H A D | dpteqr.f | 1 SUBROUTINE DPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) argument
10 INTEGER INFO, LDZ, N
13 DOUBLE PRECISION D( * ), E( * ), WORK( * ), Z( LDZ, * )
139 ELSE IF( ( LDZ.LT.1 ) .OR. ( ICOMPZ.GT.0 .AND. LDZ.LT.MAX( 1,
159 $ CALL DLASET( 'Full', N, N, ZERO, ONE, Z, LDZ )
182 CALL DBDSQR( 'Lower', N, 0, NRU, 0, D, E, VT, 1, Z, LDZ, C, 1,
|
| H A D | cpteqr.f | 1 SUBROUTINE CPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) argument
10 INTEGER INFO, LDZ, N
14 COMPLEX Z( LDZ, * )
140 ELSE IF( ( LDZ.LT.1 ) .OR. ( ICOMPZ.GT.0 .AND. LDZ.LT.MAX( 1,
160 $ CALL CLASET( 'Full', N, N, CZERO, CONE, Z, LDZ )
183 CALL CBDSQR( 'Lower', N, 0, NRU, 0, D, E, VT, 1, Z, LDZ, C, 1,
|
| H A D | spteqr.f | 1 SUBROUTINE SPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) argument
10 INTEGER INFO, LDZ, N
13 REAL D( * ), E( * ), WORK( * ), Z( LDZ, * )
139 ELSE IF( ( LDZ.LT.1 ) .OR. ( ICOMPZ.GT.0 .AND. LDZ.LT.MAX( 1,
159 $ CALL SLASET( 'Full', N, N, ZERO, ONE, Z, LDZ )
182 CALL SBDSQR( 'Lower', N, 0, NRU, 0, D, E, VT, 1, Z, LDZ, C, 1,
|