00001 !test problem 1 given in [1] p362 00002 ! Extended Rosenbrock 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)=-20.d0*X(1) 00010 JAC(1,2)=10.d0 00011 JAC(2,1)=-1.d0 00012 JAC(2,2)=0.d0 00013 00014 00015 end subroutine jf
1.5.8