SCM Repository
Diff of /pkg/src/Csparse.c
Parent Directory
| 
Revision Log
| 
Patch
| revision 2235, Wed Jul 23 10:24:17 2008 UTC | revision 2236, Wed Jul 23 16:48:14 2008 UTC | |
|---|---|---|
| # | Line 23 | Line 23 |
| 23 | if (length(islot) < xp[ncol]) /* allow larger slots from over-allocation!*/ | if (length(islot) < xp[ncol]) /* allow larger slots from over-allocation!*/ |
| 24 | return | return |
| 25 | mkString(_("last element of slot p must match length of slots i and x")); | mkString(_("last element of slot p must match length of slots i and x")); |
| 26 | for (j = 0; j < length(islot); j++) { | for (j = 0; j < xp[ncol]; j++) { |
| 27 | if (xi[j] < 0 || xi[j] >= nrow) | if (xi[j] < 0 || xi[j] >= nrow) |
| 28 | return mkString(_("all row indices must be between 0 and nrow-1")); | return mkString(_("all row indices must be between 0 and nrow-1")); |
| 29 | } | } |
| # | Line 31 | Line 31 |
| 31 | for (j = 0; j < ncol; j++) { | for (j = 0; j < ncol; j++) { |
| 32 | if (xp[j] > xp[j+1]) | if (xp[j] > xp[j+1]) |
| 33 | return mkString(_("slot p must be non-decreasing")); | return mkString(_("slot p must be non-decreasing")); |
| 34 | if(sorted) | if(sorted) /* only act if >= 2 entries in column j : */ |
| 35 | for (k = xp[j] + 1; k < xp[j + 1]; k++) { | for (k = xp[j] + 1; k < xp[j + 1]; k++) { |
| 36 | if (xi[k] < xi[k - 1]) | if (xi[k] < xi[k - 1]) |
| 37 | sorted = FALSE; | sorted = FALSE; |
|
||||||||
| R-Forge@R-project.org | ViewVC Help |
| Powered by ViewVC 1.0.0 |
