dm_string_count_substring Function

public pure elemental function dm_string_count_substring(s1, s2) result(n)

Returns the number of occurences of string s2 in string s1.

Arguments

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

Input string.

character(len=*), intent(in) :: s2

Sub-string.

Return Value integer