function f_gaussint, x, a

    gaussint_pro, x, a, f

return,f
end