		EXTERNAL FUNC
	Y=GAUSSQ(6,FUNC,0,6.28)
	TYPE 15,Y
15	FORMAT(/6X,'VALUE OF THE INTEGRAL =',1PE20.7)
	STOP
	END
	FUNCTION FUNC(X)
	FUNC=SIN(X)
	RETURN
	END

