 double y[],</SPAN></FONT>
                       <FONT SIZE=3><SPAN LANG="en-US">double delta[])</SPAN></FONT>
  <FONT SIZE=3><SPAN LANG="en-US">{</SPAN></FONT>
    <FONT SIZE=3><SPAN LANG="en-US">double y1,y2;</SPAN></FONT>

    <FONT SIZE=3><SPAN LANG="en-US">y1=y[1];</SPAN></FONT>
    <FONT SIZE=3><SPAN LANG="en-US">y2=y[2];</SPAN></FONT>
    <FONT SIZE=3><SPAN LANG="en-US">j[1][1] = 1999.987-1000.0*(2.0*y1+y2);</SPAN></FONT>
    <FONT SIZE=3><SPAN LANG="en-US">j[1][2] = -1000.0*y1;</SPAN></FONT>
    <F