From ff981f106bde4ce6a74aa4f4a572c943f5a395b2 Mon Sep 17 00:00:00 2001
From: julie <julielangou@users.noreply.github.com>
Date: Tue, 16 Dec 2008 17:06:58 +0000
Subject:

---
 SRC/zhpevx.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'SRC/zhpevx.f')

diff --git a/SRC/zhpevx.f b/SRC/zhpevx.f
index 57bc2de0..ad9a3915 100644
--- a/SRC/zhpevx.f
+++ b/SRC/zhpevx.f
@@ -2,7 +2,7 @@
      $                   ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK,
      $                   IFAIL, INFO )
 *
-*  -- LAPACK driver routine (version 3.1) --
+*  -- LAPACK driver routine (version 3.2) --
 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
 *     November 2006
 *
@@ -336,7 +336,7 @@
 *
          INDWRK = INDTAU + N
          CALL ZUPMTR( 'L', UPLO, 'N', N, M, AP, WORK( INDTAU ), Z, LDZ,
-     $                WORK( INDWRK ), INFO )
+     $                WORK( INDWRK ), IINFO )
       END IF
 *
 *     If matrix was scaled, then rescale eigenvalues appropriately.
-- 
cgit v1.2.3