        function func(x)
        common/pawpar/par(3)
        func=par(1)*exp(-1.*(x/par(2)))+par(3)
        end
