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

Changed name/alias for XsListing to 12 characters to allow for aliases.

Browse source
This commit is contained in:
Paul Romano 2011-11-28 09:48:00 -05:00
parent b4ed68158f
commit d37f8f31af
7 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cross_section.f90
View file

@ -42,8 +42,8 @@ contains
integer :: index_list ! index in xs_listings array
integer :: index_nuclides ! index in nuclides
integer :: index_sab ! index in sab_tables
character(10) :: name ! name of isotope, e.g. 92235.03c
character(10) :: alias ! alias of nuclide, e.g. U-235.03c
character(12) :: name ! name of isotope, e.g. 92235.03c
character(12) :: alias ! alias of nuclide, e.g. U-235.03c
type(Material), pointer :: mat => null()
type(Nuclide), pointer :: nuc => null()
type(SAB_Table), pointer :: sab => null()

4
src/cross_section_header.f90
View file

@ -154,8 +154,8 @@ module cross_section_header
!===============================================================================
type XsListing
character(10) :: name ! table name, e.g. 92235.70c
character(10) :: alias ! table alias, e.g. U-235.70c
character(12) :: name ! table name, e.g. 92235.70c
character(12) :: alias ! table alias, e.g. U-235.70c
integer :: type ! type of table (cont-E neutron, S(A,b), etc)
integer :: zaid ! ZAID identifier = 1000*Z + A
integer :: filetype ! ASCII or BINARY

4
src/energy_grid.f90
View file

@ -23,8 +23,8 @@ contains
integer :: i ! index in materials array
integer :: j ! index over nuclides in material
integer :: index_list ! index in xs_listings array
character(10) :: name ! name of isotope, e.g. 92235.03c
character(10) :: alias ! alias of nuclide, e.g. U-235.03c
character(12) :: name ! name of isotope, e.g. 92235.03c
character(12) :: alias ! alias of nuclide, e.g. U-235.03c
type(ListReal), pointer :: list => null()
type(ListReal), pointer :: current => null()
type(Material), pointer :: mat => null()

2
src/initialize.f90
View file

@ -528,7 +528,7 @@ contains
real(8) :: x ! atom percent
logical :: percent_in_atom ! nuclides specified in atom percent?
logical :: density_in_atom ! density specified in atom/b-cm?
character(10) :: key ! name of nuclide, e.g. 92235.03c
character(12) :: key ! name of nuclide, e.g. 92235.03c
type(Material), pointer :: mat => null()
! first find the index in the xs_listings array for each nuclide in each

2
src/input_xml.f90
View file

@ -425,7 +425,7 @@ contains
logical :: file_exists
character(3) :: default_xs
character(MAX_WORD_LEN) :: units
character(10) :: name
character(12) :: name
character(MAX_LINE_LEN) :: filename
type(Material), pointer :: m => null()
type(nuclide_xml), pointer :: nuc => null()

4
src/material_header.f90
View file

@ -9,7 +9,7 @@ module material_header
type Material
integer :: id ! unique identifier
integer :: n_nuclides ! number of nuclides
character(10), allocatable :: names(:) ! isotope names
character(12), allocatable :: names(:) ! isotope names
integer, allocatable :: xs_listing(:) ! index in xs_listings list
integer, allocatable :: nuclide(:) ! index in nuclides array
real(8) :: density ! total atom density in atom/b-cm
@ -18,7 +18,7 @@ module material_header
! S(a,b) data references
logical :: has_sab_table = .false.
character(10) :: sab_name ! name of S(a,b) table
character(12) :: sab_name ! name of S(a,b) table
integer :: sab_table = 0 ! index in sab_tables
integer :: sab_nuclide = 0 ! index of nuclide which has S(a,b) table
end type Material

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

@ -15,7 +15,7 @@
<!-- Type for specifying a nuclide -->
<typedef name="nuclide_xml">
<component name="name" type="word" length="6" default="''" />
<component name="name" type="word" length="7" default="''" />
<component name="xs" type="word" length="3" default="''" />
<component name="ao" type="double" default="0.0" />
<component name="wo" type="double" default="0.0" />