anchor.diff:                                              !(in case of dechanneling)
         real(kind=fPrec) Am_length            !Amorphous length
         real(kind=fPrec) Length_xs, Length_ys !Amorphous length
  -      real(kind=fPrec) miscut               !miscut angle in rad
         real(kind=fPrec) L_chan, tchan
         real(kind=fPrec) xp_rel               !xp-miscut angle in mrad
   !      REAL RNDM                           !random numbers
   !      REAL      rndm4
   !      REAL      RAN_GAUSS
         real(kind=fPrec) eUm(4)                !maximum potential
  -      CHARACTER(LEN=50) PROC        !string that contains the physical process
   
         real(kind=fPrec) rho(4),z(4),Ime(4) !Daniele: material parameters for dE/dX calculation
         real(kind=fPrec) k,re,me,mp !Daniele: parameters for dE/dX calculation (const,electron radius,el. mass, prot.mass)
  
positive.code:       use mod_ranlux
        use mod_funlux
        use coll_k2
        use coll_common, only : cry_proc
        use floatPrecision
  
        IMPLICIT NONE
  !
        integer     MAX_NCOLL
        PARAMETER     (MAX_NCOLL = 99)
  !
           integer         icoll      ! MDA: collimator ID to read parameters from new CollDB format
           integer         mat
  
negative.code:       common/scat_cry/pptref_cry,pperef_cry,sdcoe_cry,pref_cry
        common/scat_cry/pptco_cry,ppeco_cry,freeco_cry
  
        real(kind=fPrec) tlow,thigh,ruth_cry
        external ruth_cry
  
        integer length_cry
        real(kind=fPrec) xran_cry(1)
  
  
  