MINICERN/packlib/kernlib/kerngen/tcgenc/vaxgs/datimh.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:40  mclareni
   6 * Kernlib
   7 *
   8 *
   9       SUBROUTINE DATIMH (JDATE,JTIME)
  10 C
  11 C CERN PROGLIB# Z007    DATIMH          .VERSION KERNVAX  1.15  820721
  12 C ORIG. 20/07/82 JZ
  13 C
  14       DIMENSION JDATE(2), JTIME(2)
  15
  16       COMMON /SLATE/ RES(10), JTM, JY,JM,JD, M(26)
  17
  18       DATA IDOT /4H.   /
  19
  20       CALL IDATE (JM,JD,JY)
  21       CALL UBLOW (8H00/00/00,M,8)
  22       CALL USET  (JD,M,1,2)
  23       CALL USET  (JM,M,4,5)
  24       CALL USET  (JY,M,7,8)
  25       CALL UBUNCH (M,JDATE,8)
  26
  27       CALL TIME  (JTM)
  28       CALL UBLOW (JTM,M,8)
  29       M(3) = IDOT
  30       M(6) = IDOT
  31       CALL UBUNCH (M,JTIME,8)
  32       RETURN
  33       END