subroutine fcn8(n, w, f8)
implicit real(8) (a-h, o-z)

real(8) w(n),f8(n)

f8 =0.
x =w(1); y =w(2)
if( n>=3) z=w(3)

! Test1:
		f8(1) =x*x +y*y -5.
	f8(2) =y -exp(x) -1.

!18-III
!f(1) =x+y+z*z-3.8
!f(2) =x*y*z+1.9
!f(3) =sqrt(x)+sqrt(y)-z*z-1.3

! 19/I E: (2,1,-1)
!f(1) =x*x ++y*y +z*z-6.4
!f(2) =x*y*z +2.2
!f(3) =x +y-z*z-2.4

! Miel (1980):
!Fx = (2r3 - s2 - 1, rs3 - s - 4) = 0, x = (r, s).
!1.234 274 484; 1.661 526 467
!f8(1) =2*x*x*x -y*y -1
!f8(2) =x*y*y*y -y -4

! Vahidi 2012:(0.5,0,-pi/6)
!3x1 ? cos(x2x3) ? 1/2 = 0,
!x1^2? 81(x2 + 0.1)^2 + sinx3 + 1.06 = 0,
!e^(?x1x2) + 20x3 + (10pi?3)/3 = 0.

!x1 =w(1); x2 =w(2); x3 =w(3);
!pi =2*dasin(1.d0)
!f8(1) =3*x1 -dcos(x2*x3)- 0.5
!f8(2) =x1*x1 -81*(x2 + 0.1)**2 +dsin(x3) + 1.06
!f8(3) =dexp(-x1*x2) + 20*x3 + (10*pi-3)/3.


END
