178 SUBROUTINE cunmr3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC,
187 CHARACTER SIDE, TRANS
188 INTEGER INFO, K, L, LDA, LDC, M, N
191 COMPLEX A( lda, * ), C( ldc, * ), TAU( * ), WORK( * )
198 INTEGER I, I1, I2, I3, IC, JA, JC, MI, NI, NQ
216 left = lsame( side,
'L' )
217 notran = lsame( trans,
'N' )
226 IF( .NOT.left .AND. .NOT.lsame( side,
'R' ) )
THEN
228 ELSE IF( .NOT.notran .AND. .NOT.lsame( trans,
'C' ) )
THEN
230 ELSE IF( m.LT.0 )
THEN
232 ELSE IF( n.LT.0 )
THEN
234 ELSE IF( k.LT.0 .OR. k.GT.nq )
THEN
236 ELSE IF( l.LT.0 .OR. ( left .AND. ( l.GT.m ) ) .OR.
237 $ ( .NOT.left .AND. ( l.GT.n ) ) )
THEN
239 ELSE IF( lda.LT.max( 1, k ) )
THEN
241 ELSE IF( ldc.LT.max( 1, m ) )
THEN
245 CALL xerbla(
'CUNMR3', -info )
251 IF( m.EQ.0 .OR. n.EQ.0 .OR. k.EQ.0 )
254 IF( ( left .AND. .NOT.notran .OR. .NOT.left .AND. notran ) )
THEN
294 taui = conjg( tau( i ) )
296 CALL clarz( side, mi, ni, l, a( i, ja ), lda, taui,
297 $ c( ic, jc ), ldc, work )
subroutine cunmr3(SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, WORK, INFO)
CUNMR3 multiplies a general matrix by the unitary matrix from a RZ factorization determined by ctzrzf...
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine clarz(SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK)
CLARZ applies an elementary reflector (as returned by stzrzf) to a general matrix.