anchor.diff:  #endif
   
   #ifdef G4COLLIMAT
  -! These should be configured in the scatter block when possible/enabled
  +  ! These should be configured in the scatter block when possible/enabled
     real(kind=fPrec) g4_ecut
     integer g4_physics
   #endif
   
  -  call f_requestUnit('colltrack.out', outlun)
  -  open(unit=outlun, file='colltrack.out')
  -
  -  if(st_quiet == 0) then
  -    write(lout,"(a)") '         -------------------------------'
  -    write(lout,"(a)")
  -    write(lout,"(a)") '          Program      C O L L T R A C K '
  -    write(lout,"(a)")
  -    write(lout,"(a)") '            R. Assmann           -    AB/ABP'
  -    write(lout,"(a)") '            C. Bracco            -    AB/ABP'
  -    write(lout,"(a)") '            V. Previtali         -    AB/ABP'
  -    write(lout,"(a)") '            S. Redaelli          -    AB/OP'
  -    write(lout,"(a)") '            G. Robert-Demolaize  -    BNL'
  -    write(lout,"(a)") '            A. Rossi             -    AB/ABP'
  -    write(lout,"(a)") '            T. Weiler            -    IEKP'
  -    write(lout,"(a)") '                 CERN 2001 - 2009'
  -    write(lout,"(a)")
  -    write(lout,"(a)") '         -------------------------------'
  -  else
  -    write(lout,"(a)") ""
  -    write(lout,"(a)") " INITIALISING COLLIMATION"
  -    write(lout,"(a)") ""
  -  end if
  +  call f_requestUnit("colltrack.out", outlun)
  +  call f_open(unit=outlun,file="colltrack.out",formatted=.true.,mode="w")
   
     write(outlun,*)
     write(outlun,*)
  
positive.code: 
  ! ================================================================================================ !
  !  Parse Input Line
  ! ================================================================================================ !
  subroutine collimate_parseInputLine(inLine, iLine, iErr)
  
  
negative.code: #endif
    end if
  
    ! Initialize efficiency array
    do i=1,iu
      sum_ax(i)   = zero
      sqsum_ax(i) = zero
  