Home
last modified time | relevance | path

Searched refs:ASAV (Results 1 – 25 of 517) sorted by relevance

12345678910>>...21

/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/
H A Dsdrvrf2.f88 SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 REAL A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL STPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL STFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dzdrvrf2.f88 SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 COMPLEX*16 A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL ZTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL ZTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dcdrvrf2.f88 SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 COMPLEX A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL CTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL CTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dddrvrf2.f88 SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 DOUBLE PRECISION A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL DTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL DTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/LIN/
H A Dddrvrf2.f90 SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
102 DOUBLE PRECISION A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
179 CALL DTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
185 IF ( A(I,J).NE.ASAV(I,J) ) THEN
193 IF ( A(I,J).NE.ASAV(I,J) ) THEN
209 CALL DTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
215 IF ( A(I,J).NE.ASAV(I,J) ) THEN
223 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dsdrvrf2.f90 SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
102 REAL A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
179 CALL STPTTR( UPLO, N, AP, ASAV, LDA, INFO )
185 IF ( A(I,J).NE.ASAV(I,J) ) THEN
193 IF ( A(I,J).NE.ASAV(I,J) ) THEN
209 CALL STFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
215 IF ( A(I,J).NE.ASAV(I,J) ) THEN
223 IF ( A(I,J).NE.ASAV(I,J) ) THEN
/dports/math/blas/lapack-3.10.0/TESTING/LIN/
H A Dzdrvrf2.f88 SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 COMPLEX*16 A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) local
176 CALL ZTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL ZTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dcdrvrf2.f88 SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 COMPLEX A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL CTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL CTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dddrvrf2.f88 SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 DOUBLE PRECISION A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL DTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL DTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dsdrvrf2.f88 SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 REAL A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL STPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL STFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/
H A Dcdrvrf2.f88 SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 COMPLEX A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) local
176 CALL CTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL CTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dsdrvrf2.f88 SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 REAL A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL STPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL STFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dzdrvrf2.f88 SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 COMPLEX*16 A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) local
176 CALL ZTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL ZTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dddrvrf2.f88 SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 DOUBLE PRECISION A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) local
176 CALL DTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL DTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/
H A Dsdrvrf2.f88 SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 REAL A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL STPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL STFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dcdrvrf2.f88 SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 COMPLEX A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL CTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL CTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dzdrvrf2.f88 SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 COMPLEX*16 A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL ZTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL ZTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dddrvrf2.f88 SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
99 DOUBLE PRECISION A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
176 CALL DTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
182 IF ( A(I,J).NE.ASAV(I,J) ) THEN
190 IF ( A(I,J).NE.ASAV(I,J) ) THEN
206 CALL DTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
212 IF ( A(I,J).NE.ASAV(I,J) ) THEN
220 IF ( A(I,J).NE.ASAV(I,J) ) THEN
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/LIN/
H A Dcdrvrf2.f90 SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
102 COMPLEX A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) local
179 CALL CTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
185 IF ( A(I,J).NE.ASAV(I,J) ) THEN
193 IF ( A(I,J).NE.ASAV(I,J) ) THEN
209 CALL CTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
215 IF ( A(I,J).NE.ASAV(I,J) ) THEN
223 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dddrvrf2.f90 SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
102 DOUBLE PRECISION A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) local
179 CALL DTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
185 IF ( A(I,J).NE.ASAV(I,J) ) THEN
193 IF ( A(I,J).NE.ASAV(I,J) ) THEN
209 CALL DTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
215 IF ( A(I,J).NE.ASAV(I,J) ) THEN
223 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dsdrvrf2.f90 SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
102 REAL A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) local
179 CALL STPTTR( UPLO, N, AP, ASAV, LDA, INFO )
185 IF ( A(I,J).NE.ASAV(I,J) ) THEN
193 IF ( A(I,J).NE.ASAV(I,J) ) THEN
209 CALL STFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
215 IF ( A(I,J).NE.ASAV(I,J) ) THEN
223 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dzdrvrf2.f90 SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
102 COMPLEX*16 A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) local
179 CALL ZTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
185 IF ( A(I,J).NE.ASAV(I,J) ) THEN
193 IF ( A(I,J).NE.ASAV(I,J) ) THEN
209 CALL ZTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
215 IF ( A(I,J).NE.ASAV(I,J) ) THEN
223 IF ( A(I,J).NE.ASAV(I,J) ) THEN
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/LIN/
H A Dzdrvrf2.f90 SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
102 COMPLEX*16 A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * )
179 CALL ZTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
185 IF ( A(I,J).NE.ASAV(I,J) ) THEN
193 IF ( A(I,J).NE.ASAV(I,J) ) THEN
209 CALL ZTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
215 IF ( A(I,J).NE.ASAV(I,J) ) THEN
223 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dsdrvrf2.f90 SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
102 REAL A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) local
179 CALL STPTTR( UPLO, N, AP, ASAV, LDA, INFO )
185 IF ( A(I,J).NE.ASAV(I,J) ) THEN
193 IF ( A(I,J).NE.ASAV(I,J) ) THEN
209 CALL STFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
215 IF ( A(I,J).NE.ASAV(I,J) ) THEN
223 IF ( A(I,J).NE.ASAV(I,J) ) THEN
H A Dddrvrf2.f90 SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) argument
102 DOUBLE PRECISION A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) local
179 CALL DTPTTR( UPLO, N, AP, ASAV, LDA, INFO )
185 IF ( A(I,J).NE.ASAV(I,J) ) THEN
193 IF ( A(I,J).NE.ASAV(I,J) ) THEN
209 CALL DTFTTR( CFORM, UPLO, N, ARF, ASAV, LDA, INFO )
215 IF ( A(I,J).NE.ASAV(I,J) ) THEN
223 IF ( A(I,J).NE.ASAV(I,J) ) THEN

12345678910>>...21