subroutine kget_beam_position(bpos, bsig)
*
* begin_doc
*
*  Get the beam position and errors
*
*  Input Parameters:
*  None
*
*  Output Parameters:
*  bpos         double precision array
*               (x,y,z) of beam
*
*  bsig         double precision array
*               (sigx, sigy, sigz) of beam
*
*  Other routines:
*
*  Notes:
*
*  Author:   Paul Avery      Created:  Fri Sep  5 14:01:57 EDT 1997
*
*  Major revisions:
*
*
* end_doc