seg_in_segment_list Function

private pure function seg_in_segment_list(seg, list) result(res)

Arguments

Type IntentOptional Attributes Name
type(segment_t), intent(in) :: seg
type(segment_t), intent(in) :: list(:)

Return Value logical


Source Code

   pure function seg_in_segment_list(seg, list) result(res)
      implicit none
      type(segment_t), intent(in) :: seg
      type(segment_t), intent(in) :: list(:)
      logical :: res

      res = any(seg_in_segment(seg, list(:)))

   end function seg_in_segment_list