ic double funct(int n,
double x[], double g[])</FONT></P>
<P><FONT SIZE=2 STYLE="font-size: 11pt">{</FONT></P>
<P><FONT SIZE=2 STYLE="font-size: 11pt">double temp;</FONT></P>
<P><BR><BR>
</P>
<P><FONT SIZE=2 STYLE="font-size: 11pt">temp=x[2]-x[1]*x[1];</FONT></P>
<P><FONT SIZE=2 STYLE="font-size: 11pt">g[1]=(-temp*400.0+2.0)*x[1]-2.0;</FONT></P>
<P><FONT SIZE=2 STYLE="font-size: 11pt">g[2]=temp*200.0;</FONT></P>
<P><FONT SIZE=2 STYLE="font-size: 11pt">return
temp*temp*100.0+(1.0-x[1])*(1.0-x[1]);</FONT></P>