/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
H A D | dchkgk.f | 69 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 D | cchkgk.f | 69 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 D | schkgk.f | 69 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 D | dchkgk.f | 66 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 D | cchkgk.f | 66 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 D | zchkgk.f | 66 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 D | schkgk.f | 66 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 D | dchkgk.f | 66 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 D | schkgk.f | 66 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 D | cchkgk.f | 66 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 D | zchkgk.f | 66 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 D | dchkgk.f | 66 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 D | zchkgk.f | 66 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 D | schkgk.f | 66 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 D | cchkgk.f | 66 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 D | dchkgk.f | 66 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 D | schkgk.f | 66 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 D | cchkgk.f | 66 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 D | zchkgk.f | 66 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 D | dchkgk.f | 69 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 D | dchkgk.f | 69 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 D | dchkgk.f | 69 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 D | cchkgk.f | 69 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 D | dchkgk.f | 69 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 D | dchkgk.f | 66 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,
|