subroutine kget_bfield(bfld, eta, ltesla) * * begin_doc * * Returns the magnetic field magnitude and direction cosines. * * Input Parameters: * ltesla logical variable * TRUE = > get B field value in tesla * FALSE = > get B field value in kgauss * * Output Parameters: * * Other routines: * * Notes: * * Author: Paul Avery Created: Fri Sep 5 14:12:30 EDT 1997 * * Major revisions: * * * end_doc