finish_optimisations_overrides Subroutine

public subroutine finish_optimisations_overrides(self)

Uses

Type Bound

optimisations_overrides_type

Arguments

Type IntentOptional Attributes Name
class(optimisations_overrides_type), intent(inout) :: self

Contents


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