--- rpl/lapack/lapack/dlansf.f	2011/11/21 20:42:56	1.7
+++ rpl/lapack/lapack/dlansf.f	2012/08/22 09:48:18	1.10
@@ -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