diff options
-rw-r--r-- | TESTING/LIN/cerrvxx.f | 12 | ||||
-rw-r--r-- | TESTING/LIN/derrvxx.f | 10 | ||||
-rw-r--r-- | TESTING/LIN/serrvxx.f | 10 | ||||
-rw-r--r-- | TESTING/LIN/zerrvxx.f | 12 |
4 files changed, 22 insertions, 22 deletions
diff --git a/TESTING/LIN/cerrvxx.f b/TESTING/LIN/cerrvxx.f index f9617a8a..1ca1f6c7 100644 --- a/TESTING/LIN/cerrvxx.f +++ b/TESTING/LIN/cerrvxx.f @@ -83,7 +83,7 @@ INTEGER IP( NMAX ) REAL C( NMAX ), R( NMAX ), R1( NMAX ), R2( NMAX ), $ RF( NMAX ), RW( NMAX ), ERR_BNDS_N( NMAX, 3 ), - $ ERR_BNDS_C( NMAX, 3 ), PARAMS + $ ERR_BNDS_C( NMAX, 3 ), PARAMS( 1 ) COMPLEX A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ), $ W( 2*NMAX ), X( NMAX ) * .. @@ -207,7 +207,7 @@ * CGESVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'CGESVXX' INFOT = 1 CALL CGESVXX( '/', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, @@ -354,7 +354,7 @@ * CGBSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'CGBSVXX' INFOT = 1 CALL CGBSVXX( '/', 'N', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, @@ -559,7 +559,7 @@ * CPOSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'CPOSVXX' INFOT = 1 CALL CPOSVXX( '/', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, @@ -847,7 +847,7 @@ * CHESVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'CHESVXX' INFOT = 1 CALL CHESVXX( '/', 'U', 0, 0, A, 1, AF, 1, IP, EQ, C, B, 1, X, @@ -1009,7 +1009,7 @@ * CSYSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'CSYSVXX' INFOT = 1 EQ = 'N' diff --git a/TESTING/LIN/derrvxx.f b/TESTING/LIN/derrvxx.f index 786637b0..75680d1e 100644 --- a/TESTING/LIN/derrvxx.f +++ b/TESTING/LIN/derrvxx.f @@ -84,7 +84,7 @@ DOUBLE PRECISION A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ), $ C( NMAX ), R( NMAX ), R1( NMAX ), R2( NMAX ), $ W( 2*NMAX ), X( NMAX ), ERR_BNDS_N( NMAX, 3 ), - $ ERR_BNDS_C( NMAX, 3 ), PARAMS + $ ERR_BNDS_C( NMAX, 3 ), PARAMS( 1 ) * .. * .. External Functions .. LOGICAL LSAMEN @@ -205,7 +205,7 @@ * DGESVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'DGESVXX' INFOT = 1 CALL DGESVXX( '/', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, @@ -352,7 +352,7 @@ * DGBSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'DGBSVXX' INFOT = 1 CALL DGBSVXX( '/', 'N', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, @@ -557,7 +557,7 @@ * DPOSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'DPOSVXX' INFOT = 1 CALL DPOSVXX( '/', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, @@ -842,7 +842,7 @@ * DSYSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'DSYSVXX' INFOT = 1 EQ = 'N' diff --git a/TESTING/LIN/serrvxx.f b/TESTING/LIN/serrvxx.f index 2f04f2e8..2e67c67f 100644 --- a/TESTING/LIN/serrvxx.f +++ b/TESTING/LIN/serrvxx.f @@ -84,7 +84,7 @@ REAL A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ), $ C( NMAX ), R( NMAX ), R1( NMAX ), R2( NMAX ), $ W( 2*NMAX ), X( NMAX ), ERR_BNDS_N( NMAX, 3 ), - $ ERR_BNDS_C( NMAX, 3 ), PARAMS + $ ERR_BNDS_C( NMAX, 3 ), PARAMS( 1 ) * .. * .. External Functions .. LOGICAL LSAMEN @@ -205,7 +205,7 @@ * SGESVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'SGESVXX' INFOT = 1 CALL SGESVXX( '/', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, @@ -352,7 +352,7 @@ * SGBSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'SGBSVXX' INFOT = 1 CALL SGBSVXX( '/', 'N', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, @@ -557,7 +557,7 @@ * SPOSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'SPOSVXX' INFOT = 1 CALL SPOSVXX( '/', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, @@ -842,7 +842,7 @@ * SSYSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'SSYSVXX' INFOT = 1 EQ = 'N' diff --git a/TESTING/LIN/zerrvxx.f b/TESTING/LIN/zerrvxx.f index 090da4a9..4221665f 100644 --- a/TESTING/LIN/zerrvxx.f +++ b/TESTING/LIN/zerrvxx.f @@ -83,7 +83,7 @@ INTEGER IP( NMAX ) DOUBLE PRECISION C( NMAX ), R( NMAX ), R1( NMAX ), R2( NMAX ), $ RF( NMAX ), RW( NMAX ), ERR_BNDS_N( NMAX, 3 ), - $ ERR_BNDS_C( NMAX, 3 ), PARAMS + $ ERR_BNDS_C( NMAX, 3 ), PARAMS( 1 ) COMPLEX*16 A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ), $ W( 2*NMAX ), X( NMAX ) * .. @@ -209,7 +209,7 @@ * ZGESVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'ZGESVXX' INFOT = 1 CALL ZGESVXX( '/', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, @@ -367,7 +367,7 @@ * ZGBSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'ZGBSVXX' INFOT = 1 CALL ZGBSVXX( '/', 'N', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, @@ -572,7 +572,7 @@ * ZPOSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'ZPOSVXX' INFOT = 1 CALL ZPOSVXX( '/', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, @@ -860,7 +860,7 @@ * ZHESVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'ZHESVXX' INFOT = 1 CALL ZHESVXX( '/', 'U', 0, 0, A, 1, AF, 1, IP, EQ, C, B, 1, X, @@ -1022,7 +1022,7 @@ * ZSYSVXX * N_ERR_BNDS = 3 - NPARAMS = 0 + NPARAMS = 1 SRNAMT = 'ZSYSVXX' INFOT = 1 EQ = 'N' |