starts_with_char_char Function

private pure function starts_with_char_char(string, substring) result(match)

Check whether a string starts with substring or not

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string
character(len=*), intent(in) :: substring

Return Value logical


Called by

proc~~starts_with_char_char~~CalledByGraph proc~starts_with_char_char starts_with_char_char interface~starts_with starts_with interface~starts_with->proc~starts_with_char_char proc~starts_with_char_string starts_with_char_string interface~starts_with->proc~starts_with_char_string proc~starts_with_string_char starts_with_string_char interface~starts_with->proc~starts_with_string_char proc~starts_with_string_string starts_with_string_string interface~starts_with->proc~starts_with_string_string proc~starts_with_char_string->interface~starts_with proc~starts_with_string_char->interface~starts_with proc~starts_with_string_string->interface~starts_with

Variables

Type Visibility Attributes Name Initial
integer, private :: nsub

Source Code

   pure function starts_with_char_char(string, substring) result(match)
      character(len=*), intent(in) :: string
      character(len=*), intent(in) :: substring
      logical :: match
      integer :: nsub

      nsub = len(substring)
      if (len(string) < nsub) then
         match = .false.
         return
      end if
      match = string(1:nsub) == substring

   end function starts_with_char_char