PROGRAM		TIMER

	INTEGER*4	LOOPS,COUNT
	REAL*4		BEG,END

	WRITE (5,9000)
	READ  (5,9010) LOOPS

	BEG  = SECNDS(0.0)
	DO 1000 COUNT = 1,LOOPS
		CALL TEST
 1000	CONTINUE
	END = SECNDS(BEG)

	WRITE (5,9100) FLOAT(LOOPS)/END,END/FLOAT(LOOPS)

 9000	FORMAT ('$Iterations: ')
 9010	FORMAT (I)
 9100	FORMAT (1X,F10.2,' loop/sec',2X,F10.6,' sec/loop')

	END