This commit was generated by cvs2svn to compensate for changes in r2,

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgenc / sungs / datimh.F

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgenc/sungs/datimh.F b/MINICERN/packlib/kernlib/kerngen/tcgenc/sungs/datimh.F
new file mode 100644 (file)
index 0000000..32501b2
--- /dev/null
+++ b/MINICERN/packlib/kernlib/kerngen/tcgenc/sungs/datimh.F
@@ -0,0 +1,43 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/02/15 17:50:39  mclareni
+* Kernlib
+*
+*
+      SUBROUTINE DATIMH (ND,NT)
+C
+C CERN PROGLIB# Z007    DATIMH          .VERSION KERNSUN  1.00  880922
+C ORIG. 22/09/88, JZ
+C
+
+C-    CALL DATIMH (ND,NT)   RETURNS HOLLERITH DATE   ND = DD/MM/YY
+C-                                  HOLLERITH TIME   NT = HH.MM.SS
+
+      COMMON /SLATE/ ISAFE(10), M(24), MM(6)
+
+      DIMENSION    ND(2), NT(2)
+
+
+      CALL UBLOW (16H0 /0 /000 .0 .00, M, 16)
+
+C-                 D D / M M / Y Y   H H . M M . S S
+C-                 1 2 3 4 5 6 7 8   9 0 1 2 3 4 5 6
+
+      CALL IDATE (MM)
+      CALL ITIME (MM(4))
+
+      MM(3) = MOD (MM(3),100)
+
+      CALL USET (MM(3), M, 7, 8)
+      CALL USET (MM(2), M, 4, 5)
+      CALL USET (MM(1), M, 1, 2)
+      CALL USET (MM(4), M, 9,10)
+      CALL USET (MM(5), M,12,13)
+      CALL USET (MM(6), M,15,16)
+
+      CALL UBUNCH (M(1),ND,8)
+      CALL UBUNCH (M(9),NT,8)
+      RETURN
+      END