37 char jobv1t,
char jobv2t,
char trans,
39 float* theta,
float* phi,
float* u1,
43 float* b12d,
float* b12e,
float* b21d,
44 float* b21e,
float* b22d,
float* b22e,
50 LAPACK_sbbcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &m, &p, &q,
51 theta, phi, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, v2t,
52 &ldv2t, b11d, b11e, b12d, b12e, b21d, b21e, b22d, b22e,
53 work, &lwork, &info );
93 LAPACK_sbbcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &m, &p, &q,
94 theta, phi, u1, &ldu1_t, u2, &ldu2_t, v1t, &ldv1t_t,
95 v2t, &ldv2t_t, b11d, b11e, b12d, b12e, b21d, b21e,
96 b22d, b22e, work, &lwork, &info );
97 return (info < 0) ? (info - 1) : info;
118 if( v1t_t == NULL ) {
126 if( v2t_t == NULL ) {
149 LAPACK_sbbcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &m, &p, &q,
150 theta, phi, u1_t, &ldu1_t, u2_t, &ldu2_t, v1t_t,
151 &ldv1t_t, v2t_t, &ldv2t_t, b11d, b11e, b12d, b12e, b21d,
152 b21e, b22d, b22e, work, &lwork, &info );