/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
H A D | clatm4.f | 171 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 181 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 230 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 280 A( JD, JD ) = CMPLX( JD-NZ1 ) 309 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**REAL( I-1 ) ) 321 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
H A D | zlatm4.f | 171 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 181 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 230 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 280 A( JD, JD ) = DCMPLX( JD-NZ1 ) 309 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**DBLE( I-1 ) ) 321 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
H A D | slatm4.f | 175 SUBROUTINE SLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, argument 184 INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 231 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 281 A( JD, JD ) = REAL( JD-NZ1 ) 310 A( NZ1+I, NZ1+I ) = ALPHA**REAL( I-1 ) 322 A( NZ1+I, NZ1+I ) = REAL( KLEN-I )*ALPHA + RCOND
|
/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | clatm4.f | 169 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 178 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 227 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 277 A( JD, JD ) = CMPLX( JD-NZ1 ) 306 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**REAL( I-1 ) ) 318 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
H A D | zlatm4.f | 169 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 178 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 227 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 277 A( JD, JD ) = DCMPLX( JD-NZ1 ) 306 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**DBLE( I-1 ) ) 318 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | zlatm4.f | 169 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 178 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 227 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 277 A( JD, JD ) = DCMPLX( JD-NZ1 ) 306 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**DBLE( I-1 ) ) 318 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
H A D | clatm4.f | 169 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 178 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 227 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 277 A( JD, JD ) = CMPLX( JD-NZ1 ) 306 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**REAL( I-1 ) ) 318 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
H A D | zlatm4.f | 169 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 178 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 local 227 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 277 A( JD, JD ) = DCMPLX( JD-NZ1 ) 306 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**DBLE( I-1 ) ) 318 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
H A D | clatm4.f | 169 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 178 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 local 227 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 277 A( JD, JD ) = CMPLX( JD-NZ1 ) 306 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**REAL( I-1 ) ) 318 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
H A D | zlatm4.f | 169 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 178 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 227 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 277 A( JD, JD ) = DCMPLX( JD-NZ1 ) 306 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**DBLE( I-1 ) ) 318 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
H A D | clatm4.f | 169 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 178 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 227 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 277 A( JD, JD ) = CMPLX( JD-NZ1 ) 306 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**REAL( I-1 ) ) 318 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/ |
H A D | clatm4.f | 171 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 181 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 local 230 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 280 A( JD, JD ) = CMPLX( JD-NZ1 ) 309 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**REAL( I-1 ) ) 321 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
H A D | zlatm4.f | 171 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 181 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 local 230 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 280 A( JD, JD ) = DCMPLX( JD-NZ1 ) 309 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**DBLE( I-1 ) ) 321 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/ |
H A D | zlatm4.f | 171 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 181 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 local 230 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 280 A( JD, JD ) = DCMPLX( JD-NZ1 ) 309 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**DBLE( I-1 ) ) 321 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
H A D | clatm4.f | 171 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 181 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 local 230 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 280 A( JD, JD ) = CMPLX( JD-NZ1 ) 309 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**REAL( I-1 ) ) 321 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/ |
H A D | zlatm4.f | 1 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 11 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 154 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 203 A( JD, JD ) = DCMPLX( JD-NZ1 ) 232 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**( I-1 ) ) 244 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
H A D | clatm4.f | 1 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 11 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 local 154 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 203 A( JD, JD ) = CMPLX( JD-NZ1 ) 232 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**( I-1 ) ) 244 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | clatm4.f | 171 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 181 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 local 230 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 280 A( JD, JD ) = CMPLX( JD-NZ1 ) 309 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**REAL( I-1 ) ) 321 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
H A D | zlatm4.f | 171 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 181 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 local 230 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 280 A( JD, JD ) = DCMPLX( JD-NZ1 ) 309 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**DBLE( I-1 ) ) 321 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/ |
H A D | clatm4.f | 171 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 181 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 230 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 280 A( JD, JD ) = CMPLX( JD-NZ1 ) 309 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**REAL( I-1 ) ) 321 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
H A D | zlatm4.f | 171 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 181 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 230 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 280 A( JD, JD ) = DCMPLX( JD-NZ1 ) 309 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**DBLE( I-1 ) ) 321 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
/dports/math/openblas/TIMING/EIG/ |
H A D | zlatm4.f | 1 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 11 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 154 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 203 A( JD, JD ) = DCMPLX( JD-NZ1 ) 232 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**( I-1 ) ) 244 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
H A D | clatm4.f | 1 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 11 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 154 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 203 A( JD, JD ) = CMPLX( JD-NZ1 ) 232 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**( I-1 ) ) 244 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/ |
H A D | zlatm4.f | 169 SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 178 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 227 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 277 A( JD, JD ) = DCMPLX( JD-NZ1 ) 306 A( NZ1+I, NZ1+I ) = DCMPLX( ALPHA**DBLE( I-1 ) ) 318 A( NZ1+I, NZ1+I ) = DCMPLX( DBLE( KLEN-I )*ALPHA+RCOND )
|
H A D | clatm4.f | 169 SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, argument 178 INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 227 KBEG = MAX( 1, MIN( N, NZ1+1 ) ) 277 A( JD, JD ) = CMPLX( JD-NZ1 ) 306 A( NZ1+I, NZ1+I ) = CMPLX( ALPHA**REAL( I-1 ) ) 318 A( NZ1+I, NZ1+I ) = CMPLX( REAL( KLEN-I )*ALPHA+RCOND )
|