From 38577177d43a9eaf556f136e5253b2e7579340f0 Mon Sep 17 00:00:00 2001
From: igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971>
Date: Mon, 26 Dec 2011 03:23:48 +0000
Subject: [PATCH] updated tests in for COMPLEX symmetric indefinite matrix
 routines with rook pivoting in TESTING/LIN/cchksy_rook.f

---
 TESTING/LIN/cchksy_rook.f | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/TESTING/LIN/cchksy_rook.f b/TESTING/LIN/cchksy_rook.f
index eb7173e..d3c2714 100644
--- a/TESTING/LIN/cchksy_rook.f
+++ b/TESTING/LIN/cchksy_rook.f
@@ -206,7 +206,7 @@
       INTEGER            NTYPES
       PARAMETER          ( NTYPES = 10 )
       INTEGER            NTESTS
-      PARAMETER          ( NTESTS = 8 )
+      PARAMETER          ( NTESTS = 7 )
 *     ..
 *     .. Local Scalars ..
       LOGICAL            TRFCON, ZEROT
@@ -715,8 +715,6 @@
                      END IF
   200             CONTINUE
                   NRUN = NRUN + NT
-*STUB
-      GO TO 240
 *
 *                 Skip the other tests if this is not the first block
 *                 size.
@@ -745,8 +743,8 @@
 *
                      SRNAMT = 'CLARHS'
                      CALL CLARHS( MATPATH, XTYPE, UPLO, ' ', N, N,
-     $                            KL, KU,NRHS, A, LDA, XACT, LDA,
-     $                            B, LDA,ISEED, INFO )
+     $                            KL, KU, NRHS, A, LDA, XACT, LDA,
+     $                            B, LDA, ISEED, INFO )
                      CALL CLACPY( 'Full', N, NRHS, B, LDA, X, LDA )
 *
                      SRNAMT = 'CSYTRS_ROOK'
@@ -798,7 +796,7 @@
                   ANORM = CLANSY( '1', UPLO, N, A, LDA, RWORK )
                   SRNAMT = 'CSYCON_ROOK'
                   CALL CSYCON_ROOK( UPLO, N, AFAC, LDA, IWORK, ANORM,
-     $                              RCOND, WORK, IWORK( N+1 ), INFO )
+     $                              RCOND, WORK, INFO )
 *
 *                 Check error code from CSYCON_ROOK and handle error.
 *
-- 
2.7.4