Merging the VirtualMC branch to the main development branch (HEAD)

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgenc / mpwgs / datime.F

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgenc/mpwgs/datime.F b/MINICERN/packlib/kernlib/kerngen/tcgenc/mpwgs/datime.F
deleted file mode 100644 (file)
index 54b92e0..0000000
--- a/MINICERN/packlib/kernlib/kerngen/tcgenc/mpwgs/datime.F
+++ /dev/null
@@ -1,22 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/02/15 17:50:40  mclareni
-* Kernlib
-*
-*
-      SUBROUTINE DATIME(ID,IT)
-C
-C CERN PROGLIB# Z007    DATIME          .VERSION KERNMPW  1.00  891208
-C
-      COMMON / SLATE / IYEAR, IMONTH, IDAY, IHH, IMM, ISS, HDUM(36)
-      CHARACTER*8 CTIME
- 
-      CALL TIME(CTIME)
-      CALL IDATE(IMONTH,IDAY,IYEAR)
-      READ(CTIME,'(I2,1X,I2,1X,I2)') IHH,IMM,ISS
-      ID = IYEAR * 10000 + IMONTH * 100 +IDAY
-      IT = IHH * 100 + IMM
-      IYEAR = IYEAR + 1900
-      END