MPH_local_world - find local communicator given component name

This routine returns local communicator given component name.

REVISION HISTORY:

       2001-Dec-13 -- first prototype

INTERFACE:

       integer function MPH_local_world (cname)

USES:

       implicit none

SEE ALSO:

       MPH_find_name, MPH_comp_id

INPUT PARAMETERS:

       character(len=*), intent(in), optional :: cname   ! component name

OUTPUT PARAMETERS:

       ! MPH_local_world

LOCAL VARIABLES:

       integer :: id, comm

\