remove RCONDC in testing.

12 files changed, 36 insertions, 144 deletions

diff --git a/TESTING/LIN/cchkhe_aa.f b/TESTING/LIN/cchkhe_aa.f
index 9910deaa..ca23c0f2 100644
--- a/TESTING/LIN/cchkhe_aa.f
+++ b/TESTING/LIN/cchkhe_aa.f
@@ -205,13 +205,13 @@
       PARAMETER    ( NTESTS = 9 )
 *     ..
 *     .. Local Scalars ..
-      LOGICAL      TRFCON, ZEROT
+      LOGICAL      ZEROT
       CHARACTER    DIST, TYPE, UPLO, XTYPE
       CHARACTER*3  PATH, MATPATH
       INTEGER      I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS,
      $             IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE,
      $             N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT
-      REAL         ANORM, CNDNUM, RCONDC
+      REAL         ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER    UPLOS( 2 )
@@ -464,14 +464,6 @@
      $                            NOUT )
                   END IF
 *
-*                 Set the condition estimate flag if the INFO is not 0.
-*
-                  IF( INFO.NE.0 ) THEN
-                     TRFCON = .TRUE.
-                  ELSE
-                     TRFCON = .FALSE.
-                  END IF
-*
 *+    TEST 1
 *                 Reconstruct matrix from factors and compute residual.
 *
@@ -494,10 +486,9 @@
   110             CONTINUE
                   NRUN = NRUN + NT
 *
-*                 Do only the condition estimate if INFO is not 0.
+*                 Skip solver test if INFO is not 0.
 *
-                  IF( TRFCON ) THEN
-                     RCONDC = ZERO
+                  IF( INFO.NE.0 ) THEN
                      GO TO 140
                   END IF
 *
@@ -506,7 +497,7 @@
                   DO 130 IRHS = 1, NNS
                      NRHS = NSVAL( IRHS )
 *
-*+    TEST 3 (Using TRS)
+*+    TEST 2 (Using TRS)
 *                 Solve and compute residual for  A * X = B.
 *
 *                    Choose a set of NRHS random solution vectors
diff --git a/TESTING/LIN/cchksy_aa.f b/TESTING/LIN/cchksy_aa.f
index b7cd47f6..534be92f 100644
--- a/TESTING/LIN/cchksy_aa.f
+++ b/TESTING/LIN/cchksy_aa.f
@@ -205,13 +205,13 @@
       PARAMETER          ( NTESTS = 9 )
 *     ..
 *     .. Local Scalars ..
-      LOGICAL            TRFCON, ZEROT
+      LOGICAL            ZEROT
       CHARACTER          DIST, TYPE, UPLO, XTYPE
       CHARACTER*3        PATH, MATPATH
       INTEGER            I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS,
      $                   IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE,
      $                   N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT
-      REAL               ANORM, CNDNUM, RCONDC
+      REAL               ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER          UPLOS( 2 )
@@ -465,14 +465,6 @@
      $                            NOUT )
                   END IF
 *
-*                 Set the condition estimate flag if the INFO is not 0.
-*
-                  IF( INFO.NE.0 ) THEN
-                     TRFCON = .TRUE.
-                  ELSE
-                     TRFCON = .FALSE.
-                  END IF
-*
 *+    TEST 1
 *                 Reconstruct matrix from factors and compute residual.
 *
@@ -495,10 +487,9 @@
   110             CONTINUE
                   NRUN = NRUN + NT
 *
-*                 Do only the condition estimate if INFO is not 0.
+*                 Skip solver test if INFO is not 0.
 *
-                  IF( TRFCON ) THEN
-                     RCONDC = ZERO
+                  IF( INFO.NE.0 ) THEN
                      GO TO 140
                   END IF
 *
@@ -507,7 +498,7 @@
                   DO 130 IRHS = 1, NNS
                      NRHS = NSVAL( IRHS )
 *
-*+    TEST 3 ( Using TRS)
+*+    TEST 2 (Using TRS)
 *                 Solve and compute residual for  A * X = B.
 *
 *                    Choose a set of NRHS random solution vectors
diff --git a/TESTING/LIN/cdrvhe_aa.f b/TESTING/LIN/cdrvhe_aa.f
index c21a8883..4e4f73bb 100644
--- a/TESTING/LIN/cdrvhe_aa.f
+++ b/TESTING/LIN/cdrvhe_aa.f
@@ -188,7 +188,7 @@
       INTEGER            I, I1, I2, IFACT, IMAT, IN, INFO, IOFF, IUPLO,
      $                   IZERO, J, K, KL, KU, LDA, LWORK, MODE, N,
      $                   NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT
-      REAL               ANORM, CNDNUM, RCONDC
+      REAL               ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER          FACTS( NFACT ), UPLOS( 2 )
@@ -385,15 +385,6 @@
 *
                   FACT = FACTS( IFACT )
 *
-*                 Compute the condition number for comparison with
-*                 the value returned by CHESVX.
-*
-                  IF( ZEROT ) THEN
-                     IF( IFACT.EQ.1 )
-     $                  GO TO 150
-                     RCONDC = ZERO
-                  END IF
-*
 *                 Form an exact solution and set the right hand side.
 *
                   SRNAMT = 'CLARHS'
diff --git a/TESTING/LIN/cdrvsy_aa.f b/TESTING/LIN/cdrvsy_aa.f
index 7ace06ef..69a4e556 100644
--- a/TESTING/LIN/cdrvsy_aa.f
+++ b/TESTING/LIN/cdrvsy_aa.f
@@ -192,7 +192,7 @@
       INTEGER            I, I1, I2, IFACT, IMAT, IN, INFO, IOFF, IUPLO,
      $                   IZERO, J, K, KL, KU, LDA, LWORK, MODE, N,
      $                   NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT
-      REAL               ANORM, CNDNUM, RCONDC
+      REAL               ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER          FACTS( NFACT ), UPLOS( 2 )
@@ -380,15 +380,6 @@
 *
                   FACT = FACTS( IFACT )
 *
-*                 Compute the condition number for comparison with
-*                 the value returned by CSYSVX.
-*
-                  IF( ZEROT ) THEN
-                     IF( IFACT.EQ.1 )
-     $                  GO TO 150
-                     RCONDC = ZERO
-                  END IF
-*
 *                 Form an exact solution and set the right hand side.
 *
                   SRNAMT = 'CLARHS'
diff --git a/TESTING/LIN/dchksy_aa.f b/TESTING/LIN/dchksy_aa.f
index a5c0594c..a01f4fa0 100644
--- a/TESTING/LIN/dchksy_aa.f
+++ b/TESTING/LIN/dchksy_aa.f
@@ -202,13 +202,13 @@
       PARAMETER          ( NTESTS = 9 )
 *     ..
 *     .. Local Scalars ..
-      LOGICAL            TRFCON, ZEROT
+      LOGICAL            ZEROT
       CHARACTER          DIST, TYPE, UPLO, XTYPE
       CHARACTER*3        PATH, MATPATH
       INTEGER            I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS,
      $                   IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE,
      $                   N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT
-      DOUBLE PRECISION   ANORM, CNDNUM, RCONDC
+      DOUBLE PRECISION   ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER          UPLOS( 2 )
@@ -462,14 +462,6 @@
      $                            NOUT )
                   END IF
 *
-*                 Set the condition estimate flag if the INFO is not 0.
-*
-                  IF( INFO.NE.0 ) THEN
-                     TRFCON = .TRUE.
-                  ELSE
-                     TRFCON = .FALSE.
-                  END IF
-*
 *+    TEST 1
 *                 Reconstruct matrix from factors and compute residual.
 *
@@ -492,10 +484,9 @@
   110             CONTINUE
                   NRUN = NRUN + NT
 *
-*                 Do only the condition estimate if INFO is not 0.
+*                 Skip solver test if INFO is not 0.
 *
-                  IF( TRFCON ) THEN
-                     RCONDC = ZERO
+                  IF( INFO.NE.0 ) THEN
                      GO TO 140
                   END IF
 *
@@ -504,7 +495,7 @@
                   DO 130 IRHS = 1, NNS
                      NRHS = NSVAL( IRHS )
 *
-*+    TEST 3 ( Using TRS)
+*+    TEST 2 (Using TRS)
 *                 Solve and compute residual for  A * X = B.
 *
 *                    Choose a set of NRHS random solution vectors
diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f
index 1b350fcf..25a58292 100644
--- a/TESTING/LIN/ddrvsy_aa.f
+++ b/TESTING/LIN/ddrvsy_aa.f
@@ -188,7 +188,7 @@
       INTEGER            I, I1, I2, IFACT, IMAT, IN, INFO, IOFF, IUPLO,
      $                   IZERO, J, K, KL, KU, LDA, LWORK, MODE, N,
      $                   NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT
-      DOUBLE PRECISION   ANORM, CNDNUM, RCONDC
+      DOUBLE PRECISION   ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER          FACTS( NFACT ), UPLOS( 2 )
@@ -376,15 +376,6 @@
 *
                   FACT = FACTS( IFACT )
 *
-*                 Compute the condition number for comparison with
-*                 the value returned by DSYSVX.
-*
-                  IF( ZEROT ) THEN
-                     IF( IFACT.EQ.1 )
-     $                  GO TO 150
-                     RCONDC = ZERO
-                  END IF
-*
 *                 Form an exact solution and set the right hand side.
 *
                   SRNAMT = 'DLARHS'
diff --git a/TESTING/LIN/schksy_aa.f b/TESTING/LIN/schksy_aa.f
index 128664b2..ee00fdb0 100644
--- a/TESTING/LIN/schksy_aa.f
+++ b/TESTING/LIN/schksy_aa.f
@@ -202,13 +202,13 @@
       PARAMETER    ( NTESTS = 9 )
 *     ..
 *     .. Local Scalars ..
-      LOGICAL      TRFCON, ZEROT
+      LOGICAL      ZEROT
       CHARACTER    DIST, TYPE, UPLO, XTYPE
       CHARACTER*3  PATH, MATPATH
       INTEGER      I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS,
      $             IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE,
      $             N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT
-      REAL         ANORM, CNDNUM, RCONDC
+      REAL         ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER    UPLOS( 2 )
@@ -463,14 +463,6 @@
      $                            NOUT )
                   END IF
 *
-*                 Set the condition estimate flag if the INFO is not 0.
-*
-                  IF( INFO.NE.0 ) THEN
-                     TRFCON = .TRUE.
-                  ELSE
-                     TRFCON = .FALSE.
-                  END IF
-*
 *+    TEST 1
 *                 Reconstruct matrix from factors and compute residual.
 *
@@ -493,10 +485,9 @@
   110             CONTINUE
                   NRUN = NRUN + NT
 *
-*                 Do only the condition estimate if INFO is not 0.
+*                 Skip solver test if INFO is not 0.
 *
-                  IF( TRFCON ) THEN
-                     RCONDC = ZERO
+                  IF( INFO.NE.0 ) THEN
                      GO TO 140
                   END IF
 *
@@ -505,7 +496,7 @@
                   DO 130 IRHS = 1, NNS
                      NRHS = NSVAL( IRHS )
 *
-*+    TEST 3 ( Using TRS)
+*+    TEST 2 (Using TRS)
 *                 Solve and compute residual for  A * X = B.
 *
 *                    Choose a set of NRHS random solution vectors
diff --git a/TESTING/LIN/sdrvsy_aa.f b/TESTING/LIN/sdrvsy_aa.f
index 8332df1f..da5cf8a2 100644
--- a/TESTING/LIN/sdrvsy_aa.f
+++ b/TESTING/LIN/sdrvsy_aa.f
@@ -186,7 +186,7 @@
       INTEGER            I, I1, I2, IFACT, IMAT, IN, INFO, IOFF, IUPLO,
      $                   IZERO, J, K, KL, KU, LDA, LWORK, MODE, N,
      $                   NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT
-      REAL               ANORM, CNDNUM, RCONDC
+      REAL               ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER          FACTS( NFACT ), UPLOS( 2 )
@@ -374,15 +374,6 @@
 *
                   FACT = FACTS( IFACT )
 *
-*                 Compute the condition number for comparison with
-*                 the value returned by SSYSVX.
-*
-                  IF( ZEROT ) THEN
-                     IF( IFACT.EQ.1 )
-     $                  GO TO 150
-                     RCONDC = ZERO
-                  END IF
-*
 *                 Form an exact solution and set the right hand side.
 *
                   SRNAMT = 'SLARHS'
diff --git a/TESTING/LIN/zchkhe_aa.f b/TESTING/LIN/zchkhe_aa.f
index 0a7e104e..5cc4b9ef 100644
--- a/TESTING/LIN/zchkhe_aa.f
+++ b/TESTING/LIN/zchkhe_aa.f
@@ -205,13 +205,13 @@
       PARAMETER          ( NTESTS = 9 )
 *     ..
 *     .. Local Scalars ..
-      LOGICAL            TRFCON, ZEROT
+      LOGICAL            ZEROT
       CHARACTER          DIST, TYPE, UPLO, XTYPE
       CHARACTER*3        PATH, MATPATH
       INTEGER            I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS,
      $                   IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE,
      $                   N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT
-      DOUBLE PRECISION   ANORM, CNDNUM, RCONDC
+      DOUBLE PRECISION   ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER          UPLOS( 2 )
@@ -463,14 +463,6 @@
      $                            NOUT )
                   END IF
 *
-*                 Set the condition estimate flag if the INFO is not 0.
-*
-                  IF( INFO.NE.0 ) THEN
-                     TRFCON = .TRUE.
-                  ELSE
-                     TRFCON = .FALSE.
-                  END IF
-*
 *+    TEST 1
 *                 Reconstruct matrix from factors and compute residual.
 *
@@ -493,10 +485,9 @@
   110             CONTINUE
                   NRUN = NRUN + NT
 *
-*                 Do only the condition estimate if INFO is not 0.
+*                 Skip solver test if INFO is not 0.
 *
-                  IF( TRFCON ) THEN
-                     RCONDC = ZERO
+                  IF( INFO.NE.0 ) THEN
                      GO TO 140
                   END IF
 *
@@ -505,7 +496,7 @@
                   DO 130 IRHS = 1, NNS
                      NRHS = NSVAL( IRHS )
 *
-*+    TEST 3 (Using TRS)
+*+    TEST 2 (Using TRS)
 *                 Solve and compute residual for  A * X = B.
 *
 *                    Choose a set of NRHS random solution vectors
diff --git a/TESTING/LIN/zchksy_aa.f b/TESTING/LIN/zchksy_aa.f
index d231746f..4c2cd041 100644
--- a/TESTING/LIN/zchksy_aa.f
+++ b/TESTING/LIN/zchksy_aa.f
@@ -205,13 +205,13 @@
       PARAMETER          ( NTESTS = 9 )
 *     ..
 *     .. Local Scalars ..
-      LOGICAL            TRFCON, ZEROT
+      LOGICAL            ZEROT
       CHARACTER          DIST, TYPE, UPLO, XTYPE
       CHARACTER*3        PATH, MATPATH
       INTEGER            I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS,
      $                   IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE,
      $                   N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT
-      DOUBLE PRECISION   ANORM, CNDNUM, RCONDC
+      DOUBLE PRECISION   ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER          UPLOS( 2 )
@@ -465,14 +465,6 @@
      $                            NOUT )
                   END IF
 *
-*                 Set the condition estimate flag if the INFO is not 0.
-*
-                  IF( INFO.NE.0 ) THEN
-                     TRFCON = .TRUE.
-                  ELSE
-                     TRFCON = .FALSE.
-                  END IF
-*
 *+    TEST 1
 *                 Reconstruct matrix from factors and compute residual.
 *
@@ -495,10 +487,9 @@
   110             CONTINUE
                   NRUN = NRUN + NT
 *
-*                 Do only the condition estimate if INFO is not 0.
+*                 Skip solver test if INFO is not 0.
 *
-                  IF( TRFCON ) THEN
-                     RCONDC = ZERO
+                  IF( INFO.NE.0 ) THEN
                      GO TO 140
                   END IF
 *
@@ -507,7 +498,7 @@
                   DO 130 IRHS = 1, NNS
                      NRHS = NSVAL( IRHS )
 *
-*+    TEST 3 ( Using TRS)
+*+    TEST 2 (Using TRS)
 *                 Solve and compute residual for  A * X = B.
 *
 *                    Choose a set of NRHS random solution vectors
diff --git a/TESTING/LIN/zdrvhe_aa.f b/TESTING/LIN/zdrvhe_aa.f
index 129ae621..3b59395a 100644
--- a/TESTING/LIN/zdrvhe_aa.f
+++ b/TESTING/LIN/zdrvhe_aa.f
@@ -188,7 +188,7 @@
       INTEGER            I, I1, I2, IFACT, IMAT, IN, INFO, IOFF, IUPLO,
      $                   IZERO, J, K, KL, KU, LDA, LWORK, MODE, N,
      $                   NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT
-      DOUBLE PRECISION   ANORM, CNDNUM, RCONDC
+      DOUBLE PRECISION   ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER          FACTS( NFACT ), UPLOS( 2 )
@@ -383,15 +383,6 @@
 *
                   FACT = FACTS( IFACT )
 *
-*                 Compute the condition number for comparison with
-*                 the value returned by ZHESVX.
-*
-                  IF( ZEROT ) THEN
-                     IF( IFACT.EQ.1 )
-     $                  GO TO 150
-                     RCONDC = ZERO
-                  END IF
-*
 *                 Form an exact solution and set the right hand side.
 *
                   SRNAMT = 'ZLARHS'
diff --git a/TESTING/LIN/zdrvsy_aa.f b/TESTING/LIN/zdrvsy_aa.f
index 322fd3ba..d0a9711b 100644
--- a/TESTING/LIN/zdrvsy_aa.f
+++ b/TESTING/LIN/zdrvsy_aa.f
@@ -192,7 +192,7 @@
       INTEGER            I, I1, I2, IFACT, IMAT, IN, INFO, IOFF, IUPLO,
      $                   IZERO, J, K, KL, KU, LDA, LWORK, MODE, N,
      $                   NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT
-      DOUBLE PRECISION   ANORM, CNDNUM, RCONDC
+      DOUBLE PRECISION   ANORM, CNDNUM
 *     ..
 *     .. Local Arrays ..
       CHARACTER          FACTS( NFACT ), UPLOS( 2 )
@@ -380,15 +380,6 @@
 *
                   FACT = FACTS( IFACT )
 *
-*                 Compute the condition number for comparison with
-*                 the value returned by ZSYSVX.
-*
-                  IF( ZEROT ) THEN
-                     IF( IFACT.EQ.1 )
-     $                  GO TO 150
-                     RCONDC = ZERO
-                  END IF
-*
 *                 Form an exact solution and set the right hand side.
 *
                   SRNAMT = 'ZLARHS'