diff --git a/src/constants.F90 b/src/constants.F90 index c54d7afe44..be0f712fc7 100644 --- a/src/constants.F90 +++ b/src/constants.F90 @@ -321,8 +321,7 @@ module constants ! Source types integer, parameter :: & SRC_BOX = 1, & ! Source in a rectangular prism - SRC_CELL = 2, & ! Source in a cell - SRC_SURFACE = 3 ! Source on a surface + SRC_POINT = 2 ! Source at a single point integer, parameter :: & PROB_SOURCE = 1, & ! External source problem diff --git a/src/input_xml.F90 b/src/input_xml.F90 index cbfef818a3..3f92b0b250 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -140,6 +140,9 @@ contains case ('box') external_source % type = SRC_BOX coeffs_reqd = 6 + case ('point') + external_source % type = SRC_POINT + coeffs_reqd = 3 case default message = "Invalid source type: " // trim(source_ % type) call fatal_error() diff --git a/src/source.F90 b/src/source.F90 index 943f18c52c..e9088e3ddb 100644 --- a/src/source.F90 +++ b/src/source.F90 @@ -93,6 +93,8 @@ contains p_max = external_source % values(4:6) r = (/ (prn(), k = 1,3) /) source_bank(j) % xyz = p_min + r*(p_max - p_min) + case (SRC_POINT) + source_bank(j) % xyz = external_source % values end select ! sample angle