diff --git a/src/geometry_header.F90 b/src/geometry_header.F90 index f4eb9b6628..ba6992d47b 100644 --- a/src/geometry_header.F90 +++ b/src/geometry_header.F90 @@ -6,8 +6,8 @@ module geometry_header use constants, only: HALF, TWO, THREE, INFINITY, K_BOLTZMANN, & MATERIAL_VOID, NONE use dict_header, only: DictCharInt, DictIntInt + use material_header, only: Material, materials, material_dict use nuclide_header - use material_header, only: Material use sab_header use stl_vector, only: VectorReal use string, only: to_lower @@ -347,11 +347,8 @@ contains ! temperatures to read (which may be different if interpolation is used) !=============================================================================== - subroutine get_temperatures(cells, materials, material_dict, & - nuc_temps, sab_temps) + subroutine get_temperatures(cells, nuc_temps, sab_temps) type(Cell), allocatable, intent(in) :: cells(:) - type(Material), allocatable, intent(in) :: materials(:) - type(DictIntInt), intent(in) :: material_dict type(VectorReal), allocatable, intent(out) :: nuc_temps(:) type(VectorReal), optional, allocatable, intent(out) :: sab_temps(:) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 911d2fe554..5927b92635 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -2188,7 +2188,7 @@ contains call assign_temperatures(material_temps) ! Determine desired temperatures for each nuclide and S(a,b) table - call get_temperatures(cells, materials, material_dict, nuc_temps, sab_temps) + call get_temperatures(cells, nuc_temps, sab_temps) ! Read continuous-energy cross sections if (run_CE .and. run_mode /= MODE_PLOTTING) then diff --git a/src/mgxs_data.F90 b/src/mgxs_data.F90 index bbea3c4b32..623ad2ee89 100644 --- a/src/mgxs_data.F90 +++ b/src/mgxs_data.F90 @@ -51,7 +51,7 @@ contains call write_message("Loading cross section data...", 5) ! Get temperatures - call get_temperatures(cells, materials, material_dict, temps) + call get_temperatures(cells, temps) ! Open file for reading file_id = file_open(path_cross_sections, 'r', parallel=.true.)