From 03b433f8f3f8baee2d433279f87391d4393d67c1 Mon Sep 17 00:00:00 2001
From: Adam Nelson <nelsonag@umich.edu>
Date: Sat, 13 Feb 2016 14:06:48 -0500
Subject: [PATCH] Whoops... left in a debug check from rejection sampling.
 cleaned it up

---
 src/scattdata_header.F90 | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/scattdata_header.F90 b/src/scattdata_header.F90
index b2c8ba3e3c..b04115e570 100644
--- a/src/scattdata_header.F90
+++ b/src/scattdata_header.F90
@@ -375,9 +375,6 @@ contains
     do
       mu = TWO * prn() - ONE
       f = this % calc_f(gin,gout,mu)
-if (f > M) then
-call fatal_error("Legendre exceeds Max Value!!!")
-end if
       if (f > ZERO) then
         u = prn() * M
         if (u <= f) then