	DOUBLE PRECISION FUNCTION F (I,X)
C
C	Polynomial model functions for LINFIT.
C
	DOUBLE PRECISION XX
C
	F = 1D0
	IF (I.EQ.1) RETURN
C
	XX = X
	DO 10 J=1,I-1
		F = F*XX
10	CONTINUE
C
	RETURN
	END
