c---------------------------------------------------------------------
c---------------------------------------------------------------------

      include 'mpif.h'

      integer           node, no_nodes, total_nodes, root, comm_setup, 
     >                  comm_solve, comm_rhs, dp_type
      logical           active
      common /mpistuff/ node, no_nodes, total_nodes, root, comm_setup, 
     >                  comm_solve, comm_rhs, dp_type, active
      integer           DEFAULT_TAG
      parameter         (DEFAULT_TAG = 0)