112 INTEGER i1, i2, lda, n
115 COMPLEX*16 a( lda, n )
134 upper =
lsame( uplo,
'U' )
140 CALL
zswap( i1-1, a(1,i1), 1, a(1,i2), 1 )
151 a(i1,i1+i)=a(i1+i,i2)
168 CALL
zswap( i1-1, a(i1,1), lda, a(i2,1), lda )
179 a(i1+i,i1)=a(i2,i1+i)
subroutine zswap(N, ZX, INCX, ZY, INCY)
ZSWAP
subroutine zsyswapr(UPLO, N, A, LDA, I1, I2)
ZSYSWAPR
logical function lsame(CA, CB)
LSAME