list_index

INTERFACE:

    subroutine list_index (list, name, index)

DESCRIPTION:

USES:

ARGUMENTS:

      implicit none
      character(len=*), intent(in) :: list(max_flds)  ! input list of names, possibly ":" delimited
      character(len=max_namlen), intent(in) :: name   ! name to be searched for
      integer, intent(out) :: index                   ! index of "name" in "list"

REVISION HISTORY:

   Created by Jim Rosinski

LOCAL VARIABLES: