fixed a typo in dsysv_rook.f, ssysv_rook.f, csysv_rook.f, replaced a call to *SYTRF...

diff --git a/SRC/csysv_rook.f b/SRC/csysv_rook.f
index efac668..c35d449 100644 (file)
--- a/SRC/csysv_rook.f
+++ b/SRC/csysv_rook.f
@@ -258,7 +258,7 @@
          IF( N.EQ.0 ) THEN
             LWKOPT = 1
          ELSE
-            CALL DSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO )
+            CALL CSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, -1, INFO )
             LWKOPT = WORK(1)
          END IF
          WORK( 1 ) = LWKOPT

diff --git a/SRC/dsysv_rook.f b/SRC/dsysv_rook.f
index 8dfbb6c..fca97b9 100644 (file)
--- a/SRC/dsysv_rook.f
+++ b/SRC/dsysv_rook.f
@@ -258,7 +258,7 @@
          IF( N.EQ.0 ) THEN
             LWKOPT = 1
          ELSE
-            CALL DSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO )
+            CALL DSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, -1, INFO )
             LWKOPT = WORK(1)
          END IF
          WORK( 1 ) = LWKOPT

diff --git a/SRC/ssysv_rook.f b/SRC/ssysv_rook.f
index fd0d943..4071d08 100644 (file)
--- a/SRC/ssysv_rook.f
+++ b/SRC/ssysv_rook.f
@@ -258,7 +258,7 @@
          IF( N.EQ.0 ) THEN
             LWKOPT = 1
          ELSE
-            CALL DSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO )
+            CALL SSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, -1, INFO )
             LWKOPT = WORK(1)
          END IF
          WORK( 1 ) = LWKOPT