changed comments in LAPACK testing routines (c,z)chksy.f and (c,z)chksy.f

diff --git a/TESTING/LIN/cchksy.f b/TESTING/LIN/cchksy.f
index c25ab373286c26d37e88ba5185e348a4dc8e9009..9016114ab449547bcf5cf4f34fecb4d654de8f1a 100644 (file)
--- a/TESTING/LIN/cchksy.f
+++ b/TESTING/LIN/cchksy.f
@@ -321,6 +321,9 @@
                   IF( INFO.NE.0 ) THEN
                      CALL ALAERH( PATH, 'CLATMS', INFO, 0, UPLO, N, N,
      $                            -1, -1, -1, IMAT, NFAIL, NERRS, NOUT )
+*
+*                    Skip all tests for this generated matrix
+*
                      GO TO 160
                   END IF
 *
@@ -524,6 +527,8 @@
                      RCONDC = ZERO
                      GO TO 140
                   END IF
+*
+*                 Do for each value of NRHS in NSVAL.
 *
                   DO 130 IRHS = 1, NNS
                      NRHS = NSVAL( IRHS )
@@ -603,7 +608,7 @@
      $                            RWORK( NRHS+1 ), WORK,
      $                            RWORK( 2*NRHS+1 ), INFO )
 *
-*                 Check error code from CSYRFS.
+*                    Check error code from CSYRFS.
 *
                      IF( INFO.NE.0 )
      $                  CALL ALAERH( PATH, 'CSYRFS', INFO, 0, UPLO, N,
@@ -629,6 +634,9 @@
                         END IF
   120                CONTINUE
                      NRUN = NRUN + 6
+*
+*                 End do for each value of NRHS in NSVAL.
+*
   130             CONTINUE
 *
 *+    TEST 9
@@ -646,7 +654,7 @@
      $               CALL ALAERH( PATH, 'CSYCON', INFO, 0, UPLO, N, N,
      $                            -1, -1, -1, IMAT, NFAIL, NERRS, NOUT )
 *
-*                 Compute the test ratio to compare to values of RCOND
+*                 Compute the test ratio to compare values of RCOND
 *
                   RESULT( 9 ) = SGET06( RCOND, RCONDC )
 *

diff --git a/TESTING/LIN/cchksy_rook.f b/TESTING/LIN/cchksy_rook.f
index 42747186d9d37ee2e5dc120be6c4934b20be7287..a7b4c382833d40167896bb91f56bc06d20e55410 100644 (file)
--- a/TESTING/LIN/cchksy_rook.f
+++ b/TESTING/LIN/cchksy_rook.f
@@ -384,11 +384,11 @@
    50                      CONTINUE
                         END IF
                      ELSE
-                        IOFF = 0
                         IF( IUPLO.EQ.1 ) THEN
 *
 *                          Set the first IZERO rows and columns to zero.
 *
+                           IOFF = 0
                            DO 70 J = 1, N
                               I2 = MIN( J, IZERO )
                               DO 60 I = 1, I2
@@ -400,6 +400,7 @@
 *
 *                          Set the last IZERO rows and columns to zero.
 *
+                           IOFF = 0
                            DO 90 J = 1, N
                               I1 = MAX( J, IZERO )
                               DO 80 I = I1, N
@@ -733,7 +734,7 @@
                         NFAIL = NFAIL + 1
                      END IF
   200             CONTINUE
-                  NRUN = NRUN + NT
+                  NRUN = NRUN + 2
 *
 *                 Skip the other tests if this is not the first block
 *                 size.
@@ -747,13 +748,12 @@
                      RCONDC = ZERO
                      GO TO 230
                   END IF
+*
+*                 Do for each value of NRHS in NSVAL.
 *
                   DO 220 IRHS = 1, NNS
                      NRHS = NSVAL( IRHS )
 *
-*                    Begin loop over NRHS values
-*
-*
 *+    TEST 5 ( Using TRS_ROOK)
 *                 Solve and compute residual for  A * X = B.
 *
@@ -804,7 +804,7 @@
   210                CONTINUE
                      NRUN = NRUN + 2
 *
-*                    End loop over NRHS values
+*                 End do for each value of NRHS in NSVAL.
 *
   220             CONTINUE
 *
@@ -824,7 +824,7 @@
      $                             UPLO, N, N, -1, -1, -1, IMAT,
      $                             NFAIL, NERRS, NOUT )
 *
-*                 Compute the test ratio to compare to values of RCOND
+*                 Compute the test ratio to compare values of RCOND
 *
                   RESULT( 7 ) = SGET06( RCOND, RCONDC )
 *

diff --git a/TESTING/LIN/zchksy.f b/TESTING/LIN/zchksy.f
index 8a829b681cd93c36c0c2a3e61b6d00e286cefb0d..695944be66ea929b9ea69441451b44a3c5067f19 100644 (file)
--- a/TESTING/LIN/zchksy.f
+++ b/TESTING/LIN/zchksy.f
@@ -303,8 +303,8 @@
 *
                IF( IMAT.NE.NTYPES ) THEN
 *
-*                 Set up parameters with ZLATB4 and generate a test
-*                 matrix with ZLATMS.
+*                 Set up parameters with ZLATB4 for the matrix generator
+*                 based on the type of matrix to be generated.
 *
                   CALL ZLATB4( PATH, IMAT, N, N, TYPE, KL, KU, ANORM,
      $                         MODE, CNDNUM, DIST )
@@ -321,6 +321,9 @@
                   IF( INFO.NE.0 ) THEN
                      CALL ALAERH( PATH, 'ZLATMS', INFO, 0, UPLO, N, N,
      $                            -1, -1, -1, IMAT, NFAIL, NERRS, NOUT )
+*
+*                    Skip all tests for this generated matrix
+*
                      GO TO 160
                   END IF
 *
@@ -524,6 +527,8 @@
                      RCONDC = ZERO
                      GO TO 140
                   END IF
+*
+*                 Do for each value of NRHS in NSVAL.
 *
                   DO 130 IRHS = 1, NNS
                      NRHS = NSVAL( IRHS )
@@ -630,6 +635,9 @@
                         END IF
   120                CONTINUE
                      NRUN = NRUN + 6
+*
+*                 End do for each value of NRHS in NSVAL.
+*
   130             CONTINUE
 *
 *+    TEST 9
@@ -647,7 +655,7 @@
      $               CALL ALAERH( PATH, 'ZSYCON', INFO, 0, UPLO, N, N,
      $                            -1, -1, -1, IMAT, NFAIL, NERRS, NOUT )
 *
-*                 Compute the test ratio to compare to values of RCOND
+*                 Compute the test ratio to compare values of RCOND
 *
                   RESULT( 9 ) = DGET06( RCOND, RCONDC )
 *

diff --git a/TESTING/LIN/zchksy_rook.f b/TESTING/LIN/zchksy_rook.f
index 2d00154041500aad62a01519d41e404ba1407b34..aae562f00e07abfab1e56f03c691ae59d0919efa 100644 (file)
--- a/TESTING/LIN/zchksy_rook.f
+++ b/TESTING/LIN/zchksy_rook.f
@@ -384,11 +384,11 @@
    50                      CONTINUE
                         END IF
                      ELSE
-                        IOFF = 0
                         IF( IUPLO.EQ.1 ) THEN
 *
 *                          Set the first IZERO rows and columns to zero.
 *
+                           IOFF = 0
                            DO 70 J = 1, N
                               I2 = MIN( J, IZERO )
                               DO 60 I = 1, I2
@@ -400,6 +400,7 @@
 *
 *                          Set the last IZERO rows and columns to zero.
 *
+                           IOFF = 0
                            DO 90 J = 1, N
                               I1 = MAX( J, IZERO )
                               DO 80 I = I1, N
@@ -733,7 +734,7 @@
                         NFAIL = NFAIL + 1
                      END IF
   200             CONTINUE
-                  NRUN = NRUN + NT
+                  NRUN = NRUN + 2
 *
 *                 Skip the other tests if this is not the first block
 *                 size.
@@ -747,13 +748,12 @@
                      RCONDC = ZERO
                      GO TO 230
                   END IF
+*
+*                 Do for each value of NRHS in NSVAL.
 *
                   DO 220 IRHS = 1, NNS
                      NRHS = NSVAL( IRHS )
 *
-*                    Begin loop over NRHS values
-*
-*
 *+    TEST 5 ( Using TRS_ROOK)
 *                 Solve and compute residual for  A * X = B.
 *
@@ -804,7 +804,7 @@
   210                CONTINUE
                      NRUN = NRUN + 2
 *
-*                    End loop over NRHS values
+*                 End do for each value of NRHS in NSVAL.
 *
   220             CONTINUE
 *
@@ -824,7 +824,7 @@
      $                             UPLO, N, N, -1, -1, -1, IMAT,
      $                             NFAIL, NERRS, NOUT )
 *
-*                 Compute the test ratio to compare to values of RCOND
+*                 Compute the test ratio to compare values of RCOND
 *
                   RESULT( 7 ) = DGET06( RCOND, RCONDC )
 *