subroutine kset_bfield(bfld, eta, ltesla)
*
* begin_doc
*
*  Sets the magnitude and direction of magnetic field
*
*  Input Parameters:
*  bfld           double precision variable
*                 B field
*
*  eta(3)         double precision array
*                 Direction cosines of B field
*
*  ltesla         logical variable
*                 TRUE  = > bfld is in tesla
*                 FALSE = > bfld is in kgauss
*
*  Output Parameters:
*  None
*
*  Other routines:
*
*  Notes:
*
*  Author:   Paul Avery      Created:  Fri Sep  5 14:39:14 EDT 1997
*
*  Major revisions:
*
*
* end_doc