changed coments 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 02be26a29963e36e92278cf292d97f515893c994..c25ab373286c26d37e88ba5185e348a4dc8e9009 100644 (file)
--- a/TESTING/LIN/cchksy.f
+++ b/TESTING/LIN/cchksy.f
@@ -299,9 +299,9 @@
             DO 160 IUPLO = 1, 2
                UPLO = UPLOS( IUPLO )
 *
-               IF( IMAT.NE.NTYPES ) THEN
+*              Begin generate test matrix A.
 *
-*                 Begin generate the test matrix A.
+               IF( IMAT.NE.NTYPES ) THEN
 *
 *                 Set up parameters with CLATB4 for the matrix generator
 *                 based on the type of matrix to be generated.
@@ -392,18 +392,20 @@
                   ELSE
                      IZERO = 0
                   END IF
-*
-*                 End generate the test matrix A.
 *
                ELSE
 *
-*                 Use a special block diagonal matrix to test alternate
-*                 code for the 2 x 2 blocks.
+*                 For matrix kind IMAT = 11, generate special block
+*                 diagonal matrix to test alternate code
+*                 for the 2 x 2 blocks.
 *
                   CALL CLATSY( UPLO, N, A, LDA, ISEED )
 *
                END IF
 *
+*              End generate test matrix A.
+*
+*
 *              Do for each value of NB in NBVAL
 *
                DO 150 INB = 1, NNB

diff --git a/TESTING/LIN/cchksy_rook.f b/TESTING/LIN/cchksy_rook.f
index 51389ca4eba7898d5bf6591ee62926f6403c582b..42747186d9d37ee2e5dc120be6c4934b20be7287 100644 (file)
--- a/TESTING/LIN/cchksy_rook.f
+++ b/TESTING/LIN/cchksy_rook.f
@@ -226,8 +226,8 @@
       COMPLEX            BLOCK( 2, 2 ), CDUMMY( 1 )
 *     ..
 *     .. External Functions ..
-      REAL               SGET06, CLANGE, CLANSY
-      EXTERNAL           SGET06, CLANGE, CLANSY
+      REAL               CLANGE, CLANSY, SGET06
+      EXTERNAL           CLANGE, CLANSY, SGET06
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           ALAERH, ALAHD, ALASUM, CERRSY, CGEEVX, CGET04,
@@ -317,9 +317,9 @@
             DO 250 IUPLO = 1, 2
                UPLO = UPLOS( IUPLO )
 *
-               IF( IMAT.NE.NTYPES ) THEN
+*              Begin generate test matrix A.
 *
-*                 Begin generate the test matrix A.
+               IF( IMAT.NE.NTYPES ) THEN
 *
 *                 Set up parameters with CLATB4 for the matrix generator
 *                 based on the type of matrix to be generated.
@@ -412,18 +412,20 @@
                   ELSE
                      IZERO = 0
                   END IF
-*
-*                 End generate the test matrix A.
 *
                ELSE
 *
-*                 Use a special block diagonal matrix to test alternate
-*                 code for the 2 x 2 blocks.
+*                 For matrix kind IMAT = 11, generate special block
+*                 diagonal matrix to test alternate code
+*                 for the 2 x 2 blocks.
 *
                   CALL CLATSY( UPLO, N, A, LDA, ISEED )
 *
                END IF
 *
+*              End generate test matrix A.
+*
+*
 *              Do for each value of NB in NBVAL
 *
                DO 240 INB = 1, NNB

diff --git a/TESTING/LIN/zchksy.f b/TESTING/LIN/zchksy.f
index df4c6d38cbb2f99f0540d8716e46e754e1051664..8a829b681cd93c36c0c2a3e61b6d00e286cefb0d 100644 (file)
--- a/TESTING/LIN/zchksy.f
+++ b/TESTING/LIN/zchksy.f
@@ -298,6 +298,8 @@
 *
             DO 160 IUPLO = 1, 2
                UPLO = UPLOS( IUPLO )
+*
+*              Begin generate test matrix A.
 *
                IF( IMAT.NE.NTYPES ) THEN
 *
@@ -390,18 +392,20 @@
                   ELSE
                      IZERO = 0
                   END IF
-*
-*                 End generate the test matrix A.
 *
                ELSE
 *
-*                 Use a special block diagonal matrix to test alternate
-*                 code for the 2 x 2 blocks.
+*                 For matrix kind IMAT = 11, generate special block
+*                 diagonal matrix to test alternate code
+*                 for the 2 x 2 blocks.
 *
                   CALL ZLATSY( UPLO, N, A, LDA, ISEED )
 *
                END IF
 *
+*              End generate test matrix A.
+*
+*
 *              Do for each value of NB in NBVAL
 *
                DO 150 INB = 1, NNB

diff --git a/TESTING/LIN/zchksy_rook.f b/TESTING/LIN/zchksy_rook.f
index bb3078b864d6841cb6301dacc63f5afe4869b661..2d00154041500aad62a01519d41e404ba1407b34 100644 (file)
--- a/TESTING/LIN/zchksy_rook.f
+++ b/TESTING/LIN/zchksy_rook.f
@@ -317,9 +317,9 @@
             DO 250 IUPLO = 1, 2
                UPLO = UPLOS( IUPLO )
 *
-               IF( IMAT.NE.NTYPES ) THEN
+*              Begin generate test matrix A.
 *
-*                 Begin generate the test matrix A.
+               IF( IMAT.NE.NTYPES ) THEN
 *
 *                 Set up parameters with ZLATB4 for the matrix generator
 *                 based on the type of matrix to be generated.
@@ -412,18 +412,20 @@
                   ELSE
                      IZERO = 0
                   END IF
-*
-*                 End generate the test matrix A.
 *
                ELSE
 *
-*                 Use a special block diagonal matrix to test alternate
-*                 code for the 2 x 2 blocks.
+*                 For matrix kind IMAT = 11, generate special block
+*                 diagonal matrix to test alternate code
+*                 for the 2 x 2 blocks.
 *
                   CALL ZLATSY( UPLO, N, A, LDA, ISEED )
 *
                END IF
 *
+*              End generate test matrix A.
+*
+*
 *              Do for each value of NB in NBVAL
 *
                DO 240 INB = 1, NNB