1 SUBROUTINE dorm2r( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC,
11 INTEGER INFO, K, LDA, LDC, M, N
14 DOUBLE PRECISION A( LDA, * ), C( LDC, * ), TAU( * ), WORK( * )
95 parameter( one = 1.0d+0 )
99 INTEGER I, I1, I2, I3, IC, JC, MI, NI, NQ
117 left = lsame( side,
'L' )
118 notran = lsame( trans,
'N' )
127 IF( .NOT.left .AND. .NOT.lsame( side,
'R' ) )
THEN
129 ELSE IF( .NOT.notran .AND. .NOT.lsame( trans,
'T' ) )
THEN
131 ELSE IF( m.LT.0 )
THEN
133 ELSE IF( n.LT.0 )
THEN
135 ELSE IF( k.LT.0 .OR. k.GT.nq )
THEN
137 ELSE IF( lda.LT.max( 1, nq ) )
THEN
139 ELSE IF( ldc.LT.max( 1, m ) )
THEN
143 CALL xerbla(
'DORM2R', -info )
149 IF( m.EQ.0 .OR. n.EQ.0 .OR. k.EQ.0 )
152 IF( ( left .AND. .NOT.notran ) .OR. ( .NOT.left .AND. notran ) )
190 CALL dlarf( side, mi, ni, a( i, i ), 1, tau( i ), c( ic, jc ),
subroutine dlarf(SIDE, M, N, V, INCV, TAU, C, LDC, WORK)
subroutine dorm2r(SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, WORK, INFO)
subroutine xerbla(SRNAME, INFO)