program main
      implicit double precision (a-h,o-z)
      common pri(3 000 000)
      isize = 3 000 000
      call poiss(pri,isize,ierr)
*         
      stop
      end