sub fval.for

来自「非线性回归问题SQP解法」· FOR 代码 · 共 7 行

	SUBROUTINE FVAL(N,ME,MI,M,X,OFUN,CFUN)
	DOUBLE PRECISION X(N),OFUN,CFUN(M)
	OFUN=-X(1)-X(2)
	CFUN(1)=1.0D0-X(1)**2-X(2)**2
	CFUN(2)=X(2)-X(1)**2
	RETURN
	END