C***********************************************************************
	SUBROUTINE IFTIME(AIN, AOUT)
	REAL*4 AOUT, AIN
	PARAMETER UNIT=0.1
	AOUT=MAX(1,IFIX(AIN/UNIT+0.5))*UNIT
	RETURN
D	END
D	PROGRAM TEST
D1	TYPE*,'COUNT TIME?'
D	READ*,AIN
D	CALL IFTIME(AIN,AOUT)
D	TYPE*,AOUT
D	GOTO 1
	END
