set_dimension_order_yxf Subroutine

private subroutine set_dimension_order_yxf(lo, it_ord, ig_ord, isgn_ord, il_ord, ie_ord, is_ord)

Sets the order of x th sgn l e s in yxf_lo Note: usually the order is x, theta, sign, then "les" in the order they appear in the g_lo layout

Arguments

Type IntentOptional Attributes Name
type(yxf_layout_type), intent(inout) :: lo
integer, intent(in) :: it_ord
integer, intent(in) :: ig_ord
integer, intent(in) :: isgn_ord
integer, intent(in) :: il_ord
integer, intent(in) :: ie_ord
integer, intent(in) :: is_ord

Contents

Source Code

set_dimension_order_yxf

Source Code

  subroutine set_dimension_order_yxf(lo,it_ord,ig_ord,isgn_ord,il_ord,ie_ord,is_ord)
    implicit none
    type (yxf_layout_type), intent(in out) :: lo
    integer, intent(in) :: ie_ord, il_ord, ig_ord, it_ord, is_ord, isgn_ord
    integer, dimension(6) :: check

    ! Check input is the integers 1 to N
    check = [it_ord, ig_ord, isgn_ord, il_ord, ie_ord, is_ord]
    call check_unique_integers(check,'Input to set_dimension_order (yxf_lo) is not unique integers 1 to 6')

    lo%it_ord=it_ord
    lo%ig_ord=ig_ord
    lo%isgn_ord=isgn_ord
    lo%il_ord=il_ord
    lo%ie_ord=ie_ord
    lo%is_ord=is_ord
  end subroutine set_dimension_order_yxf