SUBROUTINE KGBFLD(BFLD, LTESLA)
C
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Returns the magnetic field
C
C *BFLD    real variable (read)
C          B field returned to caller
C
C  LTESLA  logical variable (read)
C          TRUE  = > Get B field value in Tesla
C          FALSE = > Get B field value in kGauss
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>