Mercurial > octave-nkf

diff liboctave/CMatrix.cc @ 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 b6360f2d4fa6
children 8302fab9fe24
line wrap: on
line diff
--- a/liboctave/CMatrix.cc	Fri Mar 31 05:12:26 1995 +0000
+++ b/liboctave/CMatrix.cc	Fri Mar 31 16:16:34 1995 +0000
@@ -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;
     }