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

fix crash when a material is never used for MG mode

Browse source
This commit is contained in:
liangjg 2018-11-02 16:05:27 -04:00
parent 33e05e330e
commit 293a114a1a
1 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/mgxs_data.F90
View file

@ -126,13 +126,9 @@ contains
name = trim(mat % name) // C_NULL_CHAR
! Do not read materials which we do not actually use in the problem to
! reduce storage
if (allocated(kTs(i_mat) % data)) then
call create_macro_xs_c(name, mat % n_nuclides, mat % nuclide, &
kTs(i_mat) % size(), kTs(i_mat) % data, mat % atom_density, &
temperature_tolerance, temperature_method)
end if
call create_macro_xs_c(name, mat % n_nuclides, mat % nuclide, &
kTs(i_mat) % size(), kTs(i_mat) % data, mat % atom_density, &
temperature_tolerance, temperature_method)
end do
end subroutine create_macro_xs