summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--TESTING/LIN/cerrvxx.f12
-rw-r--r--TESTING/LIN/derrvxx.f10
-rw-r--r--TESTING/LIN/serrvxx.f10
-rw-r--r--TESTING/LIN/zerrvxx.f12
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'