42 float* theta,
float* phi,
52 LAPACK_cunbdb( &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_cunbdb( &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 if( x11_t == NULL ) {
108 ldx12_t *
MAX(1,m-q) );
109 if( x12_t == NULL ) {
115 if( x21_t == NULL ) {
121 ldx22_t *
MAX(1,m-q) );
122 if( x22_t == NULL ) {
136 LAPACK_cunbdb( &trans, &signs, &m, &p, &q, x11_t, &ldx11_t, x12_t,
137 &ldx12_t, x21_t, &ldx21_t, x22_t, &ldx22_t, theta, phi,
138 taup1, taup2, tauq1, tauq2, work, &lwork, &info );