examples/smpi/NAS/SP/mpinpb.h

   1
   2 c---------------------------------------------------------------------
   3 c---------------------------------------------------------------------
   4
   5       include 'mpif.h'
   6
   7       integer           node, no_nodes, total_nodes, root, comm_setup,
   8      >                  comm_solve, comm_rhs, dp_type
   9       logical           active
  10       common /mpistuff/ node, no_nodes, total_nodes, root, comm_setup,
  11      >                  comm_solve, comm_rhs, dp_type, active
  12       integer           DEFAULT_TAG
  13       parameter         (DEFAULT_TAG = 0)