init_optimisations_overrides Subroutine

  1. overrides.f90
  2. overrides
  3. init_optimisations_overrides

public subroutine init_optimisations_overrides(self)

Type Bound

optimisations_overrides_type

Arguments

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

Contents

Source Code

init_optimisations_overrides

Source Code

subroutine init_optimisations_overrides(self)
  class(optimisations_overrides_type), intent(in out) :: self
  
  if (self%init) return
  self%init = .true.

end subroutine init_optimisations_overrides