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

fixed error in issuing particle filter warning

Browse source
This commit is contained in:
samuelshaner 2017-07-13 09:39:26 -04:00
parent 8da0636ab8
commit dc32bccfc3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/input_xml.F90
View file

@ -4170,10 +4170,10 @@ contains
select type(filt => filters(t % find_filter(FILTER_PARTICLE)) % obj)
type is (ParticleFilter)
do l = 1, filt % n_bins
if (filt % bins % data(l) /= NEUTRON) then
if (filt % particles(l) /= NEUTRON) then
call warning("Particle filter other than NEUTRON used with &
&photon transport turn off. All tallies for particle &
&type " // trim(to_str(filt % bins % data(l))) // " will have no scores")
&type " // trim(to_str(filt % particles(l))) // " will have no scores")
end if
end do
end select