2 c---------------------------------------------------------------------
3 c---------------------------------------------------------------------
7 integer node, no_nodes, total_nodes, root, comm_setup,
8 > comm_solve, comm_rhs, dp_type
10 common /mpistuff/ node, no_nodes, total_nodes, root, comm_setup,
11 > comm_solve, comm_rhs, dp_type, active
13 parameter (DEFAULT_TAG = 0)