LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
 All Files Functions Typedefs Macros
zlanhf-clanhf-norm.patch
Go to the documentation of this file.
1 Description: Fix ZLANHF and CLANHF Norm Calculation (upstream bug #118)
2 Origin: upstream, commit: r1483
3 Bug: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=13&t=4558
4 Reviewed-by: Sébastien Villemot <sebastien@debian.org>
5 Last-Update: 2014-08-07
6 ---
7 This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
8 --- a/src/clanhf.f
9 +++ b/src/clanhf.f
10 @@ -286,7 +286,7 @@
11  CLANHF = ZERO
12  RETURN
13  ELSE IF( N.EQ.1 ) THEN
14 - CLANHF = ABS( A(0) )
15 + CLANHF = ABS(REAL(A(0)))
16  RETURN
17  END IF
18  *
19 --- a/src/zlanhf.f
20 +++ b/src/zlanhf.f
21 @@ -286,7 +286,7 @@
22  ZLANHF = ZERO
23  RETURN
24  ELSE IF( N.EQ.1 ) THEN
25 - ZLANHF = ABS( A(0) )
26 + ZLANHF = ABS(DBLE(A(0)))
27  RETURN
28  END IF
29  *