PE_in_num_comps - return the number of components a processor

in

This function returns the number of components a processor is in.

REVISION HISTORY:

       2001-Dec-13 -- first prototype

INTERFACE:

       integer function PE_in_num_comps ()

USES:

       implicit none

SEE ALSO:

       PE_in_component

LOCAL VARIABLES:

       integer :: id, i

\