sscan_character_string Function

  1. stringifor_string_t.F90
  2. stringifor_string_t
  3. sscan_character_string

public elemental function sscan_character_string(sstring, set, back) result(i)

Arguments

Type IntentOptional AttributesName
character(kind=CK,len=*), intent(in) :: sstring

The string.
type(string), intent(in) :: set

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

Start of the last occurrence rather than the first.

Return Value integer

Result of the search.

Description

Return the leftmost (if back is either absent or equals false, otherwise the rightmost) character of string that is in set.

Called By

proc~~sscan_character_string~~CalledByGraph proc~sscan_character_string sscan_character_string interface~scan scan interface~scan->proc~sscan_character_string
Help

Source Code

  elemental function sscan_character_string(sstring, set, back) result(i)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Return the leftmost (if `back` is either absent or equals false, otherwise the rightmost) character of string that is in `set`.
  !---------------------------------------------------------------------------------------------------------------------------------
  character(kind=CK, len=*), intent(in)           :: sstring !< The string.
  type(string),              intent(in)           :: set     !< Searched set.
  logical,                   intent(in), optional :: back    !< Start of the last occurrence rather than the first.
  integer                                         :: i       !< Result of the search.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (allocated(set%raw)) then
    i = scan(string=sstring, set=set%raw, back=back)
  else
    i = 0
  endif
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction sscan_character_string