anchor.diff:  
     integer j, iSlice, nSlices
     logical onesided, linside(napx), isAbs, isHit
  -  real(kind=fPrec) jawLength,jawAperture,jawOffset,jawTilt(2),x_Dump,xpDump,y_Dump,ypDump,s_Dump,   &
  -    xmax,ymax,calc_aperture,zpj,xmax_pencil,ymax_pencil,xmax_nom,ymax_nom,nom_aperture,scale_bx,    &
  -    scale_by,c_tilt(2),c_offset,c_aperture,c_rotation,cry_bendangle,cry_tilt,cry_tilt0
  +  real(kind=fPrec) nsig,c_length,jawLength,jawAperture,jawOffset,jawTilt(2),x_Dump,xpDump,y_Dump,   &
  +    ypDump,s_Dump,xmax,ymax,calc_aperture,zpj,xmax_pencil,ymax_pencil,xmax_nom,ymax_nom,            &
  +    nom_aperture,scale_bx,scale_by,c_tilt(2),c_offset,c_aperture,c_rotation,cry_bendangle,cry_tilt, &
  +    cry_tilt0
   
     call time_startClock(time_clockCOLL)
   
  
positive.code:   integer, private, save :: icoll            = 0
    integer, private, save :: ie               = 1
    integer, private, save :: iturn            = 1
    integer, public,  save :: c_ix             = 0
  
    ! Distribution
    integer,          private, save :: do_thisdis   = 0
    real(kind=fPrec), public,  save :: c_enom       = zero
    logical,          private, save :: radial       = .false.
  
    ! Jaw Slicing
  
negative.code: !  Y.I. Levinsen, C. Tambasco, J. Molson, K.N. Sjobak, V.K. Berglyd Olsen
  !
  !  Created: 2004-10-27
  !  Updated: 2019-10-21
  !
  ! ================================================================================================ !
  module collimation
  