c--
c       read Guinea_pig file
c--
      subroutine getbeam(kpart, vlab, plab3)
      implicit none
      integer kpart
      real  vlab(3), plab3(4)

      return
      end
