109 INTEGER I1, I2, LDA, N
131 upper = lsame( uplo,
'U' )
137 CALL cswap( i1-1, a(1,i1), 1, a(1,i2), 1 )
150 a(i1,i1+i)=conjg(a(i1+i,i2))
151 a(i1+i,i2)=conjg(tmp)
154 a(i1,i2)=conjg(a(i1,i2))
170 CALL cswap ( i1-1, a(i1,1), lda, a(i2,1), lda )
183 a(i1+i,i1)=conjg(a(i2,i1+i))
184 a(i2,i1+i)=conjg(tmp)
187 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