operator(.cap.) Interface

public interface operator(.cap.)

Calculate the intersection A ∩ B


Module Procedures

private pure function intersect_integer_int64(A, B) result(D)

Return A ∩ B Assume: 1. A and B are sorted. The result will be sorted.


Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: A(:)
integer(kind=int64), intent(in) :: B(:)

Return Value integer(kind=int64), allocatable, (:)

private pure function intersect_integer_int32(A, B) result(D)


Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: A(:)
integer(kind=int32), intent(in) :: B(:)

Return Value integer(kind=int32), allocatable, (:)