isSmaller Function

private pure function isSmaller(left, right) result(small)

This function provides a < comparison of two projections.

Sorting of projections is given by maxPolyDegree, kind, nodes_kind and last by factor.

Arguments

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

projection to compare

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

projection to compare against

Return Value logical

is smaller??