gidx2xxfidx Subroutine

public elemental subroutine gidx2xxfidx(ig, isign, iglo, g_lo, xxf_lo, it, ixxf)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Transformation subroutines !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ig
integer, intent(in) :: isign
integer, intent(in) :: iglo
type(g_layout_type), intent(in) :: g_lo
type(xxf_layout_type), intent(in) :: xxf_lo
integer, intent(out) :: it
integer, intent(out) :: ixxf

Contents

Source Code

gidx2xxfidx

Source Code

  elemental subroutine gidx2xxfidx (ig, isign, iglo, g_lo, xxf_lo, it, ixxf)
    implicit none
    integer, intent (in) :: ig, isign, iglo
    type (g_layout_type), intent (in) :: g_lo
    type (xxf_layout_type), intent (in) :: xxf_lo
    integer, intent (out) :: it, ixxf

    it = it_idx(g_lo,iglo)
    if (it > (xxf_lo%ntheta0+1)/2) then
       it = it - xxf_lo%ntheta0 + xxf_lo%nx
    end if

    ixxf = idx(xxf_lo, ig, isign, ik_idx(g_lo,iglo), il_idx(g_lo,iglo), &
         ie_idx(g_lo,iglo), is_idx(g_lo,iglo))
  end subroutine gidx2xxfidx