subroutine kset_beam_position(bpos, bsig)
*
* begin_doc
*
*  Sets the beam position and size
*
*  Input Parameters:
*  bpos(3)        double precision array
*                 (x,y,z) of beam
*
*  bsig(3)        double precion array
*                 (sigx, sigy, sigz) of beam
*
*  Output Parameters:
*  None
*
*  Other routines:
*
*  Notes:
*
*  Author:   Paul Avery      Created:  Fri Sep  5 14:34:58 EDT 1997
*
*  Major revisions:
*
*
* end_doc