[GRASS-SVN] r42709 - grass-addons/imagery/i.topo.corr

[svn_grass at osgeo.org]

Author: neteler
Date: 2010-07-07 09:03:14 +0000 (Wed, 07 Jul 2010)
New Revision: 42709

Modified:
   grass-addons/imagery/i.topo.corr/correction.c
Log:
added debug output

Modified: grass-addons/imagery/i.topo.corr/correction.c
===================================================================
--- grass-addons/imagery/i.topo.corr/correction.c	2010-07-07 08:27:30 UTC (rev 42708)
+++ grass-addons/imagery/i.topo.corr/correction.c	2010-07-07 09:03:14 UTC (rev 42709)
@@ -135,6 +135,7 @@
 	    }
 	    else {
 		ref_i = (double)*((DCELL *) pref);
+		G_debug(3,"Old val: %f, cka: %f, cos_i: %f, ckb: %f, kk: %f, New val: %f\n", ref_i, cka, cos_i, ckb, kk, (DCELL) ref_i * pow(cka / (cos_i + ckb), kk));
 		((DCELL *) out->rast)[col] =
 		    (DCELL) (ref_i * pow(cka / (cos_i + ckb), kk));
 	    }