Previous: prsins Up: ../plot79_p.html Next: prslen
INTEGER FUNCTION PRSKEY (STATUS, STDHMS, HLPSTR, LENHLP, DEFSTR,
X LENDEF,WRDLST, PTRWRD, LENWRD, NWORDS, WRDNUM)
C$ (Parse - Keyword)
C$ Parse a keyword list, leaving the matching keyword in
C$ COMMON. The arguments are:
C$
C$ STATUS.........Parsing status value (and function value)
C$ returned; one of NOPABT, NOPAMB, NOPHLP,
C$ NOPIFL, NOPNUL, NOPUNK, OKAY, OVRFLO, or
C$ REPARS. If the return value is not OKAY,
C$ the input pointer is backed up to its value
C$ at entry, allowing a retry with another
C$ field type. The help return, NOPHLP, is
C$ only given if an alternative parse is in
C$ progress. Otherwise, this routine loops
C$ until the user completes the input field
C$ with something other than the help
C$ character.
C$ STDHMS......... .TRUE. - issue standard help message.
C$ .FALSE. - suppress standard help message.
C$ HLPSTR(*)......Packed Hollerith help string.
C$ LENHLP.........Length of HLPSTR(*).
C$ DEFSTR(*)......Packed Hollerith default value string.
C$ LENDEF.........Length of DEFSTR(*).
C$ WRDLST(*)......Packed Hollerith word list in format for
C$ PRSIK.
C$ PTRWRD(*)......Pointers to words in WRDLST(*), created by
C$ PRSCK.
C$ LENWRD(*)......Lengths of words in WRDLST(*), created by
C$ PRSCK.
C$ NWORDS.........Number of words in WRDLST(*).
C$ WRDNUM.........Integer word number returned on successful
C$ keyword match, or 0 if ambiguous or no
C$ match.
C$ (25-APR-84)