37 char jobv1t,
char jobv2t,
char trans,
51 LAPACK_sorcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &signs, &m, &p,
52 &q, x11, &ldx11, x12, &ldx12, x21, &ldx21, x22, &ldx22,
53 theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, v2t, &ldv2t,
54 work, &lwork, iwork, &info );
126 LAPACK_sorcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &signs, &m,
127 &p, &q, x11, &ldx11_t, x12, &ldx12_t, x21, &ldx21_t,
128 x22, &ldx22_t, theta, u1, &ldu1_t, u2, &ldu2_t, v1t,
129 &ldv1t_t, v2t, &ldv2t_t, work, &lwork, iwork,
131 return (info < 0) ? (info - 1) : info;
135 if( x11_t == NULL ) {
140 if( x12_t == NULL ) {
145 if( x21_t == NULL ) {
150 if( x22_t == NULL ) {
172 if( v1t_t == NULL ) {
180 if( v2t_t == NULL ) {
195 LAPACK_sorcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &signs, &m, &p,
196 &q, x11_t, &ldx11_t, x12_t, &ldx12_t, x21_t, &ldx21_t,
197 x22_t, &ldx22_t, theta, u1_t, &ldu1_t, u2_t, &ldu2_t,
198 v1t_t, &ldv1t_t, v2t_t, &ldv2t_t, work, &lwork, iwork,