Mercurial > hg > octave-lojdl
changeset 1195:0da1cc2c1947
[project @ 1995-03-31 16:11:43 by jwe]
author | jwe |
---|---|
date | Fri, 31 Mar 1995 16:16:34 +0000 |
parents | 621fef7bcca1 |
children | c01e881ccbb1 |
files | liboctave/CMatrix.cc liboctave/CRowVector.h liboctave/dMatrix.cc liboctave/dRowVector.h |
diffstat | 4 files changed, 20 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/CMatrix.cc +++ b/liboctave/CMatrix.cc @@ -934,8 +934,8 @@ F77_FCN (zgeco) (tmp_data, &nr, &nc, ipvt, &rcond, z); - volatile double tmp_rcond = rcond; - if (tmp_rcond + 1.0 == 1.0) + volatile double rcond_plus_one = rcond + 1.0; + if (rcond_plus_one == 1.0) { info = -1; copy (tmp_data, data (), len); // Restore contents. @@ -1205,8 +1205,8 @@ F77_FCN (zgeco) (tmp_data, &nr, &nr, ipvt, &rcond, z); - volatile double tmp_rcond = rcond; - if (tmp_rcond + 1.0 == 1.0) + volatile double rcond_plus_one = rcond + 1.0; + if (rcond_plus_one == 1.0) { info = -1; retval = ComplexDET (); @@ -1287,8 +1287,8 @@ F77_FCN (zgeco) (tmp_data, &nr, &nr, ipvt, &rcond, z); - volatile double tmp_rcond = rcond; - if (tmp_rcond + 1.0 == 1.0) + volatile double rcond_plus_one = rcond + 1.0; + if (rcond_plus_one == 1.0) { info = -2; } @@ -1350,8 +1350,8 @@ F77_FCN (zgeco) (tmp_data, &nr, &nr, ipvt, &rcond, z); - volatile double tmp_rcond = rcond; - if (tmp_rcond + 1.0 == 1.0) + volatile double rcond_plus_one = rcond + 1.0; + if (rcond_plus_one == 1.0) { info = -2; }
--- a/liboctave/CRowVector.h +++ b/liboctave/CRowVector.h @@ -133,6 +133,8 @@ friend RowVector map (d_c_Mapper f, const ComplexRowVector& a); void map (c_c_Mapper f); + ComplexRowVector linspace (const Complex& x1, const Complex& x2, int n); + Complex min (void) const; Complex max (void) const;
--- a/liboctave/dMatrix.cc +++ b/liboctave/dMatrix.cc @@ -583,8 +583,8 @@ F77_FCN (dgeco) (tmp_data, &nr, &nc, ipvt, &rcond, z); - volatile double tmp_rcond = rcond; - if (tmp_rcond + 1.0 == 1.0) + volatile double rcond_plus_one = rcond + 1.0; + if (rcond_plus_one == 1.0) { info = -1; copy (tmp_data, data (), len); // Restore matrix contents. @@ -854,8 +854,8 @@ F77_FCN (dgeco) (tmp_data, &nr, &nr, ipvt, &rcond, z); - volatile double tmp_rcond = rcond; - if (tmp_rcond + 1.0 == 1.0) + volatile double rcond_plus_one = rcond + 1.0; + if (rcond_plus_one == 1.0) { info = -1; retval = DET (); @@ -913,8 +913,8 @@ F77_FCN (dgeco) (tmp_data, &nr, &nr, ipvt, &rcond, z); - volatile double tmp_rcond = rcond; - if (tmp_rcond + 1.0 == 1.0) + volatile double rcond_plus_one = rcond + 1.0; + if (rcond_plus_one == 1.0) { info = -2; } @@ -995,8 +995,8 @@ F77_FCN (dgeco) (tmp_data, &nr, &nr, ipvt, &rcond, z); - volatile double tmp_rcond = rcond; - if (tmp_rcond + 1.0 == 1.0) + volatile double rcond_plus_one = rcond + 1.0; + if (rcond_plus_one == 1.0) { info = -2; }