set_optimised_choice Subroutine

public subroutine set_optimised_choice(r, val)

Set choice of redist algorithm based on properties of g_lo

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
integer, intent(in) :: val

Contents

Source Code

set_optimised_choice

Source Code

  subroutine set_optimised_choice(r,val)
    implicit none
    type (redist_type), intent (inout) :: r
    integer, intent (in) :: val

    r%optimised_choice = val
    r%optimised_choice_inv = val

  end subroutine set_optimised_choice