combine_tensor_index Function

public pure function combine_tensor_index(ind_in, dims) result(ind_out)

transform nd index to flat index

Arguments

Type IntentOptional Attributes Name
integer, intent(in), DIMENSION(:) :: ind_in

nd index nd dimensions
integer, intent(in), DIMENSION(:) :: dims

nd index nd dimensions

Return Value integer(kind=int_8)

flat index