From 0f08684649895d4adda189c80181cbe341186bf0 Mon Sep 17 00:00:00 2001 From: wernsaar Date: Tue, 8 Jul 2014 09:57:40 +0200 Subject: [PATCH] Lapack bug118: replaced clanhf.f and zlanhf.f --- lapack-netlib/SRC/clanhf.f | 2 +- lapack-netlib/SRC/zlanhf.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 * -- 2.7.4