PE_in_component - check if a processor is in a component

This is a logical function to check if a processor is in a component.

REVISION HISTORY:

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

INTERFACE:

       logical function PE_in_component (name, comm)

USES:

       implicit none

SEE ALSO:

       MPH_find_name

INPUT PARAMETERS:

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

OUTPUT PARAMETERS:

       ! the local communicator of that component is written in comm.
       integer, intent(out) :: comm   ! communicator for the component

LOCAL VARIABLES:

       integer :: id, i

\