107 INTEGER I1, I2, LDA, N
128 upper = lsame( uplo,
'U' )
134 CALL sswap( i1-1, a(1,i1), 1, a(1,i2), 1 )
143 CALL sswap( i2-i1-1, a(i1,i1+1), lda, a(i1+1,i2), 1 )
148 $
CALL sswap( n-i2, a(i1,i2+1), lda, a(i2,i2+1), lda )
155 CALL sswap( i1-1, a(i1,1), lda, a(i2,1), lda )
164 CALL sswap( i2-i1-1, a(i1+1,i1), 1, a(i2,i1+1), lda )
169 $
CALL sswap( n-i2, a(i2+1,i1), 1, a(i2+1,i2), 1 )
subroutine ssyswapr(UPLO, N, A, LDA, I1, I2)
SSYSWAPR applies an elementary permutation on the rows and columns of a symmetric matrix.
subroutine sswap(N, SX, INCX, SY, INCY)
SSWAP