diff src/ov-cx-mat.cc @ 5275:23b37da9fd5b

[project @ 2005-04-08 16:07:35 by jwe]
author jwe
date Fri, 08 Apr 2005 16:07:37 +0000
parents deed800e7bef
children 4c8a2e4e0717
line wrap: on
line diff
--- a/src/ov-cx-mat.cc	Thu Apr 07 21:51:37 2005 +0000
+++ b/src/ov-cx-mat.cc	Fri Apr 08 16:07:37 2005 +0000
@@ -66,8 +66,8 @@
     {
       ComplexMatrix cm = matrix.matrix_value ();
 
-      int nr = cm.rows ();
-      int nc = cm.cols ();
+      octave_idx_type nr = cm.rows ();
+      octave_idx_type nc = cm.cols ();
 
       if (nr == 1 && nc == 1)
 	{
@@ -100,9 +100,9 @@
 octave_complex_matrix::assign (const octave_value_list& idx,
 			       const NDArray& rhs)
 {
-  int len = idx.length ();
+  octave_idx_type len = idx.length ();
 
-  for (int i = 0; i < len; i++)
+  for (octave_idx_type i = 0; i < len; i++)
     matrix.set_index (idx(i).index_vector ());
 
   ::assign (matrix, rhs);
@@ -201,15 +201,15 @@
 static ComplexMatrix
 strip_infnan (const ComplexMatrix& m)
 {
-  int nr = m.rows ();
-  int nc = m.columns ();
+  octave_idx_type nr = m.rows ();
+  octave_idx_type nc = m.columns ();
 
   ComplexMatrix retval (nr, nc);
 
-  int k = 0;
-  for (int i = 0; i < nr; i++)
+  octave_idx_type k = 0;
+  for (octave_idx_type i = 0; i < nr; i++)
     {
-      for (int j = 0; j < nc; j++)
+      for (octave_idx_type j = 0; j < nc; j++)
 	{
 	  Complex c = m (i, j);
 	  if (xisnan (c))
@@ -260,7 +260,7 @@
 
       os << "# ndims: " << d.length () << "\n";
 
-      for (int i=0; i < d.length (); i++)
+      for (int i = 0; i < d.length (); i++)
 	os << " " << d (i);
 
       os << "\n" << tmp;
@@ -299,13 +299,13 @@
   keywords[1] = "rows";
 
   std::string kw;
-  int val = 0;
+  octave_idx_type val = 0;
 
   if (extract_keyword (is, keywords, kw, val, true))
     {
       if (kw == "ndims")
 	{
-	  int mdims = val;
+	  int mdims = static_cast<int> (val);
 
 	  if (mdims >= 0)
 	    {
@@ -333,8 +333,8 @@
 	}
       else if (kw == "rows")
 	{
-	  int nr = val;
-	  int nc = 0;
+	  octave_idx_type nr = val;
+	  octave_idx_type nc = 0;
 
 	  if (nr >= 0 && extract_keyword (is, "columns", nc) && nc >= 0)
 	    {
@@ -382,7 +382,7 @@
   // Use negative value for ndims to differentiate with old format!!
   FOUR_BYTE_INT tmp = - d.length();
   os.write (X_CAST (char *, &tmp), 4);
-  for (int i=0; i < d.length (); i++)
+  for (int i = 0; i < d.length (); i++)
     {
       tmp = d(i);
       os.write (X_CAST (char *, &tmp), 4);
@@ -475,7 +475,7 @@
 	return false;
       ComplexMatrix m (nr, nc);
       Complex *im = m.fortran_vec ();
-      int len = nr * nc;
+      octave_idx_type len = nr * nc;
       read_doubles (is, X_CAST (double *, im),
 		    X_CAST (save_type, tmp), 2*len, swap, fmt);
       if (error_state || ! is)