MPH_comp_name - find component name given component id

This function returns component name given component id.

REVISION HISTORY:

       2001-Dec-13 -- use optional argument
       2001-Nov-15 -- add PROTEX convention
       2001-May-20 -- first prototype

INTERFACE:

       character (len=32) function MPH_comp_name (cid)

USES:

       implicit none

SEE ALSO:

       MPH_find_name, MPH_comp_id, MPH_comm

INPUT PARAMETERS:

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

OUTPUT PARAMETERS:

       ! component_names (cid)

LOCAL VARIABLES:

       integer :: id, comm

\