FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(f_layout_type), | intent(in) | :: | lo | |||
integer, | intent(in) | :: | if | |||
integer, | intent(in) | :: | im |
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