SUBROUTINE KSBPOS(BPOS, BSIG)
C
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C     Sets the beam position and size
C
C  BPOS    real array (read)
C          (x,y,z) of beam
C
C  BSIG    real array (read)
C          (sigx, sigy, sigz) of beam
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>