isGreater Function

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

This function provides a > comparison of two projections.

Sorting of fxt header is given by node_header, fxt_blocksize and last by factor.

Arguments

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

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

projection to compare against

Return Value logical

is greater??


Called by

proc~~isgreater~3~~CalledByGraph proc~isgreater~3 isGreater interface~operator(gt)~2 operator(>) interface~operator(gt)~2->proc~isgreater~3