floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Lapack bug118: replaced clanhf.f and zlanhf.f

This commit is contained in:
wernsaar 2014-07-08 09:57:40 +02:00
parent 94d3cfaa10
commit 0f08684649
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lapack-netlib/SRC/clanhf.f
View File

@ -286,7 +286,7 @@
CLANHF = ZERO CLANHF = ZERO
RETURN RETURN
ELSE IF( N.EQ.1 ) THEN ELSE IF( N.EQ.1 ) THEN
CLANHF = ABS( A(0) ) CLANHF = ABS(REAL(A(0)))
RETURN RETURN
END IF END IF
* *

2
lapack-netlib/SRC/zlanhf.f
View File

@ -286,7 +286,7 @@
ZLANHF = ZERO ZLANHF = ZERO
RETURN RETURN
ELSE IF( N.EQ.1 ) THEN ELSE IF( N.EQ.1 ) THEN
ZLANHF = ABS( A(0) ) ZLANHF = ABS(DBLE(A(0)))
RETURN RETURN
END IF END IF
* *