SUBROUTINE TDATE(IDATE,MONTH,IYEAR)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      IDATE=0
      MONTH=0
      IYEAR=0
      RETURN
      END