	REAL FUNCTION COMPUTE(X,J)
	REAL X,Y
	INTEGER J,K
	Y = X**3
	K = J*3
	COMPUTE = Y+K
	END
