00001 !test problem 2 given in [3] p21 00002 ! Freudenstein and Roth function 00003 subroutine f(X,func,n) 00004 implicit none 00005 integer i,n 00006 real(8) X(n),func(n) 00007 00008 00009 00010 00011 func(1)=-13.d0 + X(1) + 5.d0*X(2)**2.d0 - X(2)**3.d0 - 2.d0*X(2) 00012 func(2)=-29.d0 + X(1) + X(2)**3.d0 + X(2)**2.d0 - 14.d0*X(2) 00013 00014 00015 00016 00017 00018 00019 end subroutine f
1.5.8