PDP-10 Archive: decus/20-0025/gaussd.for from decus_20tap1

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0025/gaussd.for

There is 1 other file named gaussd.for in the archive. Click here to see a list.

		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