Figure 30.
Erroneous FORTRAN SPLIT subroutine.
<![CDATA[
----------------------------------------------------------
SUBROUTINE SPLIT(TIME,HOURS,MIN,SEC)
IMPLICIT NONE
INTEGER*4 TIME, HOURS, MIN
REAL*4 SEC
HOURS = TIME / 3600000
TIME = MOD (TIME,3600000)
MIN = TIME / 60000
TIME = MOD (TIME,60000)
SEC = TIME / 1000.0
RETURN
END
]]>