free_options_of_section Subroutine

  elemental subroutine free_options_of_section(self, section_name)
  !< Free all options of a section.
  class(file_ini), intent(inout) :: self         !< File data.
  character(*),    intent(in)    :: section_name !< Section name.
  integer(I4P)                   :: s            !< Counter.

  if (allocated(self%sections)) then
    do s=1, size(self%sections, dim=1)
      if (self%sections(s) == section_name) then
        call self%sections(s)%free_options
        exit
      endif
    enddo
  endif
  endsubroutine free_options_of_section