group_find_key Function

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

Index of name in the group’s key list, 0 if absent.

Type Bound

nml_group_t

Arguments

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

Return Value integer


Calls

proc~~group_find_key~~CallsGraph proc~group_find_key nml_group_t%group_find_key proc~lower lower proc~group_find_key->proc~lower

Called by

proc~~group_find_key~~CalledByGraph proc~group_find_key nml_group_t%group_find_key proc~apply_one_pair apply_one_pair proc~apply_one_pair->proc~group_find_key proc~parse_group_body parse_group_body proc~parse_group_body->proc~apply_one_pair proc~dispatch_group dispatch_group proc~dispatch_group->proc~parse_group_body 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

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   function group_find_key(this, name) result(idx)
      !! Index of `name` in the group's key list, 0 if absent.
      class(nml_group_t), intent(in) :: this
      character(len=*), intent(in) :: name
      integer :: idx, i
      idx = 0
      if (.not. allocated(this%keys)) return
      do i = 1, size(this%keys)
         if (lower(this%keys(i)%key%name) == lower(name)) then
            idx = i
            return
         end if
      end do
   end function group_find_key