Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50144/gaussd.f4
There are no other files named gaussd.f4 in the archive.
		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