diff --git a/src/cross_section.f90 b/src/cross_section.f90 index 271e412d95..48998170a0 100644 --- a/src/cross_section.f90 +++ b/src/cross_section.f90 @@ -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() diff --git a/src/cross_section_header.f90 b/src/cross_section_header.f90 index e630ce772a..2f3116062d 100644 --- a/src/cross_section_header.f90 +++ b/src/cross_section_header.f90 @@ -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 diff --git a/src/energy_grid.f90 b/src/energy_grid.f90 index 25adf1af23..d2351c94cf 100644 --- a/src/energy_grid.f90 +++ b/src/energy_grid.f90 @@ -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() diff --git a/src/initialize.f90 b/src/initialize.f90 index 0a0250f874..5c1d6a2be5 100644 --- a/src/initialize.f90 +++ b/src/initialize.f90 @@ -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 diff --git a/src/input_xml.f90 b/src/input_xml.f90 index 4009aa54dd..a698fbd37d 100644 --- a/src/input_xml.f90 +++ b/src/input_xml.f90 @@ -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() diff --git a/src/material_header.f90 b/src/material_header.f90 index ac77394d76..916578923b 100644 --- a/src/material_header.f90 +++ b/src/material_header.f90 @@ -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 diff --git a/src/xml-fortran/templates/materials_t.xml b/src/xml-fortran/templates/materials_t.xml index 36207aa78a..5e5a0ee41f 100644 --- a/src/xml-fortran/templates/materials_t.xml +++ b/src/xml-fortran/templates/materials_t.xml @@ -15,7 +15,7 @@ - +