Home
last modified time | relevance | path

Searched refs:LDVL (Results 1 – 25 of 735) sorted by relevance

12345678910>>...30

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/
H A Ddchkgk.f69 INTEGER LDA, LDB, LDVL, LDVR
70 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
84 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
85 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
148 CALL DLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
151 CALL DGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
172 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
177 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
196 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
201 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
H A Dcchkgk.f69 INTEGER LDA, LDB, LDVL, LDVR
70 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
90 $ VL( LDVL, LDVL ), VLF( LDVL, LDVL ),
158 CALL CLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
161 CALL CGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
182 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
187 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
206 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
211 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
H A Dschkgk.f69 INTEGER LDA, LDB, LDVL, LDVR
70 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
84 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
85 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
148 CALL SLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
151 CALL SGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
172 CALL SGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
177 CALL SGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
196 CALL SGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
201 CALL SGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/
H A Ddchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
81 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
82 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
145 CALL DLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
148 CALL DGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
169 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
174 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
193 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
198 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
H A Dcchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
87 $ VL( LDVL, LDVL ), VLF( LDVL, LDVL ),
155 CALL CLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
158 CALL CGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
179 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
184 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
203 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
208 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
H A Dzchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
87 $ VL( LDVL, LDVL ), VLF( LDVL, LDVL ),
155 CALL ZLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
158 CALL ZGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
179 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
184 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
203 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
208 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
H A Dschkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
81 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
82 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
145 CALL SLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
148 CALL SGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
169 CALL SGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
174 CALL SGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
193 CALL SGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
198 CALL SGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
/dports/math/blas/lapack-3.10.0/TESTING/EIG/
H A Ddchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
81 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
82 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
145 CALL DLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
148 CALL DGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
169 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
174 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
193 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
198 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
H A Dschkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
81 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
82 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
145 CALL SLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
148 CALL SGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
169 CALL SGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
174 CALL SGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
193 CALL SGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
198 CALL SGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
H A Dcchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
87 $ VL( LDVL, LDVL ), VLF( LDVL, LDVL ),
155 CALL CLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
158 CALL CGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
179 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
184 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
203 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
208 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
H A Dzchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
87 $ VL( LDVL, LDVL ), VLF( LDVL, LDVL ),
155 CALL ZLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
158 CALL ZGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
179 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
184 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
203 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
208 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/
H A Ddchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
81 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
82 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
145 CALL DLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
148 CALL DGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
169 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
174 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
193 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
198 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
H A Dzchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
87 $ VL( LDVL, LDVL ), VLF( LDVL, LDVL ),
155 CALL ZLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
158 CALL ZGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
179 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
184 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
203 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
208 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
H A Dschkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
81 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
82 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
145 CALL SLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
148 CALL SGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
169 CALL SGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
174 CALL SGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
193 CALL SGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
198 CALL SGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
H A Dcchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
87 $ VL( LDVL, LDVL ), VLF( LDVL, LDVL ),
155 CALL CLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
158 CALL CGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
179 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
184 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
203 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
208 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/
H A Ddchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR local
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
81 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
82 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
145 CALL DLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
148 CALL DGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
169 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
174 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
193 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
198 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
H A Dschkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
81 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
82 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
145 CALL SLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
148 CALL SGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
169 CALL SGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
174 CALL SGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
193 CALL SGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
198 CALL SGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
H A Dcchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR local
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
87 $ VL( LDVL, LDVL ), VLF( LDVL, LDVL ),
155 CALL CLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
158 CALL CGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
179 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
184 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
203 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
208 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
H A Dzchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
87 $ VL( LDVL, LDVL ), VLF( LDVL, LDVL ),
155 CALL ZLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
158 CALL ZGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
179 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
184 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
203 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
208 CALL ZGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/
H A Ddchkgk.f69 INTEGER LDA, LDB, LDVL, LDVR local
70 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
84 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
85 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
148 CALL DLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
151 CALL DGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
172 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
177 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
196 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
201 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/
H A Ddchkgk.f69 INTEGER LDA, LDB, LDVL, LDVR local
70 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
84 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
85 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
148 CALL DLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
151 CALL DGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
172 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
177 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
196 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
201 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/
H A Ddchkgk.f69 INTEGER LDA, LDB, LDVL, LDVR local
70 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
84 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
85 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
148 CALL DLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
151 CALL DGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
172 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
177 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
196 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
201 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
H A Dcchkgk.f69 INTEGER LDA, LDB, LDVL, LDVR local
70 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
90 $ VL( LDVL, LDVL ), VLF( LDVL, LDVL ),
158 CALL CLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
161 CALL CGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
182 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
187 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
206 CALL CGEMM( 'C', 'N', M, M, N, CONE, VL, LDVL, WORK, LDWORK,
211 CALL CGEMM( 'C', 'N', M, M, N, CONE, VLF, LDVL, WORK, LDWORK,
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/
H A Ddchkgk.f69 INTEGER LDA, LDB, LDVL, LDVR
70 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
84 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
85 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
148 CALL DLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
151 CALL DGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
172 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
177 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
196 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
201 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/
H A Ddchkgk.f66 INTEGER LDA, LDB, LDVL, LDVR
67 PARAMETER ( LDA = 50, LDB = 50, LDVL = 50, LDVR = 50 )
81 $ LSCALE( LDA ), RSCALE( LDA ), VL( LDVL, LDVL ),
82 $ VLF( LDVL, LDVL ), VR( LDVR, LDVR ),
145 CALL DLACPY( 'FULL', N, M, VL, LDVL, VLF, LDVL )
148 CALL DGGBAK( 'B', 'L', N, ILO, IHI, LSCALE, RSCALE, M, VL, LDVL,
169 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
174 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,
193 CALL DGEMM( 'T', 'N', M, M, N, ONE, VL, LDVL, WORK, LDWORK, ZERO,
198 CALL DGEMM( 'T', 'N', M, M, N, ONE, VLF, LDVL, WORK, LDWORK, ZERO,

12345678910>>...30