loop_options_section Function

  1. finer_file_ini_t.F90
  2. finer_file_ini_t
  3. loop_options_section

private function loop_options_section(self, section_name, option_pairs) result(again)

Loop returning option name/value defined into section.

Arguments

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

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

Section name.
character(len=:), intent(out), allocatable:: option_pairs(:)

Pairs option name/value [1:2].

Return Value logical

Flag continuing the loop.


Contents

Source Code

loop_options_section

Source Code

  function loop_options_section(self, section_name, option_pairs) result(again)
  !< Loop returning option name/value defined into section.
  class(file_ini),               intent(in)  :: self            !< File data.
  character(*),                  intent(in)  :: section_name    !< Section name.
  character(len=:), allocatable, intent(out) :: option_pairs(:) !< Pairs option name/value [1:2].
  logical                                    :: again           !< Flag continuing the loop.
  integer(I4P)                               :: s               !< Counter.

  again = .false.
  s = self%index(section_name=section_name)
  if (s>0) then
    again = self%sections(s)%loop(option_pairs=option_pairs)
  endif
  endfunction loop_options_section