parameter(nfield=85) ! should be nrange+10 or more
      real bfld_prof(nfield),alpha_prof(nfield)
      common/mag/bfld_prof,alpha_prof