1 {-
    2         Constant definition module.  Used every where.
    3 
    4         XZ, 24/10/91
    5 -}
    6 
    7 {-
    8         Modified to define My_Array
    9 
   10         XZ, 19/2/92
   11 -}
   12 
   13 module Defs (
   14         Frac_type, My_Array, v_nodel, p_nodel,
   15         large_scalor, small, large
   16         ) where
   17 
   18 import S_Array
   19 import Norm     -- not needed w/ proper module handling
   20 
   21 type Frac_type = Float
   22 type My_Array a b = S_array b
   23 
   24 -----------------------------------------------------------
   25 -- number of velocity nodes in an element                --
   26 -----------------------------------------------------------
   27 
   28 v_nodel = 6 :: Int
   29 
   30 -----------------------------------------------------------
   31 -- number of pressure nodes in an element                --
   32 -----------------------------------------------------------
   33 
   34 p_nodel = 3 :: Int
   35 
   36 large_scalor = 1.0e20 :: Frac_type
   37 
   38 large = 1.0e20 :: Frac_type
   39 
   40 small = 1.0e-40 :: Frac_type