fuse_symm_idx Interface

public interface fuse_symm_idx

Module Procedures

private elemental function fuse_symm_idx_int32(p, q) result(pq)

Fuse an index

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	p	2d-array indices
integer(kind=int32),	intent(in)			::	q	2d-array indices

Return Value integer(kind=int32)

1d-array index assuming the array is symmetric w.r. p<->q

private elemental function fuse_symm_idx_int64(p, q) result(pq)

Fuse an index

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int64),	intent(in)			::	p	2d-array indices
integer(kind=int64),	intent(in)			::	q	2d-array indices

Return Value integer(kind=int64)

1d-array index assuming the array is symmetric w.r. p<->q