CALL TICKS(IBUF)
	TIM = SECNDS (0)
	WRITE (5,100) IBUF,TIM
100	FORMAT (' ',I6,2X,F10.3)
	STOP
	END