MPH_total_components - find number of total components

This function returns the number of total components.

REVISION HISTORY:

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

INTERFACE:

       integer function MPH_total_components ()

USES:

       implicit none

OUTPUT PARAMETERS:

       ! total_components

\