[GRASS-SVN] r39801 - grass/trunk/imagery/i.pca

[svn_grass at osgeo.org]

Author: glynn
Date: 2009-11-25 18:51:26 -0500 (Wed, 25 Nov 2009)
New Revision: 39801

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



Modified: grass/trunk/imagery/i.pca/main.c
===================================================================
--- grass/trunk/imagery/i.pca/main.c	2009-11-25 23:50:16 UTC (rev 39800)
+++ grass/trunk/imagery/i.pca/main.c	2009-11-25 23:51:26 UTC (rev 39801)
@@ -256,12 +256,12 @@
 
 	    for (col = 0; col < cols; col++) {
 		/* skip null cells */
-		if (Rast_is_null_value(rowbuf, maptype)) {
+		if (Rast_is_null_value(ptr, maptype)) {
 		    ptr = G_incr_void_ptr(ptr, Rast_cell_size(maptype));
 		    continue;
 		}
 
-		sum += Rast_get_d_value(rowbuf, maptype);
+		sum += Rast_get_d_value(ptr, maptype);
 		ptr = G_incr_void_ptr(ptr, Rast_cell_size(maptype));
 	    }
 	}