1 SUBROUTINE dgehd2( N, ILO, IHI, A, LDA, TAU, WORK, INFO )
9 INTEGER IHI, ILO, INFO, LDA, N
12 DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * )
93 parameter( one = 1.0d+0 )
112 ELSE IF( ilo.LT.1 .OR. ilo.GT.max( 1, n ) )
THEN
114 ELSE IF( ihi.LT.min( ilo, n ) .OR. ihi.GT.n )
THEN
116 ELSE IF( lda.LT.max( 1, n ) )
THEN
120 CALL xerbla(
'DGEHD2', -info )
124 DO 10 i = ilo, ihi - 1
128 CALL dlarfg( ihi-i, a( i+1, i ), a( min( i+2, n ), i ), 1,
135 CALL dlarf(
'Right', ihi, ihi-i, a( i+1, i ), 1, tau( i ),
136 $ a( 1, i+1 ), lda, work )
140 CALL dlarf(
'Left', ihi-i, n-i, a( i+1, i ), 1, tau( i ),
141 $ a( i+1, i+1 ), lda, work )
subroutine dgehd2(N, ILO, IHI, A, LDA, TAU, WORK, INFO)
subroutine dlarf(SIDE, M, N, V, INCV, TAU, C, LDC, WORK)
subroutine dlarfg(N, ALPHA, X, INCX, TAU)
subroutine xerbla(SRNAME, INFO)