约束子程序.for

来自「以前一个高人的程序」· FOR 代码 · 共 12 行

	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