anchor.diff:    use string_tools
     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, myalphay
     real(kind=fPrec) mybetax,myemitx
  
positive.code: 
  
  !========================================================================
  subroutine readdis(filename_dis,mynp,myx,myxp,myy,myyp,myp,mys)
  !
  !     SR, 09-08-2005
  !     Format for the input file:
  
negative.code:   end do
  
  !++   2nd: give the correct values
    do j=1,napx
      myp(j) = myenom * (one + myp(j) * en_error)
      mys(j) = bunch_length * mys(j)
    end do
  