sub gval.for

非线性回归问题SQP解法

	SUBROUTINE GVAL(N,ME,MI,M,NAMAX,X,OGRA,CGRA)
	DOUBLE PRECISION X(N),OGRA(N),CGRA(NAMAX,M)
	OGRA(1)=-1.0D0
	OGRA(2)=-1.0D0
	CGRA(1,1)=-2.0D0*X(1)
	CGRA(2,1)=-2.0D0*X(2)
	CGRA(1,2)=-2.0D0*X(1)
	CGRA(2,2)=1.0D0
	RETURN
	END