! f(i) = expresie; i =1,n;

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.


! (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


END
