113 SUBROUTINE dsyconv( UPLO, WAY, N, A, LDA, IPIV, E, INFO )
125 DOUBLE PRECISION A( LDA, * ), E( * )
131 DOUBLE PRECISION ZERO
132 parameter( zero = 0.0d+0 )
141 LOGICAL UPPER, CONVERT
143 DOUBLE PRECISION TEMP
148 upper = lsame( uplo,
'U' )
149 convert = lsame( way,
'C' )
150 IF( .NOT.upper .AND. .NOT.lsame( uplo,
'L' ) )
THEN
152 ELSE IF( .NOT.convert .AND. .NOT.lsame( way,
'R' ) )
THEN
154 ELSE IF( n.LT.0 )
THEN
156 ELSE IF( lda.LT.max( 1, n ) )
THEN
161 CALL xerbla(
'DSYCONV', -info )
181 DO WHILE ( i .GT. 1 )
182 IF( ipiv(i) .LT. 0 )
THEN
196 DO WHILE ( i .GE. 1 )
197 IF( ipiv(i) .GT. 0)
THEN
228 DO WHILE ( i .LE. n )
229 IF( ipiv(i) .GT. 0 )
THEN
255 DO WHILE ( i .GT. 1 )
256 IF( ipiv(i) .LT. 0 )
THEN
276 DO WHILE ( i .LE. n )
277 IF( i.LT.n .AND. ipiv(i) .LT. 0 )
THEN
291 DO WHILE ( i .LE. n )
292 IF( ipiv(i) .GT. 0 )
THEN
322 DO WHILE ( i .GE. 1 )
323 IF( ipiv(i) .GT. 0 )
THEN
349 DO WHILE ( i .LE. n-1 )
350 IF( ipiv(i) .LT. 0 )
THEN
subroutine xerbla(srname, info)
subroutine dsyconv(uplo, way, n, a, lda, ipiv, e, info)
DSYCONV