SUBROUTINE CKLIST(LIST,LENGTH,WORD,INLIST,WHERE)
C+
C	SUBROUTINE CKLIST WILL CHECK 'LIST' OF LENGTH 'LENGTH'
C	TO SEE IF 'WORD' IS IN IT.  IF SO INLIST=.TRUE. AND
C	'WHERE' WILL BE THE LIST ELEMENT NUMBER.
C	**REMEMBER THAT LISTS ARE NOT IN ALPHABETICAL ORDER!!!
C		(THEREFORE CANNOT USE BINARY SEARCH AS IN CKDICT)
C-
	INTEGER*2 WHERE
	LOGICAL*1 INLIST
	CHARACTER*25 LIST(LENGTH),WORD
C 
	INLIST=.FALSE.
	WHERE=0
	DO 10,I=1,LENGTH
	IF(WORD.EQ.LIST(I))THEN
		INLIST=.TRUE.
		WHERE=I
		RETURN
	END IF
10	CONTINUE
	RETURN
	END