MPH_global - global handshaking

This routine first creates an MPI communicator COMM_master for all submasters (whose rank is 0 in the executable world). It then does an MPI_allgatherv in COMM_master to collect all the components information from each submaster. Then each submaster broadcasts AComponents to all PEs in its local exe_world. Finally, every processor lists the complete info of all the components.

REVISION HISTORY:

       2002-Apr-15 -- correct a bug in declaring sendbuf
       2001-Dec-13 -- add warning for overlapping processors
       2001-Nov-19 -- add PROTEX convention
       2001-May-20 -- first prototype

INTERFACE:

       subroutine MPH_global ()

USES:

       implicit none

SEE ALSO:

       MPH_init, MPH_local, MPH_debug

LOCAL VARIABLES:

       integer :: id, i, color, key
       type (Acomponent) :: sendbuf(max_num_comps)
       integer :: sendcount
       integer :: recvcounts(0:total_num_exe-1)
       integer :: displs(0:total_num_exe-1)

\