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
Type | Intent | Optional | 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 |
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