inv_fuse_symm_idx Interface

public interface inv_fuse_symm_idx

Module Procedures

private elemental subroutine inv_fuse_symm_idx_int32(pq, p, q)

Invert the fuse_symm_idx routine

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	pq	The fused index
integer(kind=int32),	intent(out)			::	p	The index pair x <= y
integer(kind=int32),	intent(out)			::	q	The index pair x <= y

private elemental subroutine inv_fuse_symm_idx_int64(pq, p, q)

Invert the fuse_symm_idx routine

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int64),	intent(in)			::	pq	The fused index
integer(kind=int64),	intent(out)			::	p	The index pair x <= y
integer(kind=int64),	intent(out)			::	q	The index pair x <= y