fixed comments in (c,z)errsy.f

diff --git a/TESTING/LIN/cerrsy.f b/TESTING/LIN/cerrsy.f
index 1569635643f37fdd9a7d46df08fe7f270f506c64..5c0aa100e8ccc6bd0be1edf6f08307bff59fb28a 100644 (file)
--- a/TESTING/LIN/cerrsy.f
+++ b/TESTING/LIN/cerrsy.f
@@ -127,11 +127,11 @@
       ANRM = 1.0
       OK = .TRUE.
 *
-      IF( LSAMEN( 2, C2, 'SY' ) ) THEN
+*     Test error exits of the routines that use factorization
+*     of a symmetric indefinite matrix with patrial
+*     (Bunch-Kaufman) diagonal pivoting method.
 *
-*        Test error exits of the routines that use factorization
-*        of a symmetric indefinite matrix with patrial
-*        (Bunch-Kaufman) pivoting.
+      IF( LSAMEN( 2, C2, 'SY' ) ) THEN
 *
 *        CSYTRF
 *
@@ -252,11 +252,11 @@
          CALL CSYCON( 'U', 1, A, 1, IP, -ANRM, RCOND, W, INFO )
          CALL CHKXER( 'CSYCON', INFOT, NOUT, LERR, OK )
 *
-      ELSE IF( LSAMEN( 2, C2, 'SR' ) ) THEN
+*     Test error exits of the routines that use factorization
+*     of a symmetric indefinite matrix with "rook"
+*     (bounded Bunch-Kaufman) diagonal pivoting method.
 *
-*        Test error exits of the routines that use factorization
-*        of a symmetric indefinite matrix with rook
-*        (bounded Bunch-Kaufman) pivoting.
+      ELSE IF( LSAMEN( 2, C2, 'SR' ) ) THEN
 *
 *        CSYTRF_ROOK
 *
@@ -297,7 +297,7 @@
          CALL CSYTRI_ROOK( 'U', 2, A, 1, IP, W, INFO )
          CALL CHKXER( 'CSYTRI_ROOK', INFOT, NOUT, LERR, OK )
 *
-*        CSYTRS
+*        CSYTRS_ROOK
 *
          SRNAMT = 'CSYTRS_ROOK'
          INFOT = 1

diff --git a/TESTING/LIN/zerrsy.f b/TESTING/LIN/zerrsy.f
index 21670c08840922662dbe614f5b7f2d24a98ec297..115103937c1659a8b21abee54cee81bceb20ee53 100644 (file)
--- a/TESTING/LIN/zerrsy.f
+++ b/TESTING/LIN/zerrsy.f
@@ -129,11 +129,11 @@
       ANRM = 1.0D0
       OK = .TRUE.
 *
-      IF( LSAMEN( 2, C2, 'SY' ) ) THEN
+*     Test error exits of the routines that use factorization
+*     of a symmetric indefinite matrix with patrial
+*     (Bunch-Kaufman) diagonal pivoting method.
 *
-*        Test error exits of the routines that use factorization
-*        of a symmetric indefinite matrix with patrial
-*        (Bunch-Kaufman) pivoting.
+      IF( LSAMEN( 2, C2, 'SY' ) ) THEN
 *
 *        ZSYTRF
 *
@@ -254,11 +254,11 @@
          CALL ZSYCON( 'U', 1, A, 1, IP, -ANRM, RCOND, W, INFO )
          CALL CHKXER( 'ZSYCON', INFOT, NOUT, LERR, OK )
 *
-      ELSE IF( LSAMEN( 2, C2, 'SR' ) ) THEN
+*     Test error exits of the routines that use factorization
+*     of a symmetric indefinite matrix with "rook"
+*     (bounded Bunch-Kaufman) diagonal pivoting method.
 *
-*        Test error exits of the routines that use factorization
-*        of a symmetric indefinite matrix with rook
-*        (bounded Bunch-Kaufman) pivoting.
+      ELSE IF( LSAMEN( 2, C2, 'SR' ) ) THEN
 *
 *        ZSYTRF_ROOK
 *