skip_to_slash Subroutine

private subroutine skip_to_slash(lines, n_lines, li, col)

Advance past the next ‘/’ (group terminator); recovery aid.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: lines(:)
integer, intent(in) :: n_lines
integer, intent(inout) :: li
integer, intent(inout) :: col

Calls

proc~~skip_to_slash~~CallsGraph proc~skip_to_slash skip_to_slash proc~strip_comment strip_comment proc~skip_to_slash->proc~strip_comment

Called by

proc~~skip_to_slash~~CalledByGraph proc~skip_to_slash skip_to_slash proc~dispatch_group dispatch_group proc~dispatch_group->proc~skip_to_slash proc~parse_from_lines parse_from_lines proc~parse_from_lines->proc~skip_to_slash 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 proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~read_config_from_string proc~read_config read_config proc~read_config->proc~read_config_impl

Variables

Type Visibility Attributes Name Initial
integer, private :: i
character(len=:), private, allocatable :: s

Source Code

   subroutine skip_to_slash(lines, n_lines, li, col)
      !! Advance past the next '/' (group terminator); recovery aid.
      character(len=*), intent(in) :: lines(:)
      integer, intent(in) :: n_lines
      integer, intent(inout) :: li, col
      character(len=:), allocatable :: s
      integer :: i
      do while (li <= n_lines)
         s = strip_comment(lines(li))
         do i = col, len(s)
            if (s(i:i) == "/") then
               col = i + 1
               return
            end if
         end do
         li = li + 1
         col = 1
      end do
   end subroutine skip_to_slash