From: wernsaar <wernsaar@googlemail.com>
Date: Tue, 8 Jul 2014 07:57:40 +0000 (+0200)
Subject: Lapack bug118: replaced clanhf.f and zlanhf.f
X-Git-Tag: v0.2.10~1^2~6^2~4
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0f08684649895d4adda189c80181cbe341186bf0;p=platform%2Fupstream%2Fopenblas.git

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
--- 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
--- 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
 *