/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | sdrvrf2.f | 88 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 D | zdrvrf2.f | 88 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 D | cdrvrf2.f | 88 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 D | ddrvrf2.f | 88 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 D | ddrvrf2.f | 90 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 D | sdrvrf2.f | 90 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 D | zdrvrf2.f | 88 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 D | cdrvrf2.f | 88 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 D | ddrvrf2.f | 88 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 D | sdrvrf2.f | 88 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 D | cdrvrf2.f | 88 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 D | sdrvrf2.f | 88 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 D | zdrvrf2.f | 88 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 D | ddrvrf2.f | 88 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 D | sdrvrf2.f | 88 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 D | cdrvrf2.f | 88 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 D | zdrvrf2.f | 88 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 D | ddrvrf2.f | 88 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 D | cdrvrf2.f | 90 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 D | ddrvrf2.f | 90 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 D | sdrvrf2.f | 90 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 D | zdrvrf2.f | 90 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 D | zdrvrf2.f | 90 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 D | sdrvrf2.f | 90 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 D | ddrvrf2.f | 90 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
|