isUnequal Function

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

This function provides the test for unequality of the header of two projections.

Two projections are considered to be unequal, if their kind, their fpt-header or l2p_header are not equal.

Arguments

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

projection to compare

type(ply_prj_header_type), intent(in) :: right

projection to compare against

Return Value logical

is unequal??


Called by

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