isGreater Function

public function isGreater(left, right) result(great)

This function provides a comparison of two paths.

Arguments

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

path to compare
type(tem_path_type), intent(in) :: right

path to compare against

Return Value logical

is greater??


Calls

proc~~isgreater~~CallsGraph proc~isgreater isGreater proc~tem_pathcomparison tem_PathComparison proc~isgreater->proc~tem_pathcomparison

Called by

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

Source Code

  function isGreater(left, right) result(great)
    ! ---------------------------------------------------------------------------
    !> path to compare
    type(tem_path_type), intent(in) :: left
    !> path to compare against
    type(tem_path_type), intent(in) :: right
    !> is greater??
    logical :: great
    ! ---------------------------------------------------------------------------
    great = ( tem_pathComparison( left, right ) .gt. 0 )

  end function isGreater