--- rpl/lapack/lapack/zlat2c.f	2010/12/21 13:53:52	1.4
+++ rpl/lapack/lapack/zlat2c.f	2011/07/22 07:38:18	1.5
@@ -1,9 +1,9 @@
       SUBROUTINE ZLAT2C( UPLO, N, A, LDA, SA, LDSA, INFO )
 *
-*  -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) --
+*  -- LAPACK PROTOTYPE auxiliary 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..--
-*     May 2007
+*  -- April 2011                                                      --
 *
 *     .. Scalar Arguments ..
       CHARACTER          UPLO
@@ -56,7 +56,7 @@
 *                PRECISION overflow threshold, in this case, the content
 *                of the UPLO part of SA in exit is unspecified.
 *
-*  =========
+*  =====================================================================
 *
 *     .. Local Scalars ..
       INTEGER            I, J
@@ -79,9 +79,9 @@
          DO 20 J = 1, N
             DO 10 I = 1, J
                IF( ( DBLE( A( I, J ) ).LT.-RMAX ) .OR.
-     +             ( DBLE( A( I, J ) ).GT.RMAX ) .OR.
-     +             ( DIMAG( A( I, J ) ).LT.-RMAX ) .OR.
-     +             ( DIMAG( A( I, J ) ).GT.RMAX ) ) THEN
+     $             ( DBLE( A( I, J ) ).GT.RMAX ) .OR.
+     $             ( DIMAG( A( I, J ) ).LT.-RMAX ) .OR.
+     $             ( DIMAG( A( I, J ) ).GT.RMAX ) ) THEN
                   INFO = 1
                   GO TO 50
                END IF
@@ -92,9 +92,9 @@
          DO 40 J = 1, N
             DO 30 I = J, N
                IF( ( DBLE( A( I, J ) ).LT.-RMAX ) .OR.
-     +             ( DBLE( A( I, J ) ).GT.RMAX ) .OR.
-     +             ( DIMAG( A( I, J ) ).LT.-RMAX ) .OR.
-     +             ( DIMAG( A( I, J ) ).GT.RMAX ) ) THEN
+     $             ( DBLE( A( I, J ) ).GT.RMAX ) .OR.
+     $             ( DIMAG( A( I, J ) ).LT.-RMAX ) .OR.
+     $             ( DIMAG( A( I, J ) ).GT.RMAX ) ) THEN
                   INFO = 1
                   GO TO 50
                END IF