str_strip_comment Subroutine

public subroutine str_strip_comment(str, comment_str)

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.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(inout) :: str

Input string
character(len=*), intent(in) :: comment_str

String indicating beginning of a comment.

Called by

proc~~str_strip_comment~~CalledByGraph proc~str_strip_comment str_strip_comment proc~readline readline proc~readline->proc~str_strip_comment proc~read_config read_config proc~read_config->proc~readline proc~read_config_1 read_config_1 proc~read_config_1->proc~readline proc~read_control read_control proc~read_control->proc~readline proc~read_tabulated read_tabulated proc~read_tabulated->proc~readline proc~setup setup proc~setup->proc~read_config proc~setup->proc~read_tabulated program~main main program~main->proc~read_control program~main->proc~setup