37 char jobv1t,
char jobv2t,
char trans,
55 LAPACK_zuncsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &signs, &m, &p,
56 &q, x11, &ldx11, x12, &ldx12, x21, &ldx21, x22, &ldx22,
57 theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, v2t, &ldv2t,
58 work, &lwork, rwork, &lrwork, iwork, &info );
129 if( lrwork == -1 || lwork == -1 ) {
130 LAPACK_zuncsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &signs, &m,
131 &p, &q, x11, &ldx11_t, x12, &ldx12_t, x21, &ldx21_t,
132 x22, &ldx22_t, theta, u1, &ldu1_t, u2, &ldu2_t, v1t,
133 &ldv1t_t, v2t, &ldv2t_t, work, &lwork, rwork,
134 &lrwork, iwork, &info );
135 return (info < 0) ? (info - 1) : info;
140 ldx11_t *
MAX(1,q) );
141 if( x11_t == NULL ) {
147 ldx12_t *
MAX(1,m-q) );
148 if( x12_t == NULL ) {
154 ldx21_t *
MAX(1,q) );
155 if( x21_t == NULL ) {
161 ldx22_t *
MAX(1,m-q) );
162 if( x22_t == NULL ) {
178 ldu2_t *
MAX(1,m-p) );
187 ldv1t_t *
MAX(1,q) );
188 if( v1t_t == NULL ) {
196 ldv2t_t *
MAX(1,m-q) );
197 if( v2t_t == NULL ) {
212 LAPACK_zuncsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &signs, &m, &p,
213 &q, x11_t, &ldx11_t, x12_t, &ldx12_t, x21_t, &ldx21_t,
214 x22_t, &ldx22_t, theta, u1_t, &ldu1_t, u2_t, &ldu2_t,
215 v1t_t, &ldv1t_t, v2t_t, &ldv2t_t, work, &lwork, rwork,
216 &lrwork, iwork, &info );