MINICERN/packlib/kernlib/kerngen/tcgenc/sungs/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 KERNSUN  1.02  891025
  12 C ORIG. 22/09/88, JZ
  13 C MOD.  27/07/89  add /SLATE/, JZ
  14 C
  15 C-    CALL DATIME (ND,NT)   RETURNS INTEGER DATE   ND = YYMMDD
  16 C-                                  INTEGER TIME   NT =   HHMM
  17 C-    returns also ISL  (1) y  (2) m  (3) d  (4) h  (5) m  (6) s
  18 C
  19       COMMON /SLATE/ ISL(34), MM(6)
  20
  21
  22       CALL IDATE (MM)
  23       CALL ITIME (MM(4))
  24
  25       DO 24  J=1,6
  26    24 ISL(J) = MM(J)
  27       ISL(1) = MM(3)
  28       ISL(3) = MM(1)
  29
  30       MM(3) = MOD (MM(3),100)
  31
  32       ND = (MM(3)*100+MM(2))*100 + MM(1)
  33       NT =            MM(4) *100 + MM(5)
  34       RETURN
  35       END