The given character string is examined to see if it contains a substring delimited by the character, DELIM. The indices of the first and last characters of the substring are returned as INDEX1 and INDEX2 respectively. If no occurrence of the specified delimiter is found, or if the only occurrence is the last character of the string, then the indices are returned pointing to the whole of the input string. If only one occurrence of the delimiter is found and it is not the last character in the string, INDEX1 will point to this position and INDEX2 will point to the last character in the string. If there are more than two of the occurrences of the delimiter character, INDEX1 will point to the first occurrence and INDEX2 to the last occurrence.

CALL CHR_DELIM( STRING, DELIM, INDEX1, INDEX2 )

STRING = CHARACTER $\ast$ ( $\ast$ ) (Given)

DELIM = CHARACTER $\ast$ 1 (Given)

INDEX1 = INTEGER (Returned)

INDEX2 = INTEGER (Returned)