fixed a call with a wrong number of arguments to *SYTRI_ROOK in schksy_rook.f dchksy_...

diff --git a/TESTING/LIN/dchksy_rook.f b/TESTING/LIN/dchksy_rook.f
index c889271..f3b9506 100644 (file)
--- a/TESTING/LIN/dchksy_rook.f
+++ b/TESTING/LIN/dchksy_rook.f
@@ -453,7 +453,7 @@
 *
                   IF( INFO.NE.K)
      $               CALL ALAERH( PATH, 'DSYTRF_ROOK', INFO, K,
-     $                            UPLO,N, N, -1, -1, NB, IMAT,
+     $                            UPLO, N, N, -1, -1, NB, IMAT,
      $                            NFAIL, NERRS, NOUT )
 *
 *                 Set the condition estimate flag if the INFO is not 0.
@@ -480,9 +480,8 @@
                   IF( INB.EQ.1 .AND. .NOT.TRFCON ) THEN
                      CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      SRNAMT = 'DSYTRI_ROOK'
-                     LWORK = (N+NB+1)*(NB+3)
                      CALL DSYTRI_ROOK( UPLO, N, AINV, LDA, IWORK, WORK,
-     $                            LWORK, INFO )
+     $                                 INFO )
 *
 *                    Check error code from DSYTRI_ROOK and handle error.
 *

diff --git a/TESTING/LIN/schksy_rook.f b/TESTING/LIN/schksy_rook.f
index f9d4991..5c8bea3 100644 (file)
--- a/TESTING/LIN/schksy_rook.f
+++ b/TESTING/LIN/schksy_rook.f
@@ -453,7 +453,7 @@
 *
                   IF( INFO.NE.K)
      $               CALL ALAERH( PATH, 'SSYTRF_ROOK', INFO, K,
-     $                            UPLO,N, N, -1, -1, NB, IMAT,
+     $                            UPLO, N, N, -1, -1, NB, IMAT,
      $                            NFAIL, NERRS, NOUT )
 *
 *                 Set the condition estimate flag if the INFO is not 0.
@@ -480,9 +480,8 @@
                   IF( INB.EQ.1 .AND. .NOT.TRFCON ) THEN
                      CALL SLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      SRNAMT = 'SSYTRI_ROOK'
-                     LWORK = (N+NB+1)*(NB+3)
                      CALL SSYTRI_ROOK( UPLO, N, AINV, LDA, IWORK, WORK,
-     $                            LWORK, INFO )
+     $                                 INFO )
 *
 *                    Check error code from SSYTRI_ROOK and handle error.
 *