C THIS ROUTINE WAS GIVEN TO US BY THE REP FROM HARRIS, INC.
C
C IT HAS BEEN USED AS A QUICK BENCHMARK ON MANY SYSTEMS
C
	TIME1=SECNDS(0.)
	A=0.
	DO (I=1,1000)
	DO (K=1,100)
	X=I
	A=((X-1.)/(X+1.))*X*.39+A
	FIN
	FIN
	TIME2=SECNDS(TIME1)
	WRITE(6,100) A,TIME2
100	FORMAT(' BENCHMARK:  ',1PE12.5,' FOR 100,000 OPERATIONS IN ',
	10PF8.3,' SECONDS.')
	END