115 SUBROUTINE zlaswp( N, A, LDA, K1, K2, IPIV, INCX )
123 INTEGER INCX, K1, K2, LDA, N
127 COMPLEX*16 A( lda, * )
133 INTEGER I, I1, I2, INC, IP, IX, IX0, J, K, N32
145 ELSE IF( incx.LT.0 )
THEN
146 ix0 = k1 + ( k1-k2 )*incx
158 DO 20 i = i1, i2, inc
163 a( i, k ) = a( ip, k )
174 DO 50 i = i1, i2, inc
179 a( i, k ) = a( ip, k )
subroutine zlaswp(N, A, LDA, K1, K2, IPIV, INCX)
ZLASWP performs a series of row interchanges on a general rectangular matrix.