SUBROUTINE FBOX(INPUT,OUTPUT)
	IMPLICIT NONE
	DOUBLE PRECISION INPUT(0:1)
	DOUBLE PRECISION OUTPUT(0:1)
	DOUBLE PRECISION X,Y,F,G

	X=INPUT(0)
	Y=INPUT(1)
	
	F=X**2+Y**2-4.0
	G=Y+3.0+DEXP(2.0*X)+DSIN(Y)

	OUTPUT(0)=F
	OUTPUT(1)=G

	RETURN
	END