init_miller_geometry_overrides Subroutine

  1. overrides.f90
  2. overrides
  3. init_miller_geometry_overrides

public subroutine init_miller_geometry_overrides(self)

Type Bound

miller_geometry_overrides_type

Arguments

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

Contents

Source Code

init_miller_geometry_overrides

Source Code

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

end subroutine init_miller_geometry_overrides