From c663e27b1ebaf5ae7a4677e0db2b71c51082d873 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Thu, 29 Mar 2012 17:05:43 -0400
Subject: [PATCH] Fixed n_groups in count_fission_sites.

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

diff --git a/src/mesh.F90 b/src/mesh.F90
index 9fc4e6da9..a9fab038a 100644
--- a/src/mesh.F90
+++ b/src/mesh.F90
@@ -189,7 +189,7 @@ contains
 
     ! Determine number of energies in group structure
     if (present(energies)) then
-       n_groups = size(energies)
+       n_groups = size(energies) - 1
     else
        n_groups = 1
     end if