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
7 This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
13 ELSE IF( N.EQ.1 ) THEN
14 - CLANHF = ABS( A(0) )
15 + CLANHF = ABS(REAL(A(0)))
24 ELSE IF( N.EQ.1 ) THEN
25 - ZLANHF = ABS( A(0) )
26 + ZLANHF = ABS(DBLE(A(0)))