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

fix bug when loading nuclides using capi: invalid index updating

Browse source
This commit is contained in:
liangjg 2019-02-05 21:02:26 -05:00
parent 4878a4601d
commit 5f571a5eaf
2 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/nuclide_header.F90
View file

@ -703,15 +703,13 @@ contains
end function openmc_nuclide_name
subroutine extend_nuclides() bind(C)
integer :: n
type(Nuclide), allocatable :: new_nuclides(:)
! allocate extra space in nuclides array
n = n_nuclides
allocate(new_nuclides(n + 1))
new_nuclides(1:n) = nuclides(:)
allocate(new_nuclides(n_nuclides + 1))
new_nuclides(1:n_nuclides) = nuclides(:)
call move_alloc(FROM=new_nuclides, TO=nuclides)
n = n + 1
n_nuclides = n_nuclides + 1
end subroutine
end module nuclide_header

1
tests/unit_tests/test_capi.py
View file

@ -131,6 +131,7 @@ def test_nuclide_mapping(capi_init):
def test_load_nuclide(capi_init):
openmc.capi.load_nuclide('H3')
openmc.capi.load_nuclide('Pu239')
with pytest.raises(exc.DataError):
openmc.capi.load_nuclide('Pu3')