set_dimension_order_xxf Subroutine

private subroutine set_dimension_order_xxf(lo, ik_ord, ig_ord, isgn_ord, il_ord, ie_ord, is_ord)

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

Arguments

Type IntentOptional Attributes Name
type(xxf_layout_type), intent(inout) :: lo
integer, intent(in) :: ik_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

  subroutine set_dimension_order_xxf(lo,ik_ord,ig_ord,isgn_ord,il_ord,ie_ord,is_ord)
    implicit none
    type (xxf_layout_type), intent(in out) :: lo
    integer, intent(in) :: ie_ord, il_ord, ig_ord, ik_ord, is_ord, isgn_ord
    integer, dimension(6) :: check

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

    lo%ik_ord=ik_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_xxf