From 56de9654adb77e4a33881a53164e0071febbf73e Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Fri, 16 Dec 2011 12:54:09 -0600
Subject: [PATCH] Remove call to list_size from add_grid_points.

---
 src/energy_grid.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/energy_grid.F90 b/src/energy_grid.F90
index d2351c94cf..39f5fcd31f 100644
--- a/src/energy_grid.F90
+++ b/src/energy_grid.F90
@@ -99,7 +99,7 @@ contains
 
     ! if the original list is empty, we need to allocate the first element and
     ! store first energy point
-    if (list_size(list) == 0) then
+    if (.not. associated(list)) then
        allocate(list)
        current => list
        do i = 1, n