added rook pivoting routines to the tests that check error exits for symmetric indefi...

diff --git a/TESTING/LIN/cerrsy.f b/TESTING/LIN/cerrsy.f
index 9bf46ec..8985a15 100644 (file)
--- a/TESTING/LIN/cerrsy.f
+++ b/TESTING/LIN/cerrsy.f
@@ -89,7 +89,8 @@
 *     .. External Subroutines ..
       EXTERNAL           ALAESM, CHKXER, CSPCON, CSPRFS, CSPTRF, CSPTRI,
      $                   CSPTRS, CSYCON, CSYRFS, CSYTF2, CSYTRF, CSYTRI,
-     $                   CSYTRI2, CSYTRS
+     $                   CSYTRI2, CSYTRS, CSYCON_ROOK, CSYTF2_ROOK,
+     $                   CSYTRF_ROOK, CSYTRI_ROOK, CSYTRS_ROOK
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -126,11 +127,12 @@
       ANRM = 1.0
       OK = .TRUE.
 *
-*     Test error exits of the routines that use the diagonal pivoting
-*     factorization of a symmetric indefinite matrix.
-*
       IF( LSAMEN( 2, C2, 'SY' ) ) THEN
 *
+*        Test error exits of the routines that use factorization
+*        of a symmetric indefinite matrix with patrial
+*        (Bunch-Kaufman) pivoting.
+*
 *        CSYTRF
 *
          SRNAMT = 'CSYTRF'
@@ -250,11 +252,92 @@
          CALL CSYCON( 'U', 1, A, 1, IP, -ANRM, RCOND, W, INFO )
          CALL CHKXER( 'CSYCON', INFOT, NOUT, LERR, OK )
 *
-*     Test error exits of the routines that use the diagonal pivoting
-*     factorization of a symmetric indefinite packed matrix.
+      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) pivoting.
+*
+*        CSYTRF_ROOK
+*
+         SRNAMT = 'CSYTRF_ROOK'
+         INFOT = 1
+         CALL CSYTRF_ROOK( '/', 0, A, 1, IP, W, 1, INFO )
+         CALL CHKXER( 'CSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL CSYTRF_ROOK( 'U', -1, A, 1, IP, W, 1, INFO )
+         CALL CHKXER( 'CSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL CSYTRF_ROOK( 'U', 2, A, 1, IP, W, 4, INFO )
+         CALL CHKXER( 'CSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        CSYTF2_ROOK
+*
+         SRNAMT = 'CSYTF2_ROOK'
+         INFOT = 1
+         CALL CSYTF2_ROOK( '/', 0, A, 1, IP, INFO )
+         CALL CHKXER( 'CSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL CSYTF2_ROOK( 'U', -1, A, 1, IP, INFO )
+         CALL CHKXER( 'CSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL CSYTF2_ROOK( 'U', 2, A, 1, IP, INFO )
+         CALL CHKXER( 'CSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        CSYTRI_ROOK
+*
+         SRNAMT = 'CSYTRI_ROOK'
+         INFOT = 1
+         CALL CSYTRI_ROOK( '/', 0, A, 1, IP, W, INFO )
+         CALL CHKXER( 'CSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL CSYTRI_ROOK( 'U', -1, A, 1, IP, W, INFO )
+         CALL CHKXER( 'CSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL CSYTRI_ROOK( 'U', 2, A, 1, IP, W, INFO )
+         CALL CHKXER( 'CSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        CSYTRS
+*
+         SRNAMT = 'CSYTRS_ROOK'
+         INFOT = 1
+         CALL CSYTRS_ROOK( '/', 0, 0, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'CSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL CSYTRS_ROOK( 'U', -1, 0, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'CSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 3
+         CALL CSYTRS_ROOK( 'U', 0, -1, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'CSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 5
+         CALL CSYTRS_ROOK( 'U', 2, 1, A, 1, IP, B, 2, INFO )
+         CALL CHKXER( 'CSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 8
+         CALL CSYTRS_ROOK( 'U', 2, 1, A, 2, IP, B, 1, INFO )
+         CALL CHKXER( 'CSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        CSYCON_ROOK
+*
+         SRNAMT = 'CSYCON_ROOK'
+         INFOT = 1
+         CALL CSYCON_ROOK( '/', 0, A, 1, IP, ANRM, RCOND, W, INFO )
+         CALL CHKXER( 'CSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL CSYCON_ROOK( 'U', -1, A, 1, IP, ANRM, RCOND, W, INFO )
+         CALL CHKXER( 'CSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL CSYCON_ROOK( 'U', 2, A, 1, IP, ANRM, RCOND, W, INFO )
+         CALL CHKXER( 'CSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 6
+         CALL CSYCON_ROOK( 'U', 1, A, 1, IP, -ANRM, RCOND, W, INFO )
+         CALL CHKXER( 'CSYCON_ROOK', INFOT, NOUT, LERR, OK )
 *
       ELSE IF( LSAMEN( 2, C2, 'SP' ) ) THEN
 *
+*        Test error exits of the routines that use factorization
+*        of a symmetric indefinite packed matrix with patrial
+*        (Bunch-Kaufman) pivoting.
+*
 *        CSPTRF
 *
          SRNAMT = 'CSPTRF'

diff --git a/TESTING/LIN/derrsy.f b/TESTING/LIN/derrsy.f
index 1bb6fa8..fd5a8e7 100644 (file)
--- a/TESTING/LIN/derrsy.f
+++ b/TESTING/LIN/derrsy.f
@@ -88,7 +88,8 @@
 *     .. External Subroutines ..
       EXTERNAL           ALAESM, CHKXER, DSPCON, DSPRFS, DSPTRF, DSPTRI,
      $                   DSPTRS, DSYCON, DSYRFS, DSYTF2, DSYTRF, DSYTRI,
-     $                   DSYTRI2, DSYTRS
+     $                   DSYTRI2, DSYTRS, DSYCON_ROOK, DSYTF2_ROOK,
+     $                   DSYTRF_ROOK, DSYTRI_ROOK, DSYTRS_ROOK
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -129,8 +130,9 @@
 *
       IF( LSAMEN( 2, C2, 'SY' ) ) THEN
 *
-*        Test error exits of the routines that use the Bunch-Kaufman
-*        factorization of a symmetric indefinite matrix.
+*        Test error exits of the routines that use factorization
+*        of a symmetric indefinite matrix with patrial
+*        (Bunch-Kaufman) pivoting.
 *
 *        DSYTRF
 *
@@ -251,10 +253,91 @@
          CALL DSYCON( 'U', 1, A, 1, IP, -1.0D0, RCOND, W, IW, INFO )
          CALL CHKXER( 'DSYCON', 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) pivoting.
+*
+*        DSYTRF_ROOK
+*
+         SRNAMT = 'DSYTRF_ROOK'
+         INFOT = 1
+         CALL DSYTRF_ROOK( '/', 0, A, 1, IP, W, 1, INFO )
+         CALL CHKXER( 'DSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL DSYTRF_ROOK( 'U', -1, A, 1, IP, W, 1, INFO )
+         CALL CHKXER( 'DSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL DSYTRF_ROOK( 'U', 2, A, 1, IP, W, 4, INFO )
+         CALL CHKXER( 'DSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        DSYTF2_ROOK
+*
+         SRNAMT = 'DSYTF2_ROOK'
+         INFOT = 1
+         CALL DSYTF2_ROOK( '/', 0, A, 1, IP, INFO )
+         CALL CHKXER( 'DSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL DSYTF2_ROOK( 'U', -1, A, 1, IP, INFO )
+         CALL CHKXER( 'DSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL DSYTF2_ROOK( 'U', 2, A, 1, IP, INFO )
+         CALL CHKXER( 'DSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        DSYTRI_ROOK
+*
+         SRNAMT = 'DSYTRI_ROOK'
+         INFOT = 1
+         CALL DSYTRI_ROOK( '/', 0, A, 1, IP, W, INFO )
+         CALL CHKXER( 'DSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL DSYTRI_ROOK( 'U', -1, A, 1, IP, W, INFO )
+         CALL CHKXER( 'DSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL DSYTRI_ROOK( 'U', 2, A, 1, IP, W, INFO )
+         CALL CHKXER( 'DSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        DSYTRS_ROOK
+*
+         SRNAMT = 'DSYTRS_ROOK'
+         INFOT = 1
+         CALL DSYTRS_ROOK( '/', 0, 0, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'DSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL DSYTRS_ROOK( 'U', -1, 0, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'DSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 3
+         CALL DSYTRS_ROOK( 'U', 0, -1, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'DSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 5
+         CALL DSYTRS_ROOK( 'U', 2, 1, A, 1, IP, B, 2, INFO )
+         CALL CHKXER( 'DSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 8
+         CALL DSYTRS_ROOK( 'U', 2, 1, A, 2, IP, B, 1, INFO )
+         CALL CHKXER( 'DSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        DSYCON_ROOK
+*
+         SRNAMT = 'DSYCON_ROOK'
+         INFOT = 1
+         CALL DSYCON_ROOK( '/', 0, A, 1, IP, ANRM, RCOND, W, IW, INFO )
+         CALL CHKXER( 'DSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL DSYCON_ROOK( 'U', -1, A, 1, IP, ANRM, RCOND, W, IW, INFO )
+         CALL CHKXER( 'DSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL DSYCON_ROOK( 'U', 2, A, 1, IP, ANRM, RCOND, W, IW, INFO )
+         CALL CHKXER( 'DSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 6
+         CALL DSYCON_ROOK( 'U', 1, A, 1, IP, -1.0D0, RCOND, W, IW, INFO)
+         CALL CHKXER( 'DSYCON_ROOK', INFOT, NOUT, LERR, OK )
+*
       ELSE IF( LSAMEN( 2, C2, 'SP' ) ) THEN
 *
-*        Test error exits of the routines that use the Bunch-Kaufman
-*        factorization of a symmetric indefinite packed matrix.
+*        Test error exits of the routines that use factorization
+*        of a symmetric indefinite packed matrix with patrial
+*        (Bunch-Kaufman) pivoting.
 *
 *        DSPTRF
 *

diff --git a/TESTING/LIN/serrsy.f b/TESTING/LIN/serrsy.f
index e84354a..cdcdb9c 100644 (file)
--- a/TESTING/LIN/serrsy.f
+++ b/TESTING/LIN/serrsy.f
@@ -88,7 +88,8 @@
 *     .. External Subroutines ..
       EXTERNAL           ALAESM, CHKXER, SSPCON, SSPRFS, SSPTRF, SSPTRI,
      $                   SSPTRS, SSYCON, SSYRFS, SSYTF2, SSYTRF, SSYTRI,
-     $                   SSYTRI2, SSYTRS
+     $                   SSYTRI2, SSYTRS, SSYCON_ROOK, SSYTF2_ROOK,
+     $                   SSYTRF_ROOK, SSYTRI_ROOK, SSYTRS_ROOK
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -129,8 +130,9 @@
 *
       IF( LSAMEN( 2, C2, 'SY' ) ) THEN
 *
-*        Test error exits of the routines that use the Bunch-Kaufman
-*        factorization of a symmetric indefinite matrix.
+*        Test error exits of the routines that use factorization
+*        of a symmetric indefinite matrix with patrial
+*        (Bunch-Kaufman) pivoting.
 *
 *        SSYTRF
 *
@@ -251,10 +253,91 @@
          CALL SSYCON( 'U', 1, A, 1, IP, -1.0, RCOND, W, IW, INFO )
          CALL CHKXER( 'SSYCON', INFOT, NOUT, LERR, OK )
 *
+      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) pivoting.
+*
+*        SSYTRF_ROOK
+*
+         SRNAMT = 'SSYTRF_ROOK'
+         INFOT = 1
+         CALL SSYTRF_ROOK( '/', 0, A, 1, IP, W, 1, INFO )
+         CALL CHKXER( 'SSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL SSYTRF_ROOK( 'U', -1, A, 1, IP, W, 1, INFO )
+         CALL CHKXER( 'SSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL SSYTRF_ROOK( 'U', 2, A, 1, IP, W, 4, INFO )
+         CALL CHKXER( 'SSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        SSYTF2_ROOK
+*
+         SRNAMT = 'SSYTF2_ROOK'
+         INFOT = 1
+         CALL SSYTF2_ROOK( '/', 0, A, 1, IP, INFO )
+         CALL CHKXER( 'SSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL SSYTF2_ROOK( 'U', -1, A, 1, IP, INFO )
+         CALL CHKXER( 'SSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL SSYTF2_ROOK( 'U', 2, A, 1, IP, INFO )
+         CALL CHKXER( 'SSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        SSYTRI_ROOK
+*
+         SRNAMT = 'SSYTRI_ROOK'
+         INFOT = 1
+         CALL SSYTRI_ROOK( '/', 0, A, 1, IP, W, INFO )
+         CALL CHKXER( 'SSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL SSYTRI_ROOK( 'U', -1, A, 1, IP, W, INFO )
+         CALL CHKXER( 'SSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL SSYTRI_ROOK( 'U', 2, A, 1, IP, W, INFO )
+         CALL CHKXER( 'SSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        SSYTRS_ROOK
+*
+         SRNAMT = 'SSYTRS_ROOK'
+         INFOT = 1
+         CALL SSYTRS_ROOK( '/', 0, 0, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'SSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL SSYTRS_ROOK( 'U', -1, 0, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'SSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 3
+         CALL SSYTRS_ROOK( 'U', 0, -1, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'SSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 5
+         CALL SSYTRS_ROOK( 'U', 2, 1, A, 1, IP, B, 2, INFO )
+         CALL CHKXER( 'SSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 8
+         CALL SSYTRS_ROOK( 'U', 2, 1, A, 2, IP, B, 1, INFO )
+         CALL CHKXER( 'SSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        SSYCON_ROOK
+*
+         SRNAMT = 'SSYCON_ROOK'
+         INFOT = 1
+         CALL SSYCON_ROOK( '/', 0, A, 1, IP, ANRM, RCOND, W, IW, INFO )
+         CALL CHKXER( 'SSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL SSYCON_ROOK( 'U', -1, A, 1, IP, ANRM, RCOND, W, IW, INFO )
+         CALL CHKXER( 'SSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL SSYCON_ROOK( 'U', 2, A, 1, IP, ANRM, RCOND, W, IW, INFO )
+         CALL CHKXER( 'SSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 6
+         CALL SSYCON_ROOK( 'U', 1, A, 1, IP, -1.0, RCOND, W, IW, INFO )
+         CALL CHKXER( 'SSYCON_ROOK', INFOT, NOUT, LERR, OK )
+*
       ELSE IF( LSAMEN( 2, C2, 'SP' ) ) THEN
 *
-*        Test error exits of the routines that use the Bunch-Kaufman
-*        factorization of a symmetric indefinite packed matrix.
+*        Test error exits of the routines that use factorization
+*        of a symmetric indefinite packed matrix with patrial
+*        (Bunch-Kaufman) pivoting.
 *
 *        SSPTRF
 *

diff --git a/TESTING/LIN/zerrsy.f b/TESTING/LIN/zerrsy.f
index cd3bf48..c84f7b4 100644 (file)
--- a/TESTING/LIN/zerrsy.f
+++ b/TESTING/LIN/zerrsy.f
@@ -89,7 +89,8 @@
 *     .. External Subroutines ..
       EXTERNAL           ALAESM, CHKXER, ZSPCON, ZSPRFS, ZSPTRF, ZSPTRI,
      $                   ZSPTRS, ZSYCON, ZSYRFS, ZSYTF2, ZSYTRF, ZSYTRI,
-     $                   ZSYTRI2, ZSYTRS
+     $                   ZSYTRI2, ZSYTRS, ZSYCON_ROOK, ZSYTF2_ROOK,
+     $                   ZSYTRF_ROOK, ZSYTRI_ROOK, ZSYTRS_ROOK
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -128,11 +129,12 @@
       ANRM = 1.0D0
       OK = .TRUE.
 *
-*     Test error exits of the routines that use the diagonal pivoting
-*     factorization of a symmetric indefinite matrix.
-*
       IF( LSAMEN( 2, C2, 'SY' ) ) THEN
 *
+*        Test error exits of the routines that use factorization
+*        of a symmetric indefinite matrix with patrial
+*        (Bunch-Kaufman) pivoting.
+*
 *        ZSYTRF
 *
          SRNAMT = 'ZSYTRF'
@@ -252,11 +254,92 @@
          CALL ZSYCON( 'U', 1, A, 1, IP, -ANRM, RCOND, W, INFO )
          CALL CHKXER( 'ZSYCON', INFOT, NOUT, LERR, OK )
 *
-*     Test error exits of the routines that use the diagonal pivoting
-*     factorization of a symmetric indefinite packed matrix.
+      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) pivoting.
+*
+*        ZSYTRF_ROOK
+*
+         SRNAMT = 'ZSYTRF_ROOK'
+         INFOT = 1
+         CALL ZSYTRF_ROOK( '/', 0, A, 1, IP, W, 1, INFO )
+         CALL CHKXER( 'ZSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL ZSYTRF_ROOK( 'U', -1, A, 1, IP, W, 1, INFO )
+         CALL CHKXER( 'ZSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL ZSYTRF_ROOK( 'U', 2, A, 1, IP, W, 4, INFO )
+         CALL CHKXER( 'ZSYTRF_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        ZSYTF2_ROOK
+*
+         SRNAMT = 'ZSYTF2_ROOK'
+         INFOT = 1
+         CALL ZSYTF2_ROOK( '/', 0, A, 1, IP, INFO )
+         CALL CHKXER( 'ZSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL ZSYTF2_ROOK( 'U', -1, A, 1, IP, INFO )
+         CALL CHKXER( 'ZSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL ZSYTF2_ROOK( 'U', 2, A, 1, IP, INFO )
+         CALL CHKXER( 'ZSYTF2_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        ZSYTRI_ROOK
+*
+         SRNAMT = 'ZSYTRI_ROOK'
+         INFOT = 1
+         CALL ZSYTRI_ROOK( '/', 0, A, 1, IP, W, INFO )
+         CALL CHKXER( 'ZSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL ZSYTRI_ROOK( 'U', -1, A, 1, IP, W, INFO )
+         CALL CHKXER( 'ZSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL ZSYTRI_ROOK( 'U', 2, A, 1, IP, W, INFO )
+         CALL CHKXER( 'ZSYTRI_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        ZSYTRS_ROOK
+*
+         SRNAMT = 'ZSYTRS_ROOK'
+         INFOT = 1
+         CALL ZSYTRS_ROOK( '/', 0, 0, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'ZSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL ZSYTRS_ROOK( 'U', -1, 0, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'ZSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 3
+         CALL ZSYTRS_ROOK( 'U', 0, -1, A, 1, IP, B, 1, INFO )
+         CALL CHKXER( 'ZSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 5
+         CALL ZSYTRS_ROOK( 'U', 2, 1, A, 1, IP, B, 2, INFO )
+         CALL CHKXER( 'ZSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 8
+         CALL ZSYTRS_ROOK( 'U', 2, 1, A, 2, IP, B, 1, INFO )
+         CALL CHKXER( 'ZSYTRS_ROOK', INFOT, NOUT, LERR, OK )
+*
+*        ZSYCON_ROOK
+*
+         SRNAMT = 'ZSYCON_ROOK'
+         INFOT = 1
+         CALL ZSYCON_ROOK( '/', 0, A, 1, IP, ANRM, RCOND, W, INFO )
+         CALL CHKXER( 'ZSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 2
+         CALL ZSYCON_ROOK( 'U', -1, A, 1, IP, ANRM, RCOND, W, INFO )
+         CALL CHKXER( 'ZSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 4
+         CALL ZSYCON_ROOK( 'U', 2, A, 1, IP, ANRM, RCOND, W, INFO )
+         CALL CHKXER( 'ZSYCON_ROOK', INFOT, NOUT, LERR, OK )
+         INFOT = 6
+         CALL ZSYCON_ROOK( 'U', 1, A, 1, IP, -ANRM, RCOND, W, INFO )
+         CALL CHKXER( 'ZSYCON_ROOK', INFOT, NOUT, LERR, OK )
 *
       ELSE IF( LSAMEN( 2, C2, 'SP' ) ) THEN
 *
+*        Test error exits of the routines that use factorization
+*        of a symmetric indefinite packed matrix with patrial
+*        (Bunch-Kaufman) pivoting.
+*
 *        ZSPTRF
 *
          SRNAMT = 'ZSPTRF'