compat_map Function

private function compat_map(nd_index, compat_ind)

Check if 2d index is compatible with tensor index

Arguments

Type	Intent	Optional	Attributes		Name
type(nd_to_2d_mapping),	intent(in)			::	nd_index
integer,	intent(in),		DIMENSION(:)	::	compat_ind

Return Value integer