starts with function for strings
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | str | |||
| character(len=*), | intent(in) | :: | substring |
pure logical function startswith_cc(str, substring) character(len=*),intent(in) :: str, substring startswith_cc = index(str, substring) == 1 end function startswith_cc