isGreaterOrEqual Function

public function isGreaterOrEqual(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~~isgreaterorequal~~CallsGraph proc~isgreaterorequal isGreaterOrEqual proc~tem_pathcomparison tem_PathComparison proc~isgreaterorequal->proc~tem_pathcomparison

Called by

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

Source Code

  function isGreaterOrEqual(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 ) .ge. 0 )

  end function isGreaterOrEqual