sindex_string_character Function

  1. stringifor_string_t.F90
  2. stringifor_string_t
  3. sindex_string_character

public elemental function sindex_string_character(self, substring, back) result(i)

Arguments

Type IntentOptional AttributesName
class(string), intent(in) :: self

The string.
character(kind=CK,len=*), intent(in) :: substring

Searched substring.
logical, intent(in), optional :: back

Start of the last occurrence rather than the first.

Return Value integer

Result of the search.

Description

Return the position of the start of the first occurrence of string substring as a substring in string, counting from one. If substring is not present in string, zero is returned. If the back argument is present and true, the return value is the start of the last occurrence rather than the first.

Called By

proc~~sindex_string_character~~CalledByGraph proc~sindex_string_character sindex_string_character interface~index index interface~index->proc~sindex_string_character
Help

Source Code

  elemental function sindex_string_character(self, substring, back) result(i)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Return the position of the start of the first occurrence of string `substring` as a substring in `string`, counting from one.
  !< If `substring` is not present in `string`, zero is returned. If the back argument is present and true, the return value is
  !< the start of the last occurrence rather than the first.
  !---------------------------------------------------------------------------------------------------------------------------------
  class(string),             intent(in)           :: self      !< The string.
  character(kind=CK, len=*), intent(in)           :: substring !< Searched substring.
  logical,                   intent(in), optional :: back      !< Start of the last occurrence rather than the first.
  integer                                         :: i         !< Result of the search.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (allocated(self%raw)) then
    i = index(string=self%raw, substring=substring, back=back)
  else
    i = 0
  endif
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction sindex_string_character