Scan a varying string for occurrences of characters in a varying-string set
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(varying_string), | intent(in) | :: | string | |||
type(varying_string), | intent(in) | :: | set | |||
logical, | intent(in), | optional | :: | back |
elemental function scan_VS_VS (string, set, back) result (i) type(varying_string), intent(in) :: string type(varying_string), intent(in) :: set logical, intent(in), optional :: back integer :: i i = SCAN(char(string), char(set), back) ! Finish return end function scan_VS_VS