isGreaterOrEqual Function

private pure function isGreaterOrEqual(left, right) result(great)

This function provides a >= comparison of the header of two projections.

Sorting of projections is given by kind, fpt_header and last by l2p_header.

Arguments

TypeIntentOptionalAttributesName
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 greater??


Called by

proc~~isgreaterorequal~5~~CalledByGraph proc~isgreaterorequal~5 isGreaterOrEqual interface~operator(gt=)~5 operator(>=) interface~operator(gt=)~5->proc~isgreaterorequal~5

Contents

None