isUnequal Function

private pure function isUnequal(left, right) result(unequality)

This function provides the test for unequality of two projections.

Two l2p header are considered to be unequal, if their node_header, or the factor are not equal.

Arguments

Type IntentOptional Attributes Name
type(ply_l2p_header_type), intent(in) :: left

projection to compare
type(ply_l2p_header_type), intent(in) :: right

projection to compare against

Return Value logical

is unequal??


Called by

proc~~isunequal~2~~CalledByGraph proc~isunequal~2 isUnequal interface~operator(SLASH=)~2 operator(/=) interface~operator(SLASH=)~2->proc~isunequal~2