[GRASS-SVN] r39804 - grass/branches/releasebranch_6_4/imagery/i.pca

[svn_grass at osgeo.org]

Author: neteler
Date: 2009-11-26 13:31:05 -0500 (Thu, 26 Nov 2009)
New Revision: 39804

Modified:
   grass/branches/releasebranch_6_4/imagery/i.pca/main.c
Log:
Glynn: Fix bug in calc_mu (reported by Peng Du); as for r39800 in 6.x

Modified: grass/branches/releasebranch_6_4/imagery/i.pca/main.c
===================================================================
--- grass/branches/releasebranch_6_4/imagery/i.pca/main.c	2009-11-26 18:08:02 UTC (rev 39803)
+++ grass/branches/releasebranch_6_4/imagery/i.pca/main.c	2009-11-26 18:31:05 UTC (rev 39804)
@@ -260,12 +260,12 @@
 
 	    for (col = 0; col < cols; col++) {
 		/* skip null cells */
-		if (G_is_null_value(rowbuf, maptype)) {
+		if (G_is_null_value(ptr, maptype)) {
 		    ptr = G_incr_void_ptr(ptr, G_raster_size(maptype));
 		    continue;
 		}
 
-		sum += G_get_raster_value_d(rowbuf, maptype);
+		sum += G_get_raster_value_d(ptr, maptype);
 		ptr = G_incr_void_ptr(ptr, G_raster_size(maptype));
 	    }
 	}