C	======================================
C	GETTER
C		SUBROUTINE SEARCHES A TABLE FOR A MATCH, AND
C		RETURNS THE CORRESPONDING VALUE FROM A SECOND
C		TABLE
C	PARAMETERS
C		TABLE	A REAL*8 LIST OF NAMES TO MATCH
C		VALUES	AN INT*4 LIST OF VALUES
C		SIZE	THE SIZE OF BOTH LISTS
C		NAME	THE REAL*8 THING TO MATCH
C		VALUE	THE VALUE IS RETURNED HERE
C			IT IS RETURNED AS -1 IF IT DOESN'T EXIST
C			SO THE CALLER CAN TELL WHATS UP
C
C	LUN 4	IS USED FOR ERROR PRINTOUTS
C
C	=====================================================
	SUBROUTINE GETTER (TABLE,VALUES,SIZE,NAME,VALUE)

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

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

	VALUE=-1

	DO 20  I=1,SIZE
	IF (TABLE(I).EQ.NAME) GOTO 100
	IF (TABLE(I).EQ.0) GOTO 50
20	CONTINUE
50	IF (PASS.EQ.2) WRITE (4,1000) NAME,LINENO
1000	FORMAT (' SYMBOL [',A8,'] NOT IN TABLE AT LINE',I5)
	RETURN
100	VALUE=VALUES(I)
	RETURN
	END