MPH_exe_up_proc_limit - find upper processor limit of a component

This function returns the relative upper processor limit of a component in the executable world.

REVISION HISTORY:

       2002-Jun-20 -- correct the argument from eid to cid
       2001-Dec-13 -- use optional argument
       2001-Nov-15 -- add PROTEX convention
       2001-May-20 -- first prototype

INTERFACE:

       integer function MPH_exe_up_proc_limit (cid)

USES:

       implicit none

SEE ALSO:

       MPH_exe_low_proc_limit

INPUT PARAMETERS:

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

OUTPUT PARAMETERS:

       ! exe_up_proc_limit (cid)

LOCAL VARIABLES:

       integer :: id, comm