crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-29 06:35:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Allow law 4 energy distribution with one interpolation region.

Browse source
This commit is contained in:
Paul Romano 2013-04-23 18:54:10 -04:00
parent 10d3327bc4
commit cb59185217
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/physics.F90
View file

@ -1469,7 +1469,11 @@ contains
! read number of interpolation regions and incoming energies
NR = int(edist % data(1))
NE = int(edist % data(2 + 2*NR))
if (NR > 0) then
if (NR == 1) then
message = "Assuming linear-linear interpolation when sampling &
&continuous tabular distribution"
call warning()
else if (NR > 1) then
call write_particle_restart()
message = "Multiple interpolation regions not supported while &
&attempting to sample continuous tabular distribution."