SUBROUTINE KGBPOS(BPOS, BSIG)
C
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C     Get the beam position and size
C
C  BPOS    real array (write)
C          (x,y,z) of beam
C
C  BSIG    real array (write)
C          (sigx, sigy, sigz) of beam
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>