--- rpl/lapack/lapack/dtfttr.f	2010/12/21 13:53:40	1.5
+++ rpl/lapack/lapack/dtfttr.f	2011/07/22 07:38:12	1.6
@@ -1,9 +1,9 @@
       SUBROUTINE DTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO )
 *
-*  -- LAPACK routine (version 3.3.0)                                    --
+*  -- LAPACK routine (version 3.3.1)                                    --
 *
 *  -- Contributed by Fred Gustavson of the IBM Watson Research Center --
-*     November 2010
+*  -- April 2011                                                      --
 *
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
@@ -214,11 +214,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