--- rpl/lapack/lapack/dorgbr.f	2011/11/21 22:19:36	1.10
+++ rpl/lapack/lapack/dorgbr.f	2012/07/31 11:06:36	1.11
@@ -150,17 +150,17 @@
 *> \author Univ. of Colorado Denver 
 *> \author NAG Ltd. 
 *
-*> \date November 2011
+*> \date April 2012
 *
 *> \ingroup doubleGBcomputational
 *
 *  =====================================================================
       SUBROUTINE DORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO )
 *
-*  -- LAPACK computational routine (version 3.4.0) --
+*  -- LAPACK computational 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          VECT
@@ -178,7 +178,7 @@
 *     ..
 *     .. Local Scalars ..
       LOGICAL            LQUERY, WANTQ
-      INTEGER            I, IINFO, J, LWKOPT, MN, NB
+      INTEGER            I, IINFO, J, LWKOPT, MN
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
@@ -237,12 +237,14 @@
             END IF
          END IF
          LWKOPT = WORK( 1 )
+         LWKOPT = MAX (LWKOPT, MN)
       END IF
 *
       IF( INFO.NE.0 ) THEN
          CALL XERBLA( 'DORGBR', -INFO )
          RETURN
       ELSE IF( LQUERY ) THEN
+         WORK( 1 ) = LWKOPT
          RETURN
       END IF
 *