MPH_num_comps - find number of components in an executable

This fuction returns number of components in an executable given the executable id.

REVISION HISTORY:

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

INTERFACE:

       integer function MPH_num_comps (eid)

USES:

       implicit none

INPUT PARAMETERS:

       integer, intent(in), optional :: eid   ! executable id

OUTPUT PARAMETERS:

       ! num_comps (eid)

\