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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:39  mclareni
   6 * Kernlib
   7 *
   8 *
   9       SUBROUTINE DATIME (ND,NT)
  10 C
  11 C CERN PROGLIB# Z007    DATIME          .VERSION KERNVAX  2.32  890926
  12 C ORIG. 9/11/79 JZ
  13 C MOD.  27/07/89  add /SLATE/, JZ
  14 C
  15
  16       COMMON /SLATE/ JY,JM,JD, JHR,JMN,JSC, ITM(4),M(30)
  17
  18 C-        1 2 3 4 5 6 7 8
  19 C-        H H : M M : S S
  20
  21       CALL TIME  (ITM)
  22       CALL UBLOW (ITM,M,8)
  23
  24       DO 27 J=1,8
  25    27 M(J) = (M(J).AND.255) - 48
  26       JHR  = M(1)*10 + M(2)
  27       JMN  = M(4)*10 + M(5)
  28       JSC  = M(7)*10 + M(8)
  29       NT   = 100*JHR + JMN
  30
  31       CALL IDATE (JM,JD,JY)
  32       ND = (JY*100+JM)*100+JD
  33
  34       JY = JY + 1900
  35       RETURN
  36       END