total_width_of_segment Function

   pure function total_width_of_segment(seg_list) result(res)
      use :: forgex_parameters_m
      implicit none
      type(segment_t), intent(in) :: seg_list(:)
      integer :: res, k
      res = 0
      do k = 1, size(seg_list)
         res = res + width_of_segment(seg_list(k))
      end do
   end function total_width_of_segment