5 * Revision 1.1.1.1 1996/02/15 17:50:40 mclareni
9 SUBROUTINE DATIMH (JDATE,JTIME)
11 C CERN PROGLIB# Z007 DATIMH .VERSION KERNVAX 1.15 820721
14 DIMENSION JDATE(2), JTIME(2)
16 COMMON /SLATE/ RES(10), JTM, JY,JM,JD, M(26)
21 CALL UBLOW (8H00/00/00,M,8)
25 CALL UBUNCH (M,JDATE,8)
31 CALL UBUNCH (M,JTIME,8)