anchor.diff:  
     ! IN "+CD DBTRTHIN" and "+CD DBDATEN"
   !  real(kind=fPrec) remitx_dist,remity_dist,
  -! &     remitx_collgap,remity_collgap
  -!  common  /remit/ remitx_dist, remity_dist,
  -! &     remitx_collgap,remity_collgap
   
     integer, private :: k
   !
  
positive.code:   real(kind=fPrec), allocatable, save :: pencil_dx(:) !(max_ncoll)
  !
  !-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
  !
  !+cd dbmkdist
  !++ Vectors of coordinates
  
  !  integer :: i,j,mynp,nloop
  !  real(kind=fPrec) :: myx(maxn) !(maxn)
  !  real(kind=fPrec) :: myxp(maxn) !(maxn)
  !  real(kind=fPrec) :: myy(maxn) !(maxn)
  !  real(kind=fPrec) :: myyp(maxn) !(maxn)
  !  real(kind=fPrec) :: myp(maxn) !(maxn)
  !  real(kind=fPrec) :: mys(maxn) !(maxn)
  !
  !  real(kind=fPrec) myalphax,mybetax,myemitx0,myemitx,mynex,mdex, &
  !  &mygammax,myalphay,mybetay,myemity0,myemity,myney,mdey,mygammay,   &
  !  &xsigmax,ysigmay,myenom,nr,ndr
  !
  !
  
  ! IN "+CD DBTRTHIN", "+CD DBDATEN", "+CD DBTHIN6D", and "+CD DBMKDIST"
  ! USED IN MULTIPLE COMMON BLOCKS
    logical, save :: cut_input
  !  common /cut/ cut_input
  
  !from +cd interac
  !October 2013
  !Mean excitation energy (GeV) values added by Claudia for Bethe-Bloch implementation:
  !  data (exenergy(i),i=1,5)/ 63.7e-9,166e-9, 322e-9, 727e-9, 823e-9 /
  !  data (exenergy(i),i=6,7)/ 78e-9, 78.0e-9 /
  
negative.code:   integer, save :: n_absorbed
  
    real(kind=fPrec), allocatable, save :: part_impact(:) !(npart)
  
  !  logical firstrun
  
    integer, save :: nsurvive, nsurvive_end, num_selhit, n_impact
  
    integer, save :: napx00
  
  