41 double* phi,
double* taup1,
double* taup2,
42 double* tauq1,
double* tauq2,
double* work,
48 LAPACK_dorbdb( &trans, &signs, &m, &p, &q, x11, &ldx11, x12, &ldx12,
49 x21, &ldx21, x22, &ldx22, theta, phi, taup1, taup2,
50 tauq1, tauq2, work, &lwork, &info );
90 LAPACK_dorbdb( &trans, &signs, &m, &p, &q, x11, &ldx11_t, x12,
91 &ldx12_t, x21, &ldx21_t, x22, &ldx22_t, theta, phi,
92 taup1, taup2, tauq1, tauq2, work, &lwork, &info );
93 return (info < 0) ? (info - 1) : info;
103 if( x12_t == NULL ) {
108 if( x21_t == NULL ) {
114 if( x22_t == NULL ) {
128 LAPACK_dorbdb( &trans, &signs, &m, &p, &q, x11_t, &ldx11_t, x12_t,
129 &ldx12_t, x21_t, &ldx21_t, x22_t, &ldx22_t, theta, phi,
130 taup1, taup2, tauq1, tauq2, work, &lwork, &info );