154 SUBROUTINE dorbdb5( 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 DOUBLE PRECISION Q1(LDQ1,*), Q2(LDQ2,*), WORK(*), X1(*), X2(*)
172 DOUBLE PRECISION ONE, ZERO
173 parameter( one = 1.0d0, zero = 0.0d0 )
176 INTEGER CHILDINFO, I, J
182 DOUBLE PRECISION DNRM2
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(
'DORBDB5', -info )
218 CALL dorbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2, ldq2,
219 $ work, lwork, childinfo )
223 IF( dnrm2(m1,x1,incx1) .NE. zero
224 $ .OR. dnrm2(m2,x2,incx2) .NE. zero )
THEN
239 CALL dorbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2,
240 $ ldq2, work, lwork, childinfo )
241 IF( dnrm2(m1,x1,incx1) .NE. zero
242 $ .OR. dnrm2(m2,x2,incx2) .NE. zero )
THEN
258 CALL dorbdb6( m1, m2, n, x1, incx1, x2, incx2, q1, ldq1, q2,
259 $ ldq2, work, lwork, childinfo )
260 IF( dnrm2(m1,x1,incx1) .NE. zero
261 $ .OR. dnrm2(m2,x2,incx2) .NE. zero )
THEN
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine dorbdb5(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO)
DORBDB5
subroutine dorbdb6(M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, LDQ2, WORK, LWORK, INFO)
DORBDB6