From 276e421d7742e6551bef071de62ed388463915bf Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Wed, 14 Sep 2011 15:19:42 -0400 Subject: [PATCH] Changed reading of probability tables (possibly problem with contiguous memory in multidimensional array). --- src/cross_section.f90 | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/cross_section.f90 b/src/cross_section.f90 index ef2125c384..94e0d493c9 100644 --- a/src/cross_section.f90 +++ b/src/cross_section.f90 @@ -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