This function returns the local processor id given the component id.
REVISION HISTORY:
2001-Dec-13 -- use optional argument 2001-Nov-15 -- add PROTEX convention 2001-May-20 -- first prototypeINTERFACE:
integer function MPH_local_proc_id (cid)USES:
implicit noneSEE ALSO:
MPH_global_proc_idINPUT PARAMETERS:
integer, intent(in), optional :: cid ! component idOUTPUT PARAMETERS:
! local_proc_id (cid)LOCAL VARIABLES:
integer :: id, comm
\