isSmallerOrEqual Function

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

Called by

proc~~issmallerorequal~~CalledByGraph proc~issmallerorequal isSmallerOrEqual interface~operator(lt=) operator(<=) interface~operator(lt=)->proc~issmallerorequal

Source Code

  function isSmallerOrEqual(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 ) .le. 0 )

  end function isSmallerOrEqual