103 SUBROUTINE cheswapr( UPLO, N, A, LDA, I1, I2)
112 INTEGER I1, I2, LDA, N
134 upper = lsame( uplo,
'U' )
140 CALL cswap( i1-1, a(1,i1), 1, a(1,i2), 1 )
153 a(i1,i1+i)=conjg(a(i1+i,i2))
154 a(i1+i,i2)=conjg(tmp)
157 a(i1,i2)=conjg(a(i1,i2))
173 CALL cswap ( i1-1, a(i1,1), lda, a(i2,1), lda )
186 a(i1+i,i1)=conjg(a(i2,i1+i))
187 a(i2,i1+i)=conjg(tmp)
190 a(i2,i1)=conjg(a(i2,i1))
subroutine cheswapr(UPLO, N, A, LDA, I1, I2)
CHESWAPR applies an elementary permutation on the rows and columns of a Hermitian matrix...
subroutine cswap(N, CX, INCX, CY, INCY)
CSWAP