← Back to branch summary

~ubuntu-branches/ubuntu/wily/octave/wily

« back to all changes in this revision

Viewing changes to liboctave/floatSVD.cc

  • Committer: Package Import Robot
  • Author(s): Sébastien Villemot
  • Date: 2013-05-14 12:42:41 UTC
  • mfrom: (5.1.3 experimental)
  • Revision ID: package-import@ubuntu.com-20130514124241-dqow8bc0l4r3yj93
Tags: 3.6.4-2
* Adapt for Texinfo 5
  - add_info_dir_categories: use @dircategory in the patch
  - texinfo5.diff: new patch, fixes compatibility issues with Texinfo 5
* Upgrade to FLTK 1.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
liboctave/floatSVD.cc
118
118
      //
119
119
      // For Lapack 3.0, this problem seems to be fixed.
120
120
 
121
 
      jobu = 'N';
122
 
      jobv = 'N';
 
121
      jobu = jobv = 'N';
123
122
      ncol_u = nrow_vt = 1;
124
123
      break;
125
124
 
142
141
 
143
142
  float *vt = right_sm.fortran_vec ();
144
143
 
145
 
  // Ask DGESVD what the dimension of WORK should be.
 
144
  // Query SGESVD for the correct dimension of WORK.
146
145
 
147
146
  octave_idx_type lwork = -1;
148
147
 
149
148
  Array<float> work (dim_vector (1, 1));
150
149
 
151
150
  octave_idx_type one = 1;
152
 
  octave_idx_type m1 = std::max (m, one), nrow_vt1 = std::max (nrow_vt, one);
 
151
  octave_idx_type m1 = std::max (m, one);
 
152
  octave_idx_type nrow_vt1 = std::max (nrow_vt, one);
153
153
 
154
154
  if (svd_driver == SVD::GESVD)
155
155
    {