42 double* theta,
double* phi,
52 LAPACK_zunbdb( &trans, &signs, &m, &p, &q, x11, &ldx11, x12, &ldx12,
53 x21, &ldx21, x22, &ldx22, theta, phi, taup1, taup2,
54 tauq1, tauq2, work, &lwork, &info );
94 LAPACK_zunbdb( &trans, &signs, &m, &p, &q, x11, &ldx11_t, x12,
95 &ldx12_t, x21, &ldx21_t, x22, &ldx22_t, theta, phi,
96 taup1, taup2, tauq1, tauq2, work, &lwork, &info );
97 return (info < 0) ? (info - 1) : info;
102 ldx11_t *
MAX(1,q) );
103 if( x11_t == NULL ) {
109 ldx12_t *
MAX(1,m-q) );
110 if( x12_t == NULL ) {
116 ldx21_t *
MAX(1,q) );
117 if( x21_t == NULL ) {
123 ldx22_t *
MAX(1,m-q) );
124 if( x22_t == NULL ) {
138 LAPACK_zunbdb( &trans, &signs, &m, &p, &q, x11_t, &ldx11_t, x12_t,
139 &ldx12_t, x21_t, &ldx21_t, x22_t, &ldx22_t, theta, phi,
140 taup1, taup2, tauq1, tauq2, work, &lwork, &info );