MPH_comm_join - join two components

This routine creates a joined MPI communicators for any two components. The order of these two components appeared in the subroutine parameter argumment has an effect on the local process id within the joined communicator.

REVISION HISTORY:

       2001-Nov-15 -- add PROTEX convention
       2001-May-20 -- first prototype

INTERFACE:

       subroutine MPH_comm_join (name1, name2, comm_joined)

USES:

       implicit none

SEE ALSO:

       MPH_find_name, PE_in_component

INPUT PARAMETERS:

       character(len=*), intent(in) :: name1, name2   ! two component names

OUTPUT PARAMETERS:

       integer, intent(out) :: comm_joined   
                                  ! joined communicator for two components

LOCAL VARIABLES:

       integer :: id1, id2      
       integer :: color, key
       logical :: con1, con2
       integer :: comm1, comm2

\