115 SUBROUTINE slaswp( N, A, LDA, K1, K2, IPIV, INCX )
123 INTEGER incx, k1, k2, lda, n
133 INTEGER i, i1, i2,
inc, ip, ix, ix0,
j, k, n32
145 ELSE IF( incx.LT.0 )
THEN
146 ix0 = 1 + ( 1-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 )
error code as a return value instead of the INFO parameter This implementation supports both the ILP64 and LP64 programming and different complex type C99 This implementation includes interfaces for the LAPACK Driver and Computational routines only Product Directories The installation directory of this package has the following compiler names for binaries to be created linked to You may choose the appropriate LP64 ILP64 convenient complex type LAPACKE name and or redefine system malloc free in make inc Several examples of make inc are provided After setting up the make inc
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
subroutine slaswp(N, A, LDA, K1, K2, IPIV, INCX)
SLASWP performs a series of row interchanges on a general rectangular matrix.