anchor.diff:  
   !GRD THIS LOOP MUST NOT BE WRITTEN INTO THE "IF(FIRSTRUN)" LOOP !!!!
     if(dowritetracks) then
  -    do j = 1, napx
  +    do j=1, napx
         xj    = (xv1(j)-torbx(ie))/c1e3
         xpj   = (yv1(j)-torbxp(ie))/c1e3
         yj    = (xv2(j)-torby(ie))/c1e3
  
positive.code:   integer, private, save :: impact_unit, tracks2_unit, pencilbeam_distr_unit, coll_ellipse_unit, all_impacts_unit
    integer, private, save :: FLUKA_impacts_unit, FLUKA_impacts_all_unit, coll_scatter_unit, FirstImpacts_unit, RHIClosses_unit
    integer, private, save :: twisslike_unit, sigmasettings_unit, distsec_unit, efficiency_unit, efficiency_dpop_unit
    integer, private, save :: coll_summary_unit, amplitude_unit, amplitude2_unit, betafunctions_unit, orbitchecking_unit, distn_unit
    integer, private, save :: CollPositions_unit, all_absorptions_unit, efficiency_2d_unit
    integer, private, save :: collsettings_unit, outlun
  
  
negative.code:   mybetax  = tbetax(1)
    mybetay  = tbetay(1)
  
    if(myemitx0_dist <= zero .or. myemity0_dist <= zero .or. myemitx0_collgap <= zero .or. myemity0_collgap <= zero) then
      write(lout,"(a)") "COLL> ERROR Emittances not defined! check collimat block!"
      write(lout,"(a)") "COLL> ERROR Expected format of line 9 in collimat block:"
      write(lout,"(a)") "COLL> ERROR emitnx0_dist  emitny0_dist  emitnx0_collgap  emitny0_collgap"
  