154 SUBROUTINE cunbdb5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
155 $ LDQ2, WORK, LWORK, INFO )
162 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2,
166 COMPLEX Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*)
173 parameter( one = (1.0e0,0.0e0), zero = (0.0e0,0.0e0) )
176 INTEGER CHILDINFO, I, J
195 ELSE IF( m2 .LT. 0 )
THEN
197 ELSE IF( n .LT. 0 )
THEN
199 ELSE IF( incx1 .LT. 1 )
THEN
201 ELSE IF( incx2 .LT. 1 )
THEN
203 ELSE IF( ldq1 .LT. max( 1, m1 ) )
THEN
205 ELSE IF( ldq2 .LT. max( 1, m2 ) )
THEN
207 ELSE IF( lwork .LT. n )
THEN
211 IF( info .NE. 0 )
THEN
212 CALL xerbla(
'CUNBDB5', -info )
218 CALL cunbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2, ldq2,
219 $ work, lwork, childinfo )
223 IF( scnrm2(m1,x1,incx1) .NE. zero
224 $ .OR. scnrm2(m2,x2,incx2) .NE. zero )
THEN
239 CALL cunbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2,
240 $ ldq2, work, lwork, childinfo )
241 IF( scnrm2(m1,x1,incx1) .NE. zero
242 $ .OR. scnrm2(m2,x2,incx2) .NE. zero )
THEN
258 CALL cunbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2,
259 $ ldq2, work, lwork, childinfo )
260 IF( scnrm2(m1,x1,incx1) .NE. zero
261 $ .OR. scnrm2(m2,x2,incx2) .NE. zero )
THEN
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine cunbdb6(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO)
CUNBDB6
subroutine cunbdb5(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO)
CUNBDB5