! Function g for FIX
function g(x)
!common p
use comun, only:p

g =x-p*(exp(x)-3*x*x)

!g =(1.78-0.2*tan(x))/(1+tan(x))

!g =1.58+0.99*cos(x)
!g =(2.16 +0.253*tan(x))/(1+tan(x))
!g =(2.1 +0.2*tan(x))/(1+tan(x))

!10-32: x~0.5
!g =(1.15 -0.69*tan(x))/(1+tan(x))

!g=1.6 +.98*cos(x)

end
