C	=====================================================
C	FINDER
C		SUBROUTINE LOOKS THROUGH A TABLE AND RETURNS
C		ZERO IF ITS NOT THERE, AND ITS POSITION IN THE
C		TABLE IF IT IS
C	PARAMETERS
C		ARRAY	AN INTEGER*4 (OR REAL) ARRAY CONTAINING
C	GETTER
C		LOOKS UP A VALUE IN A TABLE, GIVEN THE NAME
C	PARAMETERS
C		TABLE	REAL*8 LIST OF NAMES
C		VALUES	INT*4 LIST OF CORRESPONDING VALUES
C		SIZE	NUMBER OF ENTRIES, BOTH TABLES
C		NAME	REAL*8 NAME TO MATCH
C		VALUE	INT*4 VALUE TO RETURN
C
C	================================================
C

	SUBROUTINE FINDER (ARRAY,SIZE,NAME,J)
	INTEGER	SIZE
	INTEGER*4 ARRAY(SIZE),NAME

	DO 20  I=1,SIZE
	J=I
	IF (ARRAY(I).EQ.NAME) GOTO 50
20	CONTINUE

	J=0
50	RETURN
	END