--- rpl/lapack/lapack/dtrttf.f	2010/08/13 21:04:00	1.3
+++ rpl/lapack/lapack/dtrttf.f	2011/07/22 07:38:13	1.6
@@ -1,9 +1,9 @@
       SUBROUTINE DTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO )
 *
-*  -- LAPACK routine (version 3.2.2)                                    --
+*  -- LAPACK routine (version 3.3.1)                                    --
 *
 *  -- Contributed by Fred Gustavson of the IBM Watson Research Center --
-*  -- June 2010                                                       --
+*  -- April 2011                                                      --
 *
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
@@ -25,11 +25,11 @@
 *  Arguments
 *  =========
 *
-*  TRANSR  (input) CHARACTER
+*  TRANSR  (input) CHARACTER*1
 *          = 'N':  ARF in Normal form is wanted;
 *          = 'T':  ARF in Transpose form is wanted.
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  Upper triangle of A is stored;
 *          = 'L':  Lower triangle of A is stored.
 *
@@ -211,11 +211,11 @@
          K = N / 2
          NISODD = .FALSE.
          IF( .NOT.LOWER )
-     +      NP1X2 = N + N + 2
+     $      NP1X2 = N + N + 2
       ELSE
          NISODD = .TRUE.
          IF( .NOT.LOWER )
-     +      NX2 = N + N
+     $      NX2 = N + N
       END IF
 *
       IF( NISODD ) THEN