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

[svn_grass at osgeo.org]

Author: neteler
Date: 2010-07-10 04:32:06 +0000 (Sat, 10 Jul 2010)
New Revision: 42753

Modified:
   grass-addons/imagery/i.topo.corr/correction.c
Log:
bugfix for cosine correction

Modified: grass-addons/imagery/i.topo.corr/correction.c
===================================================================
--- grass-addons/imagery/i.topo.corr/correction.c	2010-07-10 00:01:24 UTC (rev 42752)
+++ grass-addons/imagery/i.topo.corr/correction.c	2010-07-10 04:32:06 UTC (rev 42753)
@@ -100,7 +100,7 @@
 	kk = 1.;
 	break;
     default:			/* COSINE */
-	cka = 0.;
+	cka = cos_z;
 	ckb = 0.;
 	kk = 1.;
     }