optimisations_overrides_type Derived Type

type, public :: optimisations_overrides_type

A type for containing overrides to the processor layout and optimisation flags for gs2.


Contents


Components

Type Visibility Attributes Name Initial
logical, private :: init = .false.
logical, public :: override_nproc = .false.
integer, public :: nproc
logical, public :: override_opt_redist_nbk = .false.
logical, public :: opt_redist_nbk
logical, public :: override_opt_redist_persist = .false.
logical, public :: opt_redist_persist
logical, public :: override_opt_redist_persist_overlap = .false.
logical, public :: opt_redist_persist_overlap
logical, public :: override_intmom_sub = .false.
logical, public :: intmom_sub
logical, public :: override_intspec_sub = .false.
logical, public :: intspec_sub
logical, public :: override_local_field_solve = .false.
logical, public :: local_field_solve
logical, public :: override_layout = .false.
character(len=5), public :: layout
logical, public :: override_field_option = .false.
character(len=8), public :: field_option
logical, public :: override_gf_lo_integrate = .false.
logical, public :: gf_lo_integrate
logical, public :: override_gf_local_fields = .false.
logical, public :: gf_local_fields
logical, public :: override_simple_gf_decomposition = .false.
logical, public :: simple_gf_decomposition
logical, public :: override_field_subgath = .false.
logical, public :: field_subgath
logical, public :: override_do_smart_update = .false.
logical, public :: do_smart_update
logical, public :: override_field_local_allreduce = .false.
logical, public :: field_local_allreduce
logical, public :: override_field_local_allreduce_sub = .false.
logical, public :: field_local_allreduce_sub
logical, public :: override_opt_source = .false.
logical, public :: opt_source
logical, public :: override_minnrow = .false.
integer, public :: minnrow
logical, public :: override_old_comm = .false.
integer, public :: old_comm

Type-Bound Procedures

procedure, public, :: initialise => init_optimisations_overrides

procedure, public, :: finish => finish_optimisations_overrides

procedure, public, :: is_initialised => is_initialised_optimisations_overrides

Source Code

type optimisations_overrides_type
  logical, private :: init = .false.
logical :: override_nproc = .false.
integer :: nproc
logical :: override_opt_redist_nbk = .false.
logical :: opt_redist_nbk
logical :: override_opt_redist_persist = .false.
logical :: opt_redist_persist
logical :: override_opt_redist_persist_overlap = .false.
logical :: opt_redist_persist_overlap
logical :: override_intmom_sub = .false.
logical :: intmom_sub
logical :: override_intspec_sub = .false.
logical :: intspec_sub
logical :: override_local_field_solve = .false.
logical :: local_field_solve
logical :: override_layout = .false.
character(len=5) :: layout
logical :: override_field_option = .false.
character(len=8) :: field_option
logical :: override_gf_lo_integrate = .false.
logical :: gf_lo_integrate
logical :: override_gf_local_fields = .false.
logical :: gf_local_fields
logical :: override_simple_gf_decomposition = .false.
logical :: simple_gf_decomposition
logical :: override_field_subgath = .false.
logical :: field_subgath
logical :: override_do_smart_update = .false.
logical :: do_smart_update
logical :: override_field_local_allreduce = .false.
logical :: field_local_allreduce
logical :: override_field_local_allreduce_sub = .false.
logical :: field_local_allreduce_sub
logical :: override_opt_source = .false.
logical :: opt_source
logical :: override_minnrow = .false.
integer :: minnrow
logical :: override_old_comm = .false.
integer :: old_comm
 contains
  procedure :: initialise => init_optimisations_overrides
  procedure :: finish => finish_optimisations_overrides
  procedure :: is_initialised => is_initialised_optimisations_overrides
end type optimisations_overrides_type