! Function g for FIX
real(8) function g8(x)
use comun, only: p
implicit REAL(8) (a-h,o-z)
!common p

!g8=1.6 +.98*dcos(x)
!g8=1.57 +.99*dcos(x)
!g8 =(1.15 -0.69*dtan(x))/(1+dtan(x))
!g8 =(2.16 +0.253*dtan(x))/(1+dtan(x))
!g8 =(1.15 -0.69*dtan(x))/(1+dtan(x))
!g8 =(2.1 +0.2*tan(x))/(1+tan(x))

g8 =x -p*(dexp(x)-3*x*x)

!f =(x-1)**3*(x-2)
!g8 =x-f

!g8 =(1.78 -0.2*dtan(x))/(1+dtan(x))
!g8 =(1.79 -0.19*dtan(x))/(1+dtan(x))

!g8 =0.6112 +1.073*dcos(x); x=1.2

!g8 =(1.78-0.2*dtan(x))/(1+dtan(x))

end
