public subroutine finish_optimisations_overrides(self)
Type Bound
optimisations_overrides_type
Arguments
Source Code
subroutine finish_optimisations_overrides(self)
use file_utils, only: error_unit
class(optimisations_overrides_type), intent(in out) :: self
if (.not. self%init) then
write (error_unit(), *) "ERROR: Called finish_optimisations_overrides on an uninitialized object."
return
end if
self%override_nproc = .false.
self%override_opt_redist_nbk = .false.
self%override_opt_redist_persist = .false.
self%override_opt_redist_persist_overlap = .false.
self%override_intmom_sub = .false.
self%override_intspec_sub = .false.
self%override_local_field_solve = .false.
self%override_layout = .false.
self%override_field_option = .false.
self%override_gf_lo_integrate = .false.
self%override_gf_local_fields = .false.
self%override_simple_gf_decomposition = .false.
self%override_field_subgath = .false.
self%override_do_smart_update = .false.
self%override_field_local_allreduce = .false.
self%override_field_local_allreduce_sub = .false.
self%override_opt_source = .false.
self%override_minnrow = .false.
self%override_old_comm = .false.
end subroutine finish_optimisations_overrides