isUnequal Function

public function isUnequal(left, right) result(unequality)

This function provides the test for unequality of two path.

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


Calls

proc~~isunequal~~CallsGraph proc~isunequal isUnequal proc~tem_pathcomparison tem_PathComparison proc~isunequal->proc~tem_pathcomparison

Called by

proc~~isunequal~~CalledByGraph proc~isunequal isUnequal interface~operator(SLASH=) operator(/=) interface~operator(SLASH=)->proc~isunequal

Source Code

  function isUnequal(left, right) result(unequality)
    ! ---------------------------------------------------------------------------
    !> path to compare
    type(tem_path_type), intent(in) :: left
    !> path to compare against
    type(tem_path_type), intent(in) :: right
    !> is unequal??
    logical :: unequality
    ! ---------------------------------------------------------------------------

    unequality = ( tem_pathComparison( left, right ) .ne. 0 )

  end function isUnequal