--- rpl/lapack/lapack/ztfttp.f	2010/08/13 21:04:15	1.3
+++ rpl/lapack/lapack/ztfttp.f	2011/07/22 07:38:21	1.6
@@ -1,9 +1,9 @@
       SUBROUTINE ZTFTTP( TRANSR, UPLO, N, ARF, AP, INFO )
 *
-*  -- LAPACK routine (version 3.2.1)                                    --
+*  -- LAPACK routine (version 3.3.1)                                    --
 *
 *  -- Contributed by Fred Gustavson of the IBM Watson Research Center --
-*  -- April 2009                                                      --
+*  -- 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 is in Normal format;
 *          = 'C':  ARF is in Conjugate-transpose format;
 *
-*  UPLO    (input) CHARACTER
+*  UPLO    (input) CHARACTER*1
 *          = 'U':  A is upper triangular;
 *          = 'L':  A is lower triangular.
 *
@@ -200,7 +200,7 @@
 *     Quick return if possible
 *
       IF( N.EQ.0 )
-     +   RETURN
+     $   RETURN
 *
       IF( N.EQ.1 ) THEN
          IF( NORMALTRANSR ) THEN
@@ -243,7 +243,7 @@
 *     ARF^C has lda rows and n+1-noe cols
 *
       IF( .NOT.NORMALTRANSR )
-     +   LDA = ( N+1 ) / 2
+     $   LDA = ( N+1 ) / 2
 *
 *     start execution: there are eight cases
 *