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

