1 SUBROUTINE dlaswp( N, A, LDA, K1, K2, IPIV, INCX )
9 INTEGER INCX, K1, K2, LDA, N
13 DOUBLE PRECISION A( LDA, * )
62 INTEGER I, I1, I2, INC, IP, IX, IX0, J, K, N32
74 ELSE IF( incx.LT.0 )
THEN
75 ix0 = 1 + ( 1-k2 )*incx
92 a( i, k ) = a( ip, k )
103 DO 50 i = i1, i2, inc
108 a( i, k ) = a( ip, k )
subroutine dlaswp(N, A, LDA, K1, K2, IPIV, INCX)