← Back to branch summary

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

« back to all changes in this revision

Viewing changes to liboctave/fCMatrix.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/fCMatrix.cc
1782
1782
      else if (typ == MatrixType::Full || typ == MatrixType::Hermitian)
1783
1783
        {
1784
1784
          float anorm = -1.0;
1785
 
          FloatComplexMatrix atmp = *this;
1786
 
          FloatComplex *tmp_data = atmp.fortran_vec ();
1787
1785
 
1788
1786
          if (typ == MatrixType::Hermitian)
1789
1787
            {
1790
1788
              octave_idx_type info = 0;
1791
1789
              char job = 'L';
 
1790
 
 
1791
              FloatComplexMatrix atmp = *this;
 
1792
              FloatComplex *tmp_data = atmp.fortran_vec ();
 
1793
 
1792
1794
              anorm = atmp.abs().sum().
1793
1795
                row(static_cast<octave_idx_type>(0)).max();
1794
1796
 
1825
1827
            {
1826
1828
              octave_idx_type info = 0;
1827
1829
 
 
1830
              FloatComplexMatrix atmp = *this;
 
1831
              FloatComplex *tmp_data = atmp.fortran_vec ();
 
1832
 
1828
1833
              Array<octave_idx_type> ipvt (dim_vector (nr, 1));
1829
1834
              octave_idx_type *pipvt = ipvt.fortran_vec ();
1830
1835
 
2094
2099
        {
2095
2100
          info = 0;
2096
2101
          char job = 'L';
 
2102
 
2097
2103
          FloatComplexMatrix atmp = *this;
2098
2104
          FloatComplex *tmp_data = atmp.fortran_vec ();
 
2105
 
2099
2106
          anorm = atmp.abs().sum().row(static_cast<octave_idx_type>(0)).max();
2100
2107
 
2101
2108
          F77_XFCN (cpotrf, CPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr,