[u/mrichter/AliRoot.git] / ISAJET / code / datime.F

#include "isajet/pilot.h"
#if (defined(CERNLIB_VAX))&&(defined(CERNLIB_NOCERN))
      SUBROUTINE DATIME(ID,IT)
C          CALL VAX DATE AND TIME.
#include "isajet/itapes.inc"
      CHARACTER*8 BUF
      CALL IDATE(IMON,IDAY,IYR)
      CALL TIME(BUF)
      ID=10000*IYR+100*IMON+IDAY
      READ(BUF,'(I2,1X,I2,1X,I2)') K1,K2,K3
      IT=10000*K1+100*K2+K3
      RETURN
      END
#endif
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	#if (defined(CERNLIB_VAX))&&(defined(CERNLIB_NOCERN))
	3	SUBROUTINE DATIME(ID,IT)
	4	C CALL VAX DATE AND TIME.
	5	#include "isajet/itapes.inc"
	6	CHARACTER*8 BUF
	7	CALL IDATE(IMON,IDAY,IYR)
	8	CALL TIME(BUF)
	9	ID=10000IYR+100IMON+IDAY
	10	READ(BUF,'(I2,1X,I2,1X,I2)') K1,K2,K3
	11	IT=10000K1+100K2+K3
	12	RETURN
	13	END
	14	#endif