subroutine fcn(n, w, f)
real(4) w(n),f(n)

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

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

end
