Merge branch 'master' into cmfd_parallel

This commit is contained in:
Bryan Herman 2012-03-29 14:37:21 -07:00
commit cee6579776

View file

@ -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