MPH_global_id - find global processor id

This function returns global processor id given the component name and local processor id in that component.

REVISION HISTORY:

       2001-Nov-15 -- add PROTEX convention
       2001-May-20 -- first prototype

INTERFACE:

       integer function MPH_global_id (cname, lid)

USES:

       implicit none

SEE ALSO:

       MPH_find_name

INPUT PARAMETERS:

       character(len=*), intent(in) :: cname   ! component name
       integer, intent(in) :: lid  
                                ! local processor id in the component

OUTPUT PARAMETERS:

       ! This function returns global_proc_id given the component 
       ! name and local_proc_id in that component.

LOCAL VARIABLES:

       integer :: temp

\