subroutine fcns(n, w, f)
dimension w(n),f(n)

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

f(1) =x*x+ y*y -5.
f(2) =y -exp(x) -1.
return
end

