    include "parmbuf.f90"
    integer :: ip
    real :: buf
    common/buffer/ip,buf(ibufmax)
