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