198 SUBROUTINE ssyconvf_rook( UPLO, WAY, N, A, LDA, E, IPIV, INFO )
211 REAL A( lda, * ), E( * )
218 parameter ( zero = 0.0e+0 )
227 LOGICAL UPPER, CONVERT
233 upper = lsame( uplo,
'U' )
234 convert = lsame( way,
'C' )
235 IF( .NOT.upper .AND. .NOT.lsame( uplo,
'L' ) )
THEN
237 ELSE IF( .NOT.convert .AND. .NOT.lsame( way,
'R' ) )
THEN
239 ELSE IF( n.LT.0 )
THEN
241 ELSE IF( lda.LT.max( 1, n ) )
THEN
246 CALL xerbla(
'SSYCONVF_ROOK', -info )
272 IF( ipiv( i ).LT.0 )
THEN
290 IF( ipiv( i ).GT.0 )
THEN
299 CALL sswap( n-i, a( i, i+1 ), lda,
300 $ a( ip, i+1 ), lda )
315 CALL sswap( n-i, a( i, i+1 ), lda,
316 $ a( ip, i+1 ), lda )
318 IF( ip2.NE.(i-1) )
THEN
319 CALL sswap( n-i, a( i-1, i+1 ), lda,
320 $ a( ip2, i+1 ), lda )
341 IF( ipiv( i ).GT.0 )
THEN
350 CALL sswap( n-i, a( ip, i+1 ), lda,
366 IF( ip2.NE.(i-1) )
THEN
367 CALL sswap( n-i, a( ip2, i+1 ), lda,
368 $ a( i-1, i+1 ), lda )
371 CALL sswap( n-i, a( ip, i+1 ), lda,
386 IF( ipiv( i ).LT.0 )
THEN
413 IF( i.LT.n .AND. ipiv(i).LT.0 )
THEN
431 IF( ipiv( i ).GT.0 )
THEN
440 CALL sswap( i-1, a( i, 1 ), lda,
456 CALL sswap( i-1, a( i, 1 ), lda,
459 IF( ip2.NE.(i+1) )
THEN
460 CALL sswap( i-1, a( i+1, 1 ), lda,
482 IF( ipiv( i ).GT.0 )
THEN
491 CALL sswap( i-1, a( ip, 1 ), lda,
507 IF( ip2.NE.(i+1) )
THEN
508 CALL sswap( i-1, a( ip2, 1 ), lda,
512 CALL sswap( i-1, a( ip, 1 ), lda,
526 DO WHILE ( i.LE.n-1 )
527 IF( ipiv( i ).LT.0 )
THEN
528 a( i + 1, i ) = e( i )
subroutine ssyconvf_rook(UPLO, WAY, N, A, LDA, E, IPIV, INFO)
SSYCONVF_ROOK
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine sswap(N, SX, INCX, SY, INCY)
SSWAP