segment_not_equiv Function

private pure elemental function segment_not_equiv(a, b) result(res)

Check if two segments are not equivalent.

This function determines whether the segment a is not equivalent to the segment b, meaning their min or max values are different.

Arguments

Type IntentOptional Attributes Name
type(segment_t), intent(in) :: a
type(segment_t), intent(in) :: b

Return Value logical


Source Code

   pure elemental function segment_not_equiv(a, b) result(res)
      implicit none
      type(segment_t), intent(in) :: a, b
      logical :: res

      res = a%max /= b%max .or. a%min /= b%min
   end function segment_not_equiv