C	===================================================
C	PUTTER
C		INSERTS A REAL*8 VALUE IN THE NEXT LOCATION
C		OF AN ARRAY , AND AN INTEGER*4 VALUE
C		IN THE CORRESPONDING LOCATION OF ARRAY "VALUES"
C	PARAMETERS
C		TABLE	A REAL*8 ARRAY TO HOLD 8 CHARACTER NAMES
C		VALUES	AN INTEGER*4 ARRAY TO HOLD VALUES
C		SIZE	THE SIZE OF BOTH ARRAYS
C		NAME	A REAL*8 STRING TO STORE IN TABLE
C		VALUE	AN INT*4 VALUE TO STORE IN VALUES
C
C	LUN 2	IS USED FOR ERROR PRINTOUTS
C
C	*** THE ARRAY "TABLE" MUST BE SET TO 0'S BEFORE STARTING ***
C
C	===================================================
C
	SUBROUTINE PUTTER (TABLE,VALUES,SIZE,NAME,VALUE)

	COMMON /HOUSE/ PAGE,BUFF,J,LINENO,LLNO,APC,PASS
	INTEGER*2 PAGE,PASS,LINENO,LLNO
	INTEGER*4 APC
	BYTE	  BUFF(80)

	INTEGER SIZE
	INTEGER*4 VALUES(SIZE),VALUE
	REAL*8	  TABLE(SIZE),NAME

	DO 20  I=1,SIZE
	IF (TABLE(I).EQ.NAME) GOTO 100
	IF (TABLE(I).EQ.0) GOTO 50
20	CONTINUE
	WRITE (4,1000)LINENO
1000	FORMAT (' TABLE FULL AT  ',I5)
	RETURN

50	TABLE(I)=NAME
	VALUES(I)=VALUE
	RETURN

100	IF (VALUES(I).EQ.VALUE) RETURN
	WRITE (4,1100) NAME,LINENO
1100	FORMAT (' REDEFINED SYMBOL [',A8,'] AT LINE NO',I5)
	RETURN
	END