39 float*,
const octave_idx_type&,
float*,
40 float*,
const octave_idx_type&,
float*,
41 const octave_idx_type&,
float*,
42 const octave_idx_type&, octave_idx_type&
48 const octave_idx_type&,
const octave_idx_type&,
49 float*,
const octave_idx_type&,
float*,
50 float*,
const octave_idx_type&,
float*,
51 const octave_idx_type&,
float*,
52 const octave_idx_type&, octave_idx_type *,
62 (*current_liboctave_error_handler)
63 (
"FloatSVD: U not computed because type == SVD::sigma_only");
75 (*current_liboctave_error_handler)
76 (
"FloatSVD: V not computed because type == SVD::sigma_only");
109 ncol_u = nrow_vt = nrow_s = ncol_s = min_mn;
123 ncol_u = nrow_vt = 1;
132 if (! (jobu ==
'N' || jobu ==
'O'))
140 if (! (jobv ==
'N' || jobv ==
'O'))
159 m, n, tmp_data, m1, s_vec, u, m1, vt,
169 m, n, tmp_data, m1, s_vec, u, m1, vt,
177 assert (jobu == jobv);
182 m, n, tmp_data, m1, s_vec, u, m1, vt, nrow_vt1,
190 m, n, tmp_data, m1, s_vec, u, m1, vt, nrow_vt1,
198 if (! (jobv ==
'N' || jobv ==
'O'))