free_option_of_section Subroutine

  1. finer_file_ini_t.F90
  2. finer_file_ini_t
  3. free_option_of_section

private elemental subroutine free_option_of_section(self, section_name, option_name)

Free all options of a section.

Arguments

TypeIntentOptionalAttributesName
class(file_ini), intent(inout) :: self

File data.
character, intent(in) :: section_name

Section name.
character, intent(in) :: option_name

Option name.

Contents

Source Code

free_option_of_section

Source Code

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

  s = self%index(section_name=section_name)
  if (s>0) call self%sections(s)%free_option(option_name=option_name)
  endsubroutine free_option_of_section