anchor.diff:  !  Master Module Subrotuine
   !  V.K. Berglyd Olsen, BE-ABP-HSS
   !  Created: 2019-07-08
  -!  Updated: 2019-07-08
  +!  Updated: 2019-07-09
   !  Called from main_cr if dist_enable is true. This should handle everything needed.
   ! ================================================================================================ !
   subroutine dist_generateDist
  
positive.code: ! ================================================================================================ !
  !  A. Mereghetti and D. Sinuela Pastor, for the FLUKA Team
  !  V.K. Berglyd Olsen, BE-ABP-HSS
  !  Last modified: 2018-10-30
  ! ================================================================================================ !
  subroutine dist_readDist
  
  
negative.code:   write(lout,"(a,2(1x,i0),1x,f15.7,2(1x,i0))") "DIST> Reference particle species [A,Z,M,Q,ID]:", aa0, zz0, nucm0, qq0, pdgid0
    write(lout,"(a,1x,f15.7)")       "DIST> Reference energy [Z TeV]:", c1m6*e0/qq0
  
  end subroutine dist_finaliseDist
  
  ! ================================================================================================ !
  