![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to zlanhf.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack|
Return to zlanhf.f CVS log | Up to [local] / rpl / lapack / lapack |
| version 1.7, 2011/11/21 22:19:52 | version 1.8, 2012/07/31 11:06:39 |
|---|---|
| Line 286 | Line 286 |
| IF( N.EQ.0 ) THEN | IF( N.EQ.0 ) THEN |
| ZLANHF = ZERO | ZLANHF = ZERO |
| RETURN | RETURN |
| ELSE IF( N.EQ.1 ) THEN | |
| ZLANHF = ABS( A(0) ) | |
| RETURN | |
| END IF | END IF |
| * | * |
| * set noe = 1 if n is odd. if n is even set noe=0 | * set noe = 1 if n is odd. if n is even set noe=0 |