FUNCTION IVLUF (IFIND, IVEC, NC)
	DIMENSION IVEC(1)
	DO 10 I=1, NC
	IF (IVEC(I) .EQ. IFIND) GO TO 20
 10	CONTINUE
	IVLUF = -1
	RETURN
 20	CONTINUE
	IVLUF = I
	RETURN
	END