[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / parallel / cfd / Main.hs
1 module Main where
2
3 import TG_iter
4 import Data8
5 import Gen_net
6 import S_Array
7 import Defs
8 import Quad_def
9
10 main = putStr call_tg
11
12 call_tg =
13 tg_iter
14 mon simpl m_iter m_toler max_jcb_iter jcb_toler relax
15 dlt_t node_lists (tri_fac ()) (init_vec ())
16 where
17 node_lists =
18 get_node_list p_total n_total (coord ()) (v_steer ()) (bry_nodes ()) p_fixed