Mercurial > hg > octave-nkf

changeset 8713:02d4c764de61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix typo in previous patch
author Jaroslav Hajek <highegg@gmail.com>
date Tue, 10 Feb 2009 11:22:05 +0100
parents 010e15c7be9a
children 1f0c3b2961d7
files src/DLD-FUNCTIONS/__pchip_deriv__.cc
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/__pchip_deriv__.cc
+++ b/src/DLD-FUNCTIONS/__pchip_deriv__.cc
@@ -21,9 +21,6 @@
 
 */
 
-// Jaroslav Hajek, Feb 2008: handle row-wise derivatives,
-// use const pointers to avoid unnecessary copying.
-
 #ifdef HAVE_CONFIG_H
 #include <config.h>
 #endif
@@ -85,7 +82,7 @@
 
 	  octave_idx_type ierr;
           const octave_idx_type incfd = rows ? nyr : 1;
-          const octave_idx_type inc = rows ? 1 : nyc;
+          const octave_idx_type inc = rows ? 1 : nyr;
 
           for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--)
 	    {
@@ -125,7 +122,7 @@
 
 	  octave_idx_type ierr;
           const octave_idx_type incfd = rows ? nyr : 1;
-          const octave_idx_type inc = rows ? 1 : nyc;
+          const octave_idx_type inc = rows ? 1 : nyr;
 
           for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--)
 	    {