1 -- 
    2 --      Patricia Fasel
    3 --      Los Alamos National Laboratory
    4 --      GAMTEB: Monte Carlo
    5 --      1990 August
    6 --
    7 module GamtebType (Angle, Coord, Energy, Indx, PartType, Prob, 
    8                 Random, StatType, Weight, Value, Result, Stat,
    9                 Point, Particle(..), Probability) where
   10 
   11 type    Angle           = Double
   12 type    Coord           = Double
   13 type    Energy         = Double
   14 type    Indx             = Int               -- index into energy and xsect tables
   15 type    PartType   = Int         -- particle scatter, escape, transmit
   16 type    Prob             = Double
   17 type    Random         = Double
   18 type    StatType   = Int         -- which statistic is incremented
   19 type    Weight         = Double   -- final weight of the particle
   20 type    Value           = Double
   21 type    Result         = ((PartType, Indx), Weight)
   22 type    Stat             = (StatType, Value)
   23 type    Point           = (Coord, Coord, Coord)
   24 type    Probability        = (Prob, Prob, Prob, Prob)
   25 
   26 data Particle = 
   27         Part
   28         Point           -- position of particle
   29         Point           -- direction particle is moving in
   30         Weight                -- weight of particle
   31         Energy                -- energy of particle
   32         Indx      -- energy index of particle in table
   33         Int         -- cell indicating split or roulette
   34         Random                -- seed of random number generator