00001 !test problem 3 given in [3] p21 00002 ! Powell badly scaled function 00003 subroutine jf(X,JAC,n) 00004 implicit none 00005 integer n 00006 real(8) X(n),JAC(n,n) 00007 00008 00009 JAC(1,1)=10.d0**4.d0*X(2) 00010 JAC(1,2)=10.d0**4.d0*X(1) 00011 JAC(2,1)=-dexp(-X(1)) 00012 JAC(2,2)=-dexp(-X(2)) 00013 00014 00015 end subroutine jf
1.5.8