permute_index Subroutine

public subroutine permute_index(map_in, map_out, order)

reorder tensor index (no data)

Arguments

Type	Intent	Optional	Attributes		Name
type(nd_to_2d_mapping),	intent(in)			::	map_in
type(nd_to_2d_mapping),	intent(out)			::	map_out
integer,	intent(in),		DIMENSION(ndims_mapping(map_in))	::	order