reset_state Subroutine

private subroutine reset_state(this)

Reset parse-state (found flags) before a parse.

Arguments

Type IntentOptional Attributes Name
type(nml_schema_t), intent(inout) :: this

Called by

proc~~reset_state~~CalledByGraph proc~reset_state reset_state proc~schema_parse nml_schema_t%schema_parse proc~schema_parse->proc~reset_state proc~schema_parse_lines nml_schema_t%schema_parse_lines proc~schema_parse_lines->proc~reset_state proc~read_config_from_string_impl read_config_from_string_impl proc~read_config_from_string_impl->proc~schema_parse_lines proc~read_config_impl read_config_impl proc~read_config_impl->proc~schema_parse proc~read_config read_config proc~read_config->proc~read_config_impl proc~read_config_from_string read_config_from_string proc~read_config_from_string->proc~read_config_from_string_impl proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~read_config_from_string proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~build_pending_handle proc~rdb_ocean_create_pending rdb_ocean_create_pending proc~rdb_ocean_create_pending->proc~build_pending_handle

Variables

Type Visibility Attributes Name Initial
integer, private :: ig
integer, private :: ik

Source Code

   subroutine reset_state(this)
      !! Reset parse-state (found flags) before a parse.
      type(nml_schema_t), intent(inout) :: this
      integer :: ig, ik
      do ig = 1, size(this%groups)
         this%groups(ig)%found = .false.
         if (allocated(this%groups(ig)%keys)) then
            do ik = 1, size(this%groups(ig)%keys)
               this%groups(ig)%keys(ik)%key%found = .false.
            end do
         end if
      end do
   end subroutine reset_state