anchor.diff:  
     ! common/co6d/
     real(kind=fPrec), save :: clo6(3),clop6(3)
  -
  -  ! common /dkic/
  -  real(kind=fPrec), allocatable, save :: dki(:,:) !(nele,3)
   
     ! common /beam/
     real(kind=fPrec),              save :: sigman(2,nbb),sigman2(2,nbb),sigmanq(2,nbb)
  
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: 
    ! 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 :: bka(:,:)      ! Multipoles: B-RMS
    real(kind=fPrec), allocatable, save :: aka(:,:)      ! Multipoles: A-RMS
    real(kind=fPrec), allocatable, save :: norrfamp(:,:) ! RF Multipoles:
  