41 float* phi,
float* taup1,
float* taup2,
42 float* tauq1,
float* tauq2,
float* work,
48 LAPACK_sorbdb( &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_sorbdb( &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;
102 if( x12_t == NULL ) {
107 if( x21_t == NULL ) {
112 if( x22_t == NULL ) {
126 LAPACK_sorbdb( &trans, &signs, &m, &p, &q, x11_t, &ldx11_t, x12_t,
127 &ldx12_t, x21_t, &ldx21_t, x22_t, &ldx22_t, theta, phi,
128 taup1, taup2, tauq1, tauq2, work, &lwork, &info );