isSmaller Function

public function isSmaller(left, right) result(small)

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 smaller??


Calls

proc~~issmaller~~CallsGraph proc~issmaller isSmaller proc~tem_pathcomparison tem_PathComparison proc~issmaller->proc~tem_pathcomparison

Called by

proc~~issmaller~~CalledByGraph proc~issmaller isSmaller interface~operator(lt) operator(<) interface~operator(lt)->proc~issmaller

Source Code

  function isSmaller(left, right) result(small)
    ! ---------------------------------------------------------------------------
    !> path to compare
    type(tem_path_type), intent(in) :: left
    !> path to compare against
    type(tem_path_type), intent(in) :: right
    !> is smaller??
    logical :: small
    ! ---------------------------------------------------------------------------

    small = ( tem_pathComparison( left, right ) .lt. 0 )

  end function isSmaller