anchor.diff:    cdist_betaY    = mybetay
     cdist_emitX    = myemitx0_dist
     cdist_emitY    = myemity0_dist
  -  cdist_ampX     = mynex
  -  cdist_ampY     = myney
  -  cdist_smearX   = mdex
  -  cdist_smearY   = mdey
  -  cdist_spreadE  = enerror
  -  cdist_bunchLen = bunchlength
  -  cdist_fileName = filename_dis
     call cdist_makeDist(do_thisdis)
     ! if(radial) then
     !   call makedis_radial(myalphax, myalphay, mybetax, mybetay, myemitx0_dist, myemity0_dist, &
  
positive.code: 
  !     Treat as a pencil beam in main routine.
  
  subroutine makedis_coll(myalphax, myalphay, mybetax, mybetay, mynex, mdex, myney, mdey)
  
    use crcoall
    use mathlib_bouncer
    use mod_ranlux
    use mod_common, only : napx
    use mod_common_main, only : xv1, xv2, yv1, yv2, ejv, sigmv
  
    implicit none
  
    integer :: j
  
    real(kind=fPrec) myalphax,mybetax,myemitx0,myemitx,mynex,mdex,myalphay,mybetay,&
      myemity0,myemity,myney,mdey,xsigmax,ysigmay
  
    real(kind=fPrec) iix, iiy, phix,phiy,cutoff
  
  
negative.code:   use mod_common_da
    use numerical_constants, only : c5m4
    use coll_db
    use coll_dist
    use mod_units
    use mathlib_bouncer
  
  