Previous: prsugt Up: ../plot79_p.html Next: prsvfn

PRSUQS

       INTEGER FUNCTION  PRSUQS (STATUS, STDHMS, HLPSTR, LENHLP, DEFSTR,
      X     LENDEF)
 C$    (Parse - Unquoted String)
 C$    Parse an unquoted string, leaving it in COMMON.  The string
 C$    is terminated by a break character, by default a  character
 C$    other than  a  letter,  digit,  or  hyphen.   This  can  be
 C$    overridden if a user-defined break mask has been specified.
 C$    A null string is a legal input.  The arguments are:
 C$
 C$    STATUS.........Parsing status  value (and  function  value)
 C$                   returned;  one  of   EOF,  NOPABT,   NOPHLP,
 C$                   NOPIFL, NOPUNK,  OKAY,  OVRFLO,  or  REPARS.
 C$                   The help return, NOPHLP, is only given if an
 C$                   alternative   parse    is    in    progress.
 C$                   Otherwise, this routine loops until the user
 C$                   completes the  input  field  with  something
 C$                   other than the help 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$    (25-APR-84)