MPH_init - initialize MPI and read the processors map info

This routine calls mpi_init, obtains global processor id. It reads and processes the ``processors_map.in'' file. It also defines an MPI_Acomponent sturcture (includes component name, number of processors and processor list for each component) for easy gather and scatter.

REVISION HISTORY:

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

INTERFACE:

       subroutine MPH_init ()

USES:

       implicit none

SEE ALSO:

       MPH_read_list, MPH_local, MPH_global

LOCAL VARIABLES:

       integer :: iblock(3), idisp(3), itype(3)

\