sub fval.for

非线性回归问题SQP解法

	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