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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:50:39  mclareni
* Kernlib
*
*
      SUBROUTINE DATIME (ND,NT)
C
C CERN PROGLIB# Z007    DATIME          .VERSION KERNVAX  2.32  890926
C ORIG. 9/11/79 JZ
C MOD.  27/07/89  add /SLATE/, JZ
C

      COMMON /SLATE/ JY,JM,JD, JHR,JMN,JSC, ITM(4),M(30)

C-        1 2 3 4 5 6 7 8
C-        H H : M M : S S

      CALL TIME  (ITM)
      CALL UBLOW (ITM,M,8)

      DO 27 J=1,8
   27 M(J) = (M(J).AND.255) - 48
      JHR  = M(1)*10 + M(2)
      JMN  = M(4)*10 + M(5)
      JSC  = M(7)*10 + M(8)
      NT   = 100*JHR + JMN

      CALL IDATE (JM,JD,JY)
      ND = (JY*100+JM)*100+JD

      JY = JY + 1900
      RETURN
      END
Commit	Line	Data
fe4da5cc	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 = (JY100+JM)100+JD
	33
	34	JY = JY + 1900
	35	RETURN
	36	END