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

Changed reading of probability tables (possibly problem with contiguous memory in multidimensional array).

Browse source
This commit is contained in:
Paul Romano 2011-09-14 15:19:42 -04:00
parent 6edd39d840
commit 276e421d77
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cross_section.f90
View file

@ -930,6 +930,7 @@ contains
integer :: M ! # of probabilities
integer :: i ! index over incoming energies
integer :: j ! index over values
integer :: k ! index over probabilities
! determine locator for URR data
JXS23 = JXS(23)
@ -966,7 +967,10 @@ contains
! read probability tables
do i = 1, N
do j = 1, 6
nuc % urr_data % prob(i,j,1:M) = get_real(M)
do k = 1, M
nuc % urr_data % prob(i,j,k) = XSS(XSS_index)
XSS_index = XSS_index + 1
end do
end do
end do