MPH_local_totProcs - find total number of processors

in a component.

This function returns the total number of processors in a component given the component id.

REVISION HISTORY:

       2001-Dec-13 -- use optional argument
       2001-Dec-13 -- use optional argument
       2001-Nov-27 -- first prototype

INTERFACE:

       integer function MPH_local_totProcs (cid)

USES:

       implicit none

SEE ALSO:

       MPH_global_totProcs

INPUT PARAMETERS:

       integer, intent(in), optional :: cid   ! component id

OUTPUT PARAMETERS:

       ! local_totProcs (cid)

LOCAL VARIABLES:

       integer :: id, comm

\