1 -- 2 -- Patricia Fasel 3 -- Los Alamos National Laboratory 4 -- 1990 August 5 -- 6 module Consts (cylLen,cylLen2,cylRad,cylRad2,wgtCut,wgtCut2,ergCut, 7 big,small,nothing, 8 scatter,escape,transit,numExit,numLev,numStat, 9 ne,nt,ns,nek,nwk,nr,nsp,nc,nnc,nrk,wrl,wrg) where 10 11 12 cylLen,cylLen2,cylRad,cylRad2,wgtCut,wgtCut2,ergCut,big,small,nothing :: Double 13 cylLen = 20.0 -- cylinder length 14 cylLen2 = cylLen + 10.0 -- cylinder length squared 15 cylRad = 1.0 -- cylinder radius 16 cylRad2 = cylRad * cylRad -- cylinder radius squared 17 big = 100.0 18 small = 0.0000001 19 nothing = -30.0 -- bad value in xsect table 20 wgtCut = 0.5 -- weight cutoff of a particle 21 wgtCut2 = wgtCut * wgtCut -- weight cutoff squared 22 ergCut = 0.001 -- energy cutoff in pair 23 24 scatter,escape,transit,numExit,numLev,numStat :: Int 25 ne,nt,ns,nek,nwk,nr,nsp,nc,nnc,nrk,wrl,wrg :: Int 26 scatter = 1 27 escape = 2 28 transit = 3 29 numExit = 3 30 numLev = 35 31 numStat = 12 -- number of statistics 32 ne = 1 -- number of escapes 33 nt = 2 -- number of transits 34 ns = 3 -- number of scatters 35 nek = 4 -- number of energy kills 36 nwk = 5 -- number of weight kills 37 nr = 6 -- number of roulettes 38 nsp = 7 -- number of splits 39 nc = 8 -- number of collisions 40 nnc = 9 -- number of noncollisions 41 nrk = 10 -- number of roulette kills 42 wrl = 11 -- weight in roulette lost 43 wrg = 12 -- weight in roulette gained