Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - 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