Strips trailing comment from a string.
The comment is assumed to begin with the sequence of characters in
comment_str
. If the sequence comment_str
is not found within str
,
no changes are made.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(inout) | :: | str | Input string |
||
character(len=*), | intent(in) | :: | comment_str | String indicating beginning of a comment. |