isUnequal Function

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

This function provides the test for unequality of two projections.

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

Arguments

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

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

projection to compare against

Return Value logical

is unequal??


Called by

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