anchor.diff:        use mod_ranlux
         use mod_funlux
         use floatPrecision
  +      use coll_crystal
   
   !. Moving in amorphous substance...........................
         IMPLICIT none
  
positive.code:       common/scat_cry/pptref_cry,pperef_cry,sdcoe_cry,pref_cry
        common/scat_cry/pptco_cry,ppeco_cry,freeco_cry
  
        real(kind=fPrec) tlcut_cry,hcut_cry(4)
        real(kind=fPrec) cgen_cry(200,4),tlow,thigh,ruth_cry
        external ruth_cry
  
        common/ruth_scat_cry/tlcut_cry,hcut_cry
        common/ruth_scat_cry/cgen_cry,mcurr_cry
  
        integer length_cry,mcurr_cry
        real(kind=fPrec) xran_cry(1)
  
  !-------daniele--------------
  
negative.code:       real(kind=fPrec) DYA,W_p
  !      REAL RNDM4
  !         REAL      RAN_GAUSS
        COMMON /ALAST/DLAI,SAI
        COMMON/CRYS/ DLRI,DLYI,AI,DES
        COMMON/eUc/eUm
  
  !------- adding variables --------
  