Home
last modified time | relevance | path

Searched refs:NZ1 (Results 1 – 25 of 126) sorted by relevance

123456

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/
H A Dclatm4.f171 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 Dzlatm4.f171 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 Dslatm4.f175 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 Dclatm4.f169 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 Dzlatm4.f169 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 Dzlatm4.f169 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 Dclatm4.f169 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 Dzlatm4.f169 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 Dclatm4.f169 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 Dzlatm4.f169 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 Dclatm4.f169 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 Dclatm4.f171 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 Dzlatm4.f171 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 Dzlatm4.f171 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 Dclatm4.f171 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 Dzlatm4.f1 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 Dclatm4.f1 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 Dclatm4.f171 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 Dzlatm4.f171 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 Dclatm4.f171 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 Dzlatm4.f171 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 Dzlatm4.f1 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 Dclatm4.f1 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 Dzlatm4.f169 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 Dclatm4.f169 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 )

123456