Description:
Find the start of
the next word, signified by the character not being a word delimiter, i.e. SPACE, TAB, or
COMMA. Note that the end of the current word is not found before looking for the start of the
next. This routine is expected to be used in conjunction with CHR_FIWE.
Invocation
CALL CHR_FIWS( STRING, IPOSN, STATUS )
Arguments
STRING = CHARACTER
∗ (
∗ )
(Given)
The string to be searched.
IPOSN = INTEGER (Given and Returned)
The given value is
the character position within the string at which searching is to start. If IPOSN is less than 1, the search
starts at position 1. The returned value is the character position at which the next word starts. If
IPOSN already points to a character within a word, it is returned unchanged. If no word is found,
IPOSN is returned pointing to the end of the string, and STATUS is returned set.
STATUS =
INTEGER (Given and Returned)
The status value: if this value is not SAI__OK on entry, the routine
returns without action; if no word is found, STATUS is returned set to CHR__WNOTF.
Note: The CHR__WNOTF symbolic constant is defined in the CHR_ERR include file.
Copyright © 2018 East Asian Observatory