From e5749cbff0fa7a8955f72c49facaf6137a08296f Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Thu, 26 Apr 2007 14:46:54 +0000
Subject: [PATCH] changed scatter check for gauss components to if(noise==0)

---
 trunk/math.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/trunk/math.f90 b/trunk/math.f90
index bb9442050..1a7314432 100644
--- a/trunk/math.f90
+++ b/trunk/math.f90
@@ -726,7 +726,7 @@
  real(pReal) noise,scatter,cosScatter
  integer(pInt) i
 
-if (noise<=0.01) then
+if (noise==0.0) then
     math_sampleGaussOri = center
     return
 endif