约束子程序.for

以前一个高人的程序

	SUBROUTINE Restrict(XX,YES) !约束函数子程序(针对X)
	REAL XX(100)
	INTEGER YES
	
	IF (XX(1).GE.0.AND.XX(1).LE.2.AND.XX(2).GE.0.AND.XX(2).LE.2)THEN
	    YES=1
	ELSE
	    YES=0
	ENDIF
	RETURN
	END