00001 !example problem 6.5.1 given in [1] p149 00002 subroutine f(X,func,n) 00003 implicit none 00004 integer n 00005 real(8) X(n),func(n) 00006 00007 00008 func(1)=X(1)**2.d0+X(2)**2.d0-2.d0 00009 func(2)=dexp(X(1)-1.d0)+X(2)**3.d0-2.d0 00010 00011 end subroutine f
