schema_is_external Function

private function schema_is_external(this, name) result(yes)

True if name is a registered external group.

Type Bound

nml_schema_t

Arguments

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

Return Value logical


Calls

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

Called by

proc~~schema_is_external~~CalledByGraph proc~schema_is_external nml_schema_t%schema_is_external proc~dispatch_group dispatch_group proc~dispatch_group->proc~schema_is_external 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_is_external(this, name) result(yes)
      !! True if `name` is a registered external group.
      class(nml_schema_t), intent(in) :: this
      character(len=*), intent(in) :: name
      logical :: yes
      integer :: i
      yes = .false.
      if (.not. allocated(this%external_names)) return
      do i = 1, size(this%external_names)
         if (lower(trim(this%external_names(i))) == lower(strip_nml(name))) then
            yes = .true.
            return
         end if
      end do
   end function schema_is_external