         REAL FUNCTION FUNC(X)  
         common /pawpar/PAR(3)
         FUNC=PAR(1) +PAR(2)*(X)+par(3)*x*x*x*x
         END

