--- rpl/lapack/lapack/dsycon.f	2010/08/06 15:32:35	1.4
+++ rpl/lapack/lapack/dsycon.f	2011/07/22 07:38:11	1.9
@@ -1,10 +1,10 @@
       SUBROUTINE DSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK,
      $                   IWORK, INFO )
 *
-*  -- LAPACK routine (version 3.2) --
+*  -- LAPACK routine (version 3.3.1) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-*     November 2006
+*  -- April 2011                                                      --
 *
 *     Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH.
 *
@@ -61,7 +61,7 @@
 *
 *  WORK    (workspace) DOUBLE PRECISION array, dimension (2*N)
 *
-*  IWORK    (workspace) INTEGER array, dimension (N)
+*  IWORK   (workspace) INTEGER array, dimension (N)
 *
 *  INFO    (output) INTEGER
 *          = 0:  successful exit
@@ -148,7 +148,7 @@
       CALL DLACN2( N, WORK( N+1 ), WORK, IWORK, AINVNM, KASE, ISAVE )
       IF( KASE.NE.0 ) THEN
 *
-*        Multiply by inv(L*D*L') or inv(U*D*U').
+*        Multiply by inv(L*D*L**T) or inv(U*D*U**T).
 *
          CALL DSYTRS( UPLO, N, 1, A, LDA, IPIV, WORK, N, INFO )
          GO TO 30