anchor.diff:  
     ! Single Element and Multipole Indexed (nele,mmul)
     real(kind=fPrec), allocatable, save :: bk0(:,:)      ! Multipoles: B-value
  -  real(kind=fPrec), allocatable, save :: ak0(:,:)      ! Multipoles: A-Value
  +  real(kind=fPrec), allocatable, save :: ak0(:,:)      ! Multipoles: A-value
     real(kind=fPrec), allocatable, save :: bka(:,:)      ! Multipoles: B-RMS
     real(kind=fPrec), allocatable, save :: aka(:,:)      ! Multipoles: A-RMS
     real(kind=fPrec), allocatable, save :: norrfamp(:,:) ! RF Multipoles:
  
positive.code:   real(kind=fPrec), allocatable, save :: sm(:)         ! Single Elements: Non-linear field, avg strength
    integer,          allocatable, save :: kz(:)         ! Single Elements: 2nd field, type
    integer,          allocatable, save :: kp(:)         ! Single Elements: Additional flag
  
    real(kind=fPrec), allocatable, save :: a(:,:,:)      ! Something Something Matrix (:,2,6)
  
  
negative.code:   call alloc(bezr,    mNameLen, 3, nele_new,       str_nmSpace, "bezr")
    call alloc(kpa,                  nele_new,       0,           "kpa")
    call alloc(bez,     mNameLen,    nele_new,       str_nmSpace, "bez")
    call alloc(bezl,    mNameLen,    nele_new,       str_nmSpace, "bezl")
    call alloc(ncororb,              nele_new,       0,           "ncororb")
    call alloc(ratioe,               nele_new,       one,         "ratioe")
  