--- rpl/lapack/lapack/zlanhf.f	2011/11/21 22:19:52	1.7
+++ rpl/lapack/lapack/zlanhf.f	2012/07/31 11:06:39	1.8
@@ -286,6 +286,9 @@
       IF( N.EQ.0 ) THEN
          ZLANHF = ZERO
          RETURN
+      ELSE IF( N.EQ.1 ) THEN
+         ZLANHF = ABS( A(0) )
+         RETURN
       END IF
 *
 *     set noe = 1 if n is odd. if n is even set noe=0