00001 !test problem 3 given in [3] p21 00002 ! Powell badly scaled 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)=10**4.d0*X(1)*X(2)-1.d0 00012 func(2)=dexp(-X(1))+dexp(-X(2))-1.0001d0 00013 00014 00015 00016 00017 00018 00019 end subroutine f
1.5.8