E:/turkuaz/krylov/codes/newton/1.2b/physics/test/2/f.f90

Go to the documentation of this file.

!test problem 1 given in [1] p362
! Extended Rosenbrock function
subroutine f(X,func,n)
implicit none
integer i,n
real(8) X(n),func(n)



do i=1,n/2
        
        func(2*i-1)=10.d0*(X(2*i)-X(2*i-1)**2.d0)
        func(2*i)=1-X(2*i-1)


end do



end subroutine f

---