init_pass_type Subroutine

private subroutine init_pass_type(current, target_level)

Small wrapper to allow init_level_type to be passed instead of the level integer.

Arguments

Type IntentOptional Attributes Name
type(init_type), intent(inout) :: current
type(init_level_type), intent(in) :: target_level

Contents

Source Code


Source Code

  subroutine init_pass_type(current, target_level)
    type(init_type), intent(inout) :: current
    type(init_level_type), intent(in) :: target_level
    call init(current, target_level%level)
  end subroutine init_pass_type