107 INTEGER I1, I2, LDA, N
128 upper = lsame( uplo,
'U' )
134 CALL cswap( i1-1, a(1,i1), 1, a(1,i2), 1 )
143 CALL cswap( i2-i1-1, a(i1,i1+1), lda, a(i1+1,i2), 1 )
148 $
CALL cswap( n-i2, a(i1,i2+1), lda, a(i2,i2+1), lda )
155 CALL cswap ( i1-1, a(i1,1), lda, a(i2,1), lda )
164 CALL cswap( i2-i1-1, a(i1+1,i1), 1, a(i2,i1+1), lda )
169 $
CALL cswap( n-i2, a(i2+1,i1), 1, a(i2+1,i2), 1 )
subroutine cswap(N, CX, INCX, CY, INCY)
CSWAP
subroutine csyswapr(UPLO, N, A, LDA, I1, I2)
CSYSWAPR