1 -- 
    2 --      Patricia Fasel
    3 --      Los Alamos National Laboratory
    4 --      PIC: Particle in Cell
    5 --      1990 August
    6 --
    7 module PicType (Count, Indx, Value, Mesh, MeshAssoc, Electric,
    8                Phi, Rho, Position, Range, Velocity, ParticleHeap) where
    9 
   10 import Array
   11 
   12 type    Count           = Int
   13 type    Indx             = Int
   14 type    Value           = Double
   15 type    Mesh             = Array (Int,Int) Value
   16 type    MeshAssoc  = ((Int,Int), Value) -- changed for 1.3
   17 type    Electric   = (Mesh, Mesh)
   18 type    Phi               = Mesh
   19 type    Rho               = Mesh
   20 type    Position   = (Value, Value)
   21 type    Range           = [Indx]
   22 type    Velocity   = (Value, Value)
   23 type    ParticleHeap       = ([Position], [Velocity])