%N token %F $MIR/src/subs/uvsubs.for
%D Obtain token delimited by _ ()[]
%P mchw
%: i/o, user-interaction.
%B
        character*(*) function token(in,inext,iend,leng)

        implicit none
        character*(*) in
        integer inext,iend,leng

  Obtain the next token from a string variable where the delimiters
       are _ ()[].

  Input:
    in         string being decoded
    inext      pointer into string in
    iend       length of in.
  Output:
    leng       length of token
