--- rpl/lapack/lapack/dtpttr.f	2010/08/13 21:04:00	1.3
+++ rpl/lapack/lapack/dtpttr.f	2010/12/21 13:48:06	1.4
@@ -1,9 +1,9 @@
       SUBROUTINE DTPTTR( UPLO, N, AP, A, LDA, INFO )
 *
-*  -- LAPACK routine (version 3.2)                                    --
+*  -- LAPACK routine (version 3.3.0)                                    --
 *
 *  -- Contributed by Julien Langou of the Univ. of Colorado Denver    --
-*  -- November 2008                                                   --
+*     November 2010                                                   --
 *
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
@@ -25,7 +25,7 @@
 *  Arguments
 *  =========
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular.
 *          = 'L':  A is lower triangular.
 *