Lapack bug118: replaced clanhf.f and zlanhf.f

diff --git a/lapack-netlib/SRC/clanhf.f b/lapack-netlib/SRC/clanhf.f
index f7bd4fb..cbcb7ec 100644 (file)
--- a/lapack-netlib/SRC/clanhf.f
+++ b/lapack-netlib/SRC/clanhf.f
@@ -286,7 +286,7 @@
          CLANHF = ZERO
          RETURN
       ELSE IF( N.EQ.1 ) THEN
-         CLANHF = ABS( A(0) )
+         CLANHF = ABS(REAL(A(0)))
          RETURN
       END IF
 *

diff --git a/lapack-netlib/SRC/zlanhf.f b/lapack-netlib/SRC/zlanhf.f
index 8f781dd..99b3f3c 100644 (file)
--- a/lapack-netlib/SRC/zlanhf.f
+++ b/lapack-netlib/SRC/zlanhf.f
@@ -286,7 +286,7 @@
          ZLANHF = ZERO
          RETURN
       ELSE IF( N.EQ.1 ) THEN
-         ZLANHF = ABS( A(0) )
+         ZLANHF = ABS(DBLE(A(0)))
          RETURN
       END IF
 *