Increment a character pointer, IPOSN, either forward or backward through a string, until the character pointed to is not one of a specified set of characters. The direction of the search is given by the argument FORWD. If no such character position exists (i.e all remaining characters in the string are members of the specified set), the pointer is returned set to one more than the length of the string if the search is in the forward direction, or zero if the search is in the reverse direction. If the initial value of IPOSN does not point at one of the characters in the string, then the routine will return without action.

CALL CHR_SKCHR( CHARS, STRING, FORWD, IPOSN )

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

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

FORWD = LOGICAL (Given)

IPOSN = INTEGER (Given and Returned)