anchor.diff:  ! ================================================================================================ !
   
   #ifdef G4COLLIMATION
  -subroutine coll_doCollimator_Geant4(c_aperture,c_rotation)
  +subroutine coll_doCollimator_Geant4(c_aperture,c_rotation,c_length)
   
     use crcoall
     use mod_common
  
positive.code:   ! Allocate Common Variables
    call coll_expandArrays(npart_new, nblz_new)
  
    call alloc(rcx0,     npart_new, zero, "rcx0")
    call alloc(rcxp0,    npart_new, zero, "rcxp0")
    call alloc(rcy0,     npart_new, zero, "rcy0")
    call alloc(rcyp0,    npart_new, zero, "rcyp0")
    call alloc(rcp0,     npart_new, zero, "rcp0")
  
    call alloc(part_hit_before_pos,  npart_new, 0, "part_hit_before_pos")
    call alloc(part_hit_before_turn, npart_new, 0, "part_hit_before_turn")
    call alloc(part_hit_pos,         npart_new, 0, "part_hit_pos")
    call alloc(part_hit_turn,        npart_new, 0, "part_hit_turn")
    call alloc(part_abs_pos,         npart_new, 0, "part_abs_pos")
    call alloc(part_select,          npart_new, 1, "part_select")
    call alloc(nabs_type,            npart_new, 0, "nabs_type")
    call alloc(nhit_type,            npart_new, 0, "nhit_type")
  
    call alloc(part_impact,          npart_new,  zero, "part_impact")
    call alloc(part_indiv,           npart_new, -c1m6, "part_indiv")
    call alloc(part_linteract,       npart_new,  zero, "part_linteract")
  
    if(dowrite_amplitude) then
      call alloc(nampl,    nblz_new,  0,    "nampl")
  
negative.code:   real(kind=fPrec), private, save :: c_emity0_collgap = zero
  
    character(len=mNameLen), private, save :: name_sel = " "
  
    ! M. Fiascaris for the collimation team
    ! Variables for global inefficiencies studies of normalized and off-momentum halo
  