--- rpl/lapack/lapack/zsyswapr.f	2010/12/21 13:53:56	1.2
+++ rpl/lapack/lapack/zsyswapr.f	2011/07/22 07:38:20	1.3
@@ -1,16 +1,16 @@
-      SUBROUTINE ZSYSWAPR( UPLO, N, A, I1, I2)
+      SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2)
 *
-*  -- LAPACK auxiliary routine (version 3.3.0) --
+*  -- LAPACK 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..--
-*     November 2010
+*  -- April 2011                                                      --
 *
 *     .. Scalar Arguments ..
       CHARACTER        UPLO
-      INTEGER          I1, I2, N
+      INTEGER          I1, I2, LDA, N
 *     ..
 *     .. Array Arguments ..
-      DOUBLE COMPLEX   A(N,N)
+      DOUBLE COMPLEX   A( LDA, N )
 *
 *  Purpose
 *  =======
@@ -41,6 +41,9 @@
 *          inverse is formed and the part of A above the diagonal is
 *          not referenced.
 *
+*  LDA     (input) INTEGER
+*          The leading dimension of the array A.  LDA >= max(1,N).
+*
 *  I1      (input) INTEGER
 *          Index of the first row to swap
 *
@@ -98,7 +101,7 @@
 *         LOWER
 *         first swap
 *          - swap row I1 and I2 from I1 to I1-1 
-         CALL ZSWAP( I1-1, A(I1,1), N, A(I2,1), N )
+         CALL ZSWAP( I1-1, A(I1,1), LDA, A(I2,1), LDA )
 *
 *         second swap :
 *          - swap A(I1,I1) and A(I2,I2)