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