112 INTEGER i1, i2, lda, n
134 upper =
lsame( uplo,
'U' )
140 CALL
sswap( i1-1, a(1,i1), 1, a(1,i2), 1 )
151 a(i1,i1+i)=a(i1+i,i2)
168 CALL
sswap( i1-1, a(i1,1), lda, a(i2,1), lda )
179 a(i1+i,i1)=a(i2,i1+i)
subroutine sswap(N, SX, INCX, SY, INCY)
SSWAP
logical function lsame(CA, CB)
LSAME
subroutine ssyswapr(UPLO, N, A, LDA, I1, I2)
SSYSWAPR applies an elementary permutation on the rows and columns of a symmetric matrix...