SUBROUTINE ADDLST(LIST,LENGTH,WORD,LISTLN)
C+
C	SUBROUTINE ADDLST WILL ADD WORD TO LIST AND INCREASE
C	THE LENGTH TO LENGTH + 1.
C 
C	ONLY VALID FOR LIST LESS THAN LISTLN ELEMENTS
C 
C	SUBROUTINES REFERENCED
C		EXIT	- FORTRAN EXIT ROUTINE
C 
C-
	CHARACTER*25 LIST(LISTLN),WORD
C 
	LENGTH=LENGTH+1
	IF(LENGTH.GT.LISTLN)THEN
		WRITE(3,1000)
		CALL EXIT
	END IF
	LIST(LENGTH)=WORD
	RETURN
1000	FORMAT(' SPE - ADDLST OVERFLOW')
	END