%N ariinq %F $MIR/src/subs/ari.for
%D Return information from Ari buffers
%P pjt
%: mathematics
%B
        subroutine ariInq(Buf,RBuf,BSize,RBSize)

        implicit none
        integer Buf(*)
        real RBuf(*)
        integer BSize,RBSize

  This returns information about the number of locations that are
  currently used in Buf and RBuf.

  Inputs:
       Buf     List of tokens, as returned by AriComp
       RBuf    Constants, as returned by AriComp
  Outputs:
       BSize   Number of tokens held in BUF, including the 4 headers.
       RBSize  Number of constants held at start of RBUF.
