--- rpl/lapack/lapack/dlansf.f	2011/11/21 22:19:32	1.8
+++ rpl/lapack/lapack/dlansf.f	2012/07/31 11:06:36	1.9
@@ -248,6 +248,9 @@
       IF( N.EQ.0 ) THEN
          DLANSF = ZERO
          RETURN
+      ELSE IF( N.EQ.1 ) THEN
+         DLANSF = ABS( A(0) )
+         RETURN
       END IF
 *
 *     set noe = 1 if n is odd. if n is even set noe=0