5 * Revision 1.1.1.1 1996/02/15 17:50:40 mclareni
9 SUBROUTINE DATIME(ID,IT)
11 C CERN PROGLIB# Z007 DATIME .VERSION KERNMPW 1.00 891208
13 COMMON / SLATE / IYEAR, IMONTH, IDAY, IHH, IMM, ISS, HDUM(36)
17 CALL IDATE(IMONTH,IDAY,IYEAR)
18 READ(CTIME,'(I2,1X,I2,1X,I2)') IHH,IMM,ISS
19 ID = IYEAR * 10000 + IMONTH * 100 +IDAY