*KEEP,CMAGNT.
      COMMON/CMAGNT/BODGE,BFIELD(3)
C