join_two_segments Function

public pure function join_two_segments(segA, segB) result(res)

This function converts two isolated segments into single fused segment and returns it.

Arguments

Type IntentOptional Attributes Name
type(segment_t), intent(in) :: segA
type(segment_t), intent(in) :: segB

Return Value type(segment_t)


Source Code

   pure function join_two_segments(segA, segB) result(res)
      implicit none
      type(segment_t), intent(in) :: segA, segB
      type(segment_t) :: res

      res = segment_t(segA%min, segB%max)

      if (.not. res%validate()) then
         res = SEG_INIT
      end if
   
   end function join_two_segments