1 files changed, 14 insertions, 7 deletions

diff --git a/SRC/dbdsqr.f b/SRC/dbdsqr.f
index 60245862..472e00e1 100644
--- a/SRC/dbdsqr.f
+++ b/SRC/dbdsqr.f
@@ -1,7 +1,7 @@
       SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
      $                   LDU, C, LDC, WORK, INFO )
 *
-*  -- LAPACK routine (version 3.1.1) --
+*  -- LAPACK routine (version 3.2) --
 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
 *     January 2007
 *
@@ -105,16 +105,23 @@
 *          The leading dimension of the array C.
 *          LDC >= max(1,N) if NCC > 0; LDC >=1 if NCC = 0.
 *
-*  WORK    (workspace) DOUBLE PRECISION array, dimension (2*N)
-*          if NCVT = NRU = NCC = 0, (max(1, 4*N)) otherwise
+*  WORK    (workspace) DOUBLE PRECISION array, dimension (4*N)
 *
 *  INFO    (output) INTEGER
 *          = 0:  successful exit
 *          < 0:  If INFO = -i, the i-th argument had an illegal value
-*          > 0:  the algorithm did not converge; D and E contain the
-*                elements of a bidiagonal matrix which is orthogonally
-*                similar to the input matrix B;  if INFO = i, i
-*                elements of E have not converged to zero.
+*          > 0:
+*             if NCVT = NRU = NCC = 0,
+*                = 1, a split was marked by a positive value in E
+*                = 2, current block of Z not diagonalized after 30*N
+*                     iterations (in inner while loop)
+*                = 3, termination criterion of outer while loop not met 
+*                     (program created more than N unreduced blocks)
+*             else NCVT = NRU = NCC = 0,
+*                   the algorithm did not converge; D and E contain the
+*                   elements of a bidiagonal matrix which is orthogonally
+*                   similar to the input matrix B;  if INFO = i, i
+*                   elements of E have not converged to zero.
 *
 *  Internal Parameters
 *  ===================