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