156 SUBROUTINE cunbdb5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
157 $ ldq2, work, lwork, info )
165 INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2,
169 COMPLEX Q1(ldq1,*), Q2(ldq2,*), WORK(*), X1(*), X2(*)
176 parameter ( one = (1.0e0,0.0e0), zero = (0.0e0,0.0e0) )
179 INTEGER CHILDINFO, I, J
198 ELSE IF( m2 .LT. 0 )
THEN
200 ELSE IF( n .LT. 0 )
THEN
202 ELSE IF( incx1 .LT. 1 )
THEN
204 ELSE IF( incx2 .LT. 1 )
THEN
206 ELSE IF( ldq1 .LT. max( 1, m1 ) )
THEN
208 ELSE IF( ldq2 .LT. max( 1, m2 ) )
THEN
210 ELSE IF( lwork .LT. n )
THEN
214 IF( info .NE. 0 )
THEN
215 CALL xerbla(
'CUNBDB5', -info )
221 CALL cunbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2, ldq2,
222 $ work, lwork, childinfo )
226 IF( scnrm2(m1,x1,incx1) .NE. zero
227 $ .OR. scnrm2(m2,x2,incx2) .NE. zero )
THEN
242 CALL cunbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2,
243 $ ldq2, work, lwork, childinfo )
244 IF( scnrm2(m1,x1,incx1) .NE. zero
245 $ .OR. scnrm2(m2,x2,incx2) .NE. zero )
THEN
261 CALL cunbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2,
262 $ ldq2, work, lwork, childinfo )
263 IF( scnrm2(m1,x1,incx1) .NE. zero
264 $ .OR. scnrm2(m2,x2,incx2) .NE. zero )
THEN
subroutine cunbdb6(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO)
CUNBDB6
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine cunbdb5(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO)
CUNBDB5