SUBROUTINE TIMDY(IHOUR,MINUTE,ISEC)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      IHOUR=0
      MINUTE=0
      ISEC=0
      RETURN
      END