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. |