-- 
--      Patricia Fasel
--      Los Alamos National Laboratory
--	GAMTEB: Monte Carlo
--      1990 August
--
module GamtebType (Angle, Coord, Energy, Indx, PartType, Prob, 
		 Random, StatType, Weight, Value, Result, Stat,
		 Point, Particle(..), Probability) where

type	Angle		= Double
type	Coord		= Double
type	Energy		= Double
type	Indx		= Int		-- index into energy and xsect tables
type	PartType	= Int		-- particle scatter, escape, transmit
type	Prob		= Double
type	Random		= Double
type	StatType	= Int		-- which statistic is incremented
type	Weight		= Double	-- final weight of the particle
type	Value		= Double
type	Result		= ((PartType, Indx), Weight)
type	Stat		= (StatType, Value)
type	Point		= (Coord, Coord, Coord)
type	Probability	= (Prob, Prob, Prob, Prob)

data Particle = 
	Part
	Point			-- position of particle
	Point			-- direction particle is moving in
	Weight			-- weight of particle
	Energy			-- energy of particle
	Indx			-- energy index of particle in table
	Int			-- cell indicating split or roulette
	Random			-- seed of random number generator