schema_find_group Function

private function schema_find_group(this, name) result(idx)

Index of name in the schema’s groups, 0 if absent.

Type Bound

nml_schema_t

Arguments

Type IntentOptional Attributes Name
class(nml_schema_t), intent(in) :: this
character(len=*), intent(in) :: name

Return Value integer


Calls

proc~~schema_find_group~~CallsGraph proc~schema_find_group nml_schema_t%schema_find_group proc~lower lower proc~schema_find_group->proc~lower proc~strip_nml strip_nml proc~schema_find_group->proc~strip_nml proc~strip_nml->proc~lower

Called by

proc~~schema_find_group~~CalledByGraph proc~schema_find_group nml_schema_t%schema_find_group proc~dispatch_group dispatch_group proc~dispatch_group->proc~schema_find_group proc~parse_from_lines parse_from_lines proc~parse_from_lines->proc~dispatch_group proc~parse_file parse_file proc~parse_file->proc~parse_from_lines proc~schema_parse_lines nml_schema_t%schema_parse_lines proc~schema_parse_lines->proc~parse_from_lines proc~read_config_from_string_impl read_config_from_string_impl proc~read_config_from_string_impl->proc~schema_parse_lines proc~schema_parse nml_schema_t%schema_parse proc~schema_parse->proc~parse_file proc~read_config_from_string read_config_from_string proc~read_config_from_string->proc~read_config_from_string_impl proc~read_config_impl read_config_impl proc~read_config_impl->proc~schema_parse

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   function schema_find_group(this, name) result(idx)
      !! Index of `name` in the schema's groups, 0 if absent.
      class(nml_schema_t), intent(in) :: this
      character(len=*), intent(in) :: name
      integer :: idx, i
      idx = 0
      if (.not. allocated(this%groups)) return
      do i = 1, size(this%groups)
         if (lower(this%groups(i)%name) == lower(strip_nml(name))) then
            idx = i
            return
         end if
      end do
   end function schema_find_group