anchor.diff:    real(kind=fPrec), intent(in) :: stracki
   
     integer j,jjj
  -  logical, allocatable :: linside(:) !(npart)
  +  logical linside(napx)
     real(kind=fPrec) x_Dump,xpDump,y_Dump,ypDump,s_Dump
   
   #ifdef G4COLLIMATION
  
positive.code:            y_Dump=z
             ypDump=zp
             s_Dump=sp+real(j_slices-1,fPrec)*c_length
             write(profiling_jaw_unit,'(i2,1x,i7,1x,i5,5(1x,e17.9),1X,i1)') &
                    icoll,iturn,name(j),x_Dump,xpDump,y_Dump,ypDump,s_Dump,1
          end if
        end if
  
negative.code: 
    use crcoall
    use parpro
    use mod_common, only : iexact, napx
    use mathlib_bouncer
    use mod_ranlux
  #ifdef HDF5
  