--- rpl/lapack/lapack/zgesvd.f	2011/11/21 22:19:46	1.9
+++ rpl/lapack/lapack/zgesvd.f	2012/07/31 11:06:38	1.10
@@ -206,7 +206,7 @@
 *> \author Univ. of Colorado Denver 
 *> \author NAG Ltd. 
 *
-*> \date November 2011
+*> \date April 2012
 *
 *> \ingroup complex16GEsing
 *
@@ -214,10 +214,10 @@
       SUBROUTINE ZGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, 
      $                   VT, LDVT, WORK, LWORK, RWORK, INFO )
 *
-*  -- LAPACK driver routine (version 3.4.0) --
+*  -- LAPACK driver routine (version 3.4.1) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-*     November 2011
+*     April 2012
 *
 *     .. Scalar Arguments ..
       CHARACTER          JOBU, JOBVT
@@ -473,7 +473,7 @@
             CALL ZGELQF( M, N, A, LDA, DUM(1), DUM(1), -1, IERR )
             LWORK_ZGELQF=DUM(1)
 *           Compute space needed for ZUNGLQ
-            CALL ZUNGLQ( N, N, M, VT, LDVT, DUM(1), DUM(1), -1, IERR )
+            CALL ZUNGLQ( N, N, M, DUM(1), N, DUM(1), DUM(1), -1, IERR )
             LWORK_ZUNGLQ_N=DUM(1)
             CALL ZUNGLQ( M, N, M, A, LDA, DUM(1), DUM(1), -1, IERR )
             LWORK_ZUNGLQ_M=DUM(1)