crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Remove call to list_size from add_grid_points.

Browse source
This commit is contained in:
Paul Romano 2011-12-16 12:54:09 -06:00
parent efe3feeb54
commit 56de9654ad
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/energy_grid.F90
View file

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