[GRASS-SVN] r39800 - grass/branches/develbranch_6/imagery/i.pca

[svn_grass at osgeo.org]

Author: glynn
Date: 2009-11-25 18:50:16 -0500 (Wed, 25 Nov 2009)
New Revision: 39800

Modified:
   grass/branches/develbranch_6/imagery/i.pca/main.c
Log:
Fix bug in calc_mu (reported by Peng Du)


Modified: grass/branches/develbranch_6/imagery/i.pca/main.c
===================================================================
--- grass/branches/develbranch_6/imagery/i.pca/main.c	2009-11-25 23:15:34 UTC (rev 39799)
+++ grass/branches/develbranch_6/imagery/i.pca/main.c	2009-11-25 23:50:16 UTC (rev 39800)
@@ -256,12 +256,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));
 	    }
 	}