Jonathan Kelada / NPB3.3.1-CUSTOM · Files

mpinpb.h 460 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 

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