anchor.diff:  !     centred in the aperture centre are generated. (SR, 08-05-2005)
   
     use crcoall
  +  use mod_common, only : napx
     implicit none
   
  -  integer :: j,mynp
  -  real(kind=fPrec), allocatable :: myx(:) !(maxn)
  -  real(kind=fPrec), allocatable :: myxp(:) !(maxn)
  -  real(kind=fPrec), allocatable :: myy(:) !(maxn)
  -  real(kind=fPrec), allocatable :: myyp(:) !(maxn)
  -  real(kind=fPrec), allocatable :: myp(:) !(maxn)
  -  real(kind=fPrec), allocatable :: mys(:) !(maxn)
  +  integer :: j
  +  real(kind=fPrec), allocatable :: myx(:) !(npart)
  +  real(kind=fPrec), allocatable :: myxp(:) !(npart)
  +  real(kind=fPrec), allocatable :: myy(:) !(npart)
  +  real(kind=fPrec), allocatable :: myyp(:) !(npart)
  +  real(kind=fPrec), allocatable :: myp(:) !(npart)
  +  real(kind=fPrec), allocatable :: mys(:) !(npart)
   
     real(kind=fPrec) myalphax,mybetax,myemitx0,myemitx,mynex,mdex, &
     &mygammax,myalphay,mybetay,myemity0,myemity,myney,mdey,mygammay,   &
  
positive.code: 
  !+cd collpara
    integer, parameter :: max_ncoll  = 100
    integer, parameter :: maxn       = 20000
    integer, parameter :: numeff     = 32
    integer, parameter :: numeffdpop = 29
    integer, parameter :: nc         = 32
  
negative.code:   end do
  
  !++   2nd: give the correct values
    do j=startpar,napx
      myp(j) = myenom * (one + myp(j) * en_error)
      mys(j) = bunch_length * mys(j)
    end do
  