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