diff src/ov-base-sparse.cc @ 5275:23b37da9fd5b

[project @ 2005-04-08 16:07:35 by jwe]
author jwe
date Fri, 08 Apr 2005 16:07:37 +0000
parents 57077d0ddc8e
children 4c8a2e4e0717
line wrap: on
line diff
--- a/src/ov-base-sparse.cc
+++ b/src/ov-base-sparse.cc
@@ -47,7 +47,7 @@
 {
   octave_value retval;
 
-  int n_idx = idx.length ();
+  octave_idx_type n_idx = idx.length ();
 
   int nd = matrix.ndims ();
 
@@ -84,7 +84,7 @@
 	  {
 	    Array<idx_vector> idx_vec (n_idx);
 
-	    for (int i = 0; i < n_idx; i++)
+	    for (octave_idx_type i = 0; i < n_idx; i++)
 	      {
 		idx_vec(i) = idx(i).index_vector ();
 
@@ -181,9 +181,9 @@
 void 
 octave_base_sparse<T>::assign (const octave_value_list& idx, const T& 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);
@@ -196,8 +196,8 @@
 {
   bool retval = false;
   dim_vector dv = matrix.dims ();
-  int nel = dv.numel ();
-  int nz = nnz ();
+  octave_idx_type nel = dv.numel ();
+  octave_idx_type nz = nnz ();
 
   if (nz == nel && nel > 0)
     {
@@ -241,9 +241,9 @@
 octave_base_sparse<T>::print_raw (std::ostream& os,
 				      bool pr_as_read_syntax) const
 {
-  int nr = matrix.rows ();
-  int nc = matrix.cols ();
-  int nz = nonzero ();
+  octave_idx_type nr = matrix.rows ();
+  octave_idx_type nc = matrix.cols ();
+  octave_idx_type nz = nonzero ();
 
   os << "Compressed Column Sparse (rows=" << nr <<
     ", cols=" << nc <<
@@ -254,10 +254,10 @@
 
   if (nz != 0)
     {
-      for (int j = 0; j < nc; j++)
+      for (octave_idx_type j = 0; j < nc; j++)
 	{
 	  OCTAVE_QUIT;
-	  for (int i = matrix.cidx(j); i < matrix.cidx(j+1); i++)
+	  for (octave_idx_type i = matrix.cidx(j); i < matrix.cidx(j+1); i++)
 	    {
 	      os << "\n";
 	      os << "  (" << matrix.ridx(i)+1 <<
@@ -290,9 +290,9 @@
 bool 
 octave_base_sparse<T>::load_ascii (std::istream& is)
 {
-  int nz = 0;
-  int nr = 0;
-  int nc = 0;
+  octave_idx_type nz = 0;
+  octave_idx_type nr = 0;
+  octave_idx_type nc = 0;
   bool success = true;
 
   if (extract_keyword (is, "nnz", nz, true) &&