115 SUBROUTINE zsyconv( UPLO, WAY, N, A, LDA, IPIV, E, INFO )
128 COMPLEX*16 A( lda, * ), E( * )
135 parameter ( zero = (0.0d+0,0.0d+0) )
144 LOGICAL UPPER, CONVERT
151 upper = lsame( uplo,
'U' )
152 convert = lsame( way,
'C' )
153 IF( .NOT.upper .AND. .NOT.lsame( uplo,
'L' ) )
THEN
155 ELSE IF( .NOT.convert .AND. .NOT.lsame( way,
'R' ) )
THEN
157 ELSE IF( n.LT.0 )
THEN
159 ELSE IF( lda.LT.max( 1, n ) )
THEN
164 CALL xerbla(
'ZSYCONV', -info )
185 DO WHILE ( i .GT. 1 )
186 IF( ipiv(i) .LT. 0 )
THEN
200 DO WHILE ( i .GE. 1 )
201 IF( ipiv(i) .GT. 0)
THEN
231 DO WHILE ( i .LE. n )
232 IF( ipiv(i) .GT. 0 )
THEN
258 DO WHILE ( i .GT. 1 )
259 IF( ipiv(i) .LT. 0 )
THEN
279 DO WHILE ( i .LE. n )
280 IF( i.LT.n .AND. ipiv(i) .LT. 0 )
THEN
294 DO WHILE ( i .LE. n )
295 IF( ipiv(i) .GT. 0 )
THEN
325 DO WHILE ( i .GE. 1 )
326 IF( ipiv(i) .GT. 0 )
THEN
352 DO WHILE ( i .LE. n-1 )
353 IF( ipiv(i) .LT. 0 )
THEN
subroutine zsyconv(UPLO, WAY, N, A, LDA, IPIV, E, INFO)
ZSYCONV
subroutine xerbla(SRNAME, INFO)
XERBLA