约束子程序.for

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

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