MINICERN/packlib/kernlib/kerngen/tcgenc/sungs/datimh.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 DATIMH (ND,NT)
  10 C
  11 C CERN PROGLIB# Z007    DATIMH          .VERSION KERNSUN  1.00  880922
  12 C ORIG. 22/09/88, JZ
  13 C
  14
  15 C-    CALL DATIMH (ND,NT)   RETURNS HOLLERITH DATE   ND = DD/MM/YY
  16 C-                                  HOLLERITH TIME   NT = HH.MM.SS
  17
  18       COMMON /SLATE/ ISAFE(10), M(24), MM(6)
  19
  20       DIMENSION    ND(2), NT(2)
  21
  22
  23       CALL UBLOW (16H0 /0 /000 .0 .00, M, 16)
  24
  25 C-                 D D / M M / Y Y   H H . M M . S S
  26 C-                 1 2 3 4 5 6 7 8   9 0 1 2 3 4 5 6
  27
  28       CALL IDATE (MM)
  29       CALL ITIME (MM(4))
  30
  31       MM(3) = MOD (MM(3),100)
  32
  33       CALL USET (MM(3), M, 7, 8)
  34       CALL USET (MM(2), M, 4, 5)
  35       CALL USET (MM(1), M, 1, 2)
  36       CALL USET (MM(4), M, 9,10)
  37       CALL USET (MM(5), M,12,13)
  38       CALL USET (MM(6), M,15,16)
  39
  40       CALL UBUNCH (M(1),ND,8)
  41       CALL UBUNCH (M(9),NT,8)
  42       RETURN
  43       END