LOAD:2_example

FUNC

 REAL*8 FUNCTION FUNC(X1,X2,X3)
 IMPLICIT REAL*8 (A-H,O-Z)
 FUNC = 0.0D0
 IF( ABS( SQRT(X1**2+X2**2)-X3 ) .LT. 0.5D0 )FUNC = X1+X2
 RETURN
 END