Mercurial > hg > octave-jordi

changeset 1195:0da1cc2c1947

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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;
     }
--- a/liboctave/dRowVector.h
+++ b/liboctave/dRowVector.h
@@ -119,6 +119,8 @@
   friend RowVector map (d_d_Mapper f, const RowVector& a);
   void map (d_d_Mapper f);
 
+  RowVector linspace (double x1, double x2, int n);
+
   double min (void) const;
   double max (void) const;