SUBROUTINE KSBFLD(BFLD, LTESLA)
C
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Sets the magnitude of magnetic field BFLDKN (always in Tesla).
C
C  BFLD    real variable (read)
C          B field
C
C  LTESLA  logical variable (read)
C          TRUE  = > BFLD is in Tesla
C          FALSE = > BFLD is in kGauss
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>