Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50437/getave.for
There are no other files named getave.for in the archive.
	INTEGER FUNCTION GETAVE(I1,MAX,MIN)
	INCLUDE 'WEEKLY.PRM'
	I3 = 0
	I4 = 0
	MIN = 100000
	MAX = 0
	DO 10 I2 = 1,49
	IF (PLT(I1,I2) .EQ. -2) GOTO 10
	I3 = I3+1
	I4 = I4+PLT(I1,I2)
	MIN = MIN0(MIN,PLT(I1,I2))
	MAX = MAX0(MAX,PLT(I1,I2))
10	CONTINUE
	GETAVE = 0
	IF (I3 .EQ. 0) GOTO 20
	GETAVE = I4/I3
20	RETURN
	END