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 bornin to cellborn in XML tallies template.

Browse source
This commit is contained in:
Paul Romano 2011-09-26 08:33:26 -04:00
parent a551f0e2ea
commit c2f97f84bb
2 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/input_xml.f90
View file

@ -605,8 +605,8 @@ contains
end if
! Read birth region filter bins
if (len_trim(tally_(i) % filters % bornin) > 0) then
call split_string(tally_(i) % filters % bornin, words, n_words)
if (len_trim(tally_(i) % filters % cellborn) > 0) then
call split_string(tally_(i) % filters % cellborn, words, n_words)
allocate(t % cellborn_bins(n_words))
do j = 1, n_words
t % cellborn_bins(j) % scalar = str_to_int(words(j))

14
src/xml_tallies.f90
View file

@ -12,7 +12,7 @@ type filter_xml
character(len=250) :: universe
character(len=250) :: material
character(len=250) :: mesh
character(len=250) :: bornin
character(len=250) :: cellborn
character(len=250) :: energy
character(len=250) :: energyout
end type filter_xml
@ -74,7 +74,7 @@ subroutine read_xml_type_filter_xml( info, starttag, endtag, attribs, noattribs,
logical :: has_universe
logical :: has_material
logical :: has_mesh
logical :: has_bornin
logical :: has_cellborn
logical :: has_energy
logical :: has_energyout
has_cell = .false.
@ -82,7 +82,7 @@ subroutine read_xml_type_filter_xml( info, starttag, endtag, attribs, noattribs,
has_universe = .false.
has_material = .false.
has_mesh = .false.
has_bornin = .false.
has_cellborn = .false.
has_energy = .false.
has_energyout = .false.
call init_xml_type_filter_xml(dvar)
@ -153,10 +153,10 @@ subroutine read_xml_type_filter_xml( info, starttag, endtag, attribs, noattribs,
call read_xml_word( &
info, tag, endtag, attribs, noattribs, data, nodata, &
dvar%mesh, has_mesh )
case('bornin')
case('cellborn')
call read_xml_word( &
info, tag, endtag, attribs, noattribs, data, nodata, &
dvar%bornin, has_bornin )
dvar%cellborn, has_cellborn )
case('energy')
call read_xml_word( &
info, tag, endtag, attribs, noattribs, data, nodata, &
@ -192,7 +192,7 @@ subroutine init_xml_type_filter_xml(dvar)
dvar%universe = ''
dvar%material = ''
dvar%mesh = ''
dvar%bornin = ''
dvar%cellborn = ''
dvar%energy = ''
dvar%energyout = ''
end subroutine init_xml_type_filter_xml
@ -223,7 +223,7 @@ subroutine write_xml_type_filter_xml( &
call write_to_xml_word( info, 'universe', indent+3, dvar%universe)
call write_to_xml_word( info, 'material', indent+3, dvar%material)
call write_to_xml_word( info, 'mesh', indent+3, dvar%mesh)
call write_to_xml_word( info, 'bornin', indent+3, dvar%bornin)
call write_to_xml_word( info, 'cellborn', indent+3, dvar%cellborn)
call write_to_xml_word( info, 'energy', indent+3, dvar%energy)
call write_to_xml_word( info, 'energyout', indent+3, dvar%energyout)
write(info%lun,'(4a)') indentation(1:min(indent,100)), &