MPH_find_name - find name in a namelist

This routine finds if a certain name exists in an array of namelist and returns the rank if it does or -1 if it does not.

REVISION HISTORY:

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

INTERFACE:

       integer function MPH_find_name (name, namelist, num)

USES:

       implicit none

INPUT PARAMETERS:

       character(len=*), intent(in) :: name   ! name to be found
       integer :: num                      ! length of namelist array
       character (len=32) namelist(num)    ! name list array

OUTPUT PARAMETERS:

       ! the rank of a name in an array of namelist or -1 if not exist

LOCAL VARIABLES:

       integer :: i

\