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

Looks like the tally label is working great. Willing to merge back to master after i give it some time to make sure this is feature complete.

Browse source
This commit is contained in:
Adam Nelson 2012-07-14 14:31:30 -04:00
parent 2d7e3e7f7e
commit 8afbc65217
3 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/tally.F90
View file

@ -1868,8 +1868,12 @@ contains
t => tallies(i)
! Write header block
call header("TALLY " // trim(to_str(t % id)), unit=UNIT_TALLY, level=3)
write(*,*) t % label
if (t % label == "") then
call header("TALLY " // trim(to_str(t % id)), unit=UNIT_TALLY, level=3)
else
call header("TALLY " // trim(t % label), unit=UNIT_TALLY, level=3)
endif
! Handle surface current tallies separately
if (t % type == TALLY_SURFACE_CURRENT) then
call write_surface_current(t)

2
src/tally_header.F90
View file

@ -60,7 +60,7 @@ module tally_header
! Basic data
integer :: id ! user-defined identifier
character(len=10) :: label ! user-defined label
character(len=55) :: label ! user-defined label
integer :: type ! volume, surface current
integer :: estimator ! collision, track-length
real(8) :: volume ! volume of region

2
src/xml-fortran/templates/tallies_t.xml
View file

@ -24,7 +24,7 @@
<typedef name="tally_xml">
<component name="id" type="integer" />
<component name="label" type="word" length="10" default="''" />
<component name="label" type="word" length="55" default="''" />
<component name="filters" type="filter_xml" />
<component name="scores" type="word" length="250" default="''" />
<component name="reactions" type="word" length="250" default="''" />