Remove two arguments on get_temperatures

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(:)
 

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

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.)