width_of_segment Function

public pure elemental function width_of_segment(seg) result(res)

Uses

Arguments

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

Return Value integer


Source Code

   pure elemental function width_of_segment(seg) result(res)
      use :: forgex_parameters_m, only: INVALID_SEGMENT_SIZE
      implicit none
      type(segment_t), intent(in) :: seg
      integer :: res

      if (seg%validate()) then
         res = seg%max - seg%min + 1
      else
         res = INVALID_SEGMENT_SIZE
      end if
   end function width_of_segment