[Octave-cvsupdate] octave-forge/main/sparse sparse_ops.h,1.16,1.17

[Paul K. <pki...@us...>]

Update of /cvsroot/octave/octave-forge/main/sparse
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12026/main/sparse

Modified Files:
	sparse_ops.h 
Log Message:
Sparse row was being set to one in the constructor.


Index: sparse_ops.h
===================================================================
RCS file: /cvsroot/octave/octave-forge/main/sparse/sparse_ops.h,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- sparse_ops.h	14 Nov 2005 18:24:53 -0000	1.16
+++ sparse_ops.h	3 Jan 2006 02:06:58 -0000	1.17
@@ -19,6 +19,9 @@
 $Id$
 
 $Log$
+Revision 1.17  2006/01/03 02:06:58  pkienzle
+Sparse row was being set to one in the constructor.
+
 Revision 1.16  2005/11/14 18:24:53  aadler
 Define INT64 type to properly handle large matrices
 
@@ -335,7 +338,7 @@
          ii++; \
          coefX[ii]=   coefA( cf_scalar ? 0 : idx ); \
          double ri=   ridxA( ri_scalar ? 0 : idx ) - 1 ; \
-         ridxX[ii]=   ri - (ri/m64)*m64 ; \
+         ridxX[ii]=   ri - floor(ri/m64)*m64 ; \
          double ci=   cidxA( ci_scalar ? 0 : idx ) - 1 ; \
          while( cx < ci ) cidxX[++cx]= ii; \
       } else { \