ISAJET/code/datime.F

   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=10000*IYR+100*IMON+IDAY
  10       READ(BUF,'(I2,1X,I2,1X,I2)') K1,K2,K3
  11       IT=10000*K1+100*K2+K3
  12       RETURN
  13       END
  14 #endif