From 0cc45e77275928ea80f66e64bd07f324cb86da07 Mon Sep 17 00:00:00 2001
From: igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971>
Date: Wed, 7 Dec 2011 15:11:32 +0000
Subject: fixed a typo in dsysv_rook.f, ssysv_rook.f, csysv_rook.f, replaced a
 call to *SYTRF by *SYTRF_ROOK

---
 SRC/csysv_rook.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'SRC/csysv_rook.f')

diff --git a/SRC/csysv_rook.f b/SRC/csysv_rook.f
index efac6684..c35d4490 100644
--- 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
-- 
cgit v1.2.3