156 SUBROUTINE zunbdb5( 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*16 Q1(ldq1,*), Q2(ldq2,*), WORK(*), X1(*), X2(*)
176 parameter( one = (1.0d0,0.0d0), zero = (0.0d0,0.0d0) )
179 INTEGER CHILDINFO, I, J
185 DOUBLE PRECISION DZNRM2
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(
'ZUNBDB5', -info )
221 CALL
zunbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2, ldq2,
222 $ work, lwork, childinfo )
226 IF( dznrm2(m1,x1,incx1) .NE. zero
227 $ .OR. dznrm2(m2,x2,incx2) .NE. zero )
THEN
242 CALL
zunbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2,
243 $ ldq2, work, lwork, childinfo )
244 IF( dznrm2(m1,x1,incx1) .NE. zero
245 $ .OR. dznrm2(m2,x2,incx2) .NE. zero )
THEN
261 CALL
zunbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2,
262 $ ldq2, work, lwork, childinfo )
263 IF( dznrm2(m1,x1,incx1) .NE. zero
264 $ .OR. dznrm2(m2,x2,incx2) .NE. zero )
THEN
subroutine zunbdb5(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO)
ZUNBDB5
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine zunbdb6(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO)
ZUNBDB6