free Subroutine

  elemental subroutine free(self)
  !< Free dynamic memory.
  class(file_ini), intent(inout) :: self !< File data.

  if (allocated(self%filename)) deallocate(self%filename)
  if (allocated(self%sections)) then
    call self%sections%free
    deallocate(self%sections)
  endif
  self%Ns = 0
  self%opt_sep = def_opt_sep
  endsubroutine free