idx_f Function

private function idx_f(lo, if, im)

FIXME : Add documentation

Arguments

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

Return Value integer


Contents

Source Code


Source Code

  function idx_f (lo, if, im)
    implicit none
    integer :: idx_f
    type (f_layout_type), intent (in) :: lo
    integer, intent (in) :: if, im
    idx_f = if-1 + lo%nindex*(im-1)
  end function idx_f