2 c---------------------------------------------------------------------
3 c---------------------------------------------------------------------
7 integer node, no_nodes, root, comm_setup,
8 > comm_solve, comm_rhs, dp_type
9 common /mpistuff/ node, no_nodes, root, comm_setup,
10 > comm_solve, comm_rhs, dp_type