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

Merge branch 'master' into refactor

Browse source
This commit is contained in:
Paul Romano 2013-07-07 21:56:12 -04:00
commit a6bda2c5a6
3 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/geometry.F90
View file

@ -560,7 +560,8 @@ contains
end select
! Set new particle direction
p % coord0 % uvw = (/ u, v, w /)
norm = sqrt(u*u + v*v + w*w)
p % coord0 % uvw = [u, v, w] / norm
! Reassign particle's cell and surface
p % coord0 % cell = last_cell

4
src/input_xml.F90
View file

@ -2552,7 +2552,9 @@ contains
! create dictionary entry for both name and alias
call xs_listing_dict % add_key(listing % name, i)
call xs_listing_dict % add_key(listing % alias, i)
if (listing % alias /= '') then
call xs_listing_dict % add_key(listing % alias, i)
end if
end do
end subroutine read_cross_sections_xml

2
src/templates/cross_sections_t.xml
View file

@ -7,7 +7,7 @@
<typedef name="ace_table_xml">
<component name="name" type="word" length="15" />
<component name="alias" type="word" length="15" />
<component name="alias" type="word" length="15" default="''" />
<component name="type" type="word" length="10" default="'neutron'" />
<component name="zaid" type="integer" default="0" />
<component name="metastable" type="integer" default="0" />