Lapack bug118: replaced clanhf.f and zlanhf.f

2014-07-08 09:57:40 +02:00 · 2014-07-08 09:57:40 +02:00 · 0f08684649
parent 94d3cfaa10
commit 0f08684649
2 changed files with 2 additions and 2 deletions
--- 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
 *
--- 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
 *