ij_idx_f Function

private function ij_idx_f(lo, ig, if, n)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(f_layout_type), intent(in) :: lo
integer, intent(in) :: ig
integer, intent(in) :: if
integer, intent(in) :: n

Return Value integer


Contents

Source Code

ij_idx_f

Source Code

  function ij_idx_f (lo, ig, if, n)
    implicit none
    integer :: ij_idx_f
    type (f_layout_type), intent (in) :: lo
    integer, intent (in) :: ig, if, n
    ij_idx_f = ig+lo%ntgrid + (2*lo%ntgrid+1)*(if-1 + lo%nfield*(n-1))
  end function ij_idx_f