include "parmbuf"
      integer ip
      real buf
      common/buffer/ip,buf(ibufmax)
      save /buffer/