--- rpl/lapack/lapack/zuncsd.f	2011/11/21 22:19:59	1.5
+++ rpl/lapack/lapack/zuncsd.f	2012/07/31 11:06:40	1.6
@@ -343,11 +343,8 @@
 *  ===================================================================
 *
 *     .. Parameters ..
-      DOUBLE PRECISION   REALONE
-      PARAMETER          ( REALONE = 1.0D0 )
-      COMPLEX*16         NEGONE, ONE, PIOVER2, ZERO
-      PARAMETER          ( NEGONE = (-1.0D0,0.0D0), ONE = (1.0D0,0.0D0),
-     $                     PIOVER2 = 1.57079632679489662D0,
+      COMPLEX*16         ONE, ZERO
+      PARAMETER          ( ONE = (1.0D0,0.0D0),
      $                     ZERO = (0.0D0,0.0D0) )
 *     ..
 *     .. Local Scalars ..