obf.for

conjugate gradient source code

	
	SUBROUTINE OBF(X,FX)
	DIMENSION X(2)
	FX=100*(X(2)-X(1)*X(1))*(X(2)-X(1)*X(1))+(1-X(1))*(1-X(1))
	RETURN
	END