1 #include "isajet/pilot.h"
4 C Call system date and time routines (non-standard) to set up
6 C IDVER=100*VERSN (integer ISAJET version number)
7 C IDG(1)=YYMMDD (integer year-month-day)
8 C IDG(2)=HHMMSS (integer hour-minute-second)
10 #include "isajet/itapes.inc"
11 #include "isajet/idrun.inc"
12 #if defined(CERNLIB_CDC)||defined(CERNLIB_ETA)
13 CHARACTER*10 CHAR,DATE,TIME
15 #if defined(CERNLIB_SUN)||defined(CERNLIB_SGI)
18 C Default run id is zero.
21 #if (defined(CERNLIB_CDC))&&(defined(CERNLIB_NOCERN))
22 C Call CDC date and time and convert to integer.
24 READ(CHAR,'(1X,I2,1X,I2,1X,I2,1X)') IA,IB,IC
25 IYMD=10000*IC+100*IA+IB
27 READ(CHAR,'(1X,I2,1X,I2,1X,I2,1X)') IA,IB,IC
28 IHMS=10000*IA+100*IB+IC
30 #if (defined(CERNLIB_ETA))&&(defined(CERNLIB_NOCERN))
31 C Call ETA date and time and convert to integer.
33 READ(CHAR,'(I2,1X,I2,1X,I2)') IA,IB,IC
34 IYMD=10000*IC+100*IA+IB
36 READ(CHAR,'(I2,1X,I2,1X,I2)') IA,IB,IC
37 IHMS=10000*IA+100*IB+IC
39 #if (defined(CERNLIB_SGI))&&(defined(CERNLIB_NOCERN))
40 C Call Silicon Graphics date and time
41 CALL IDATE(ISUN(1),ISUN(2),ISUN(3))
42 IYMD=10000*ISUN(3)+100*ISUN(2)+ISUN(1)
44 IHMS=10000*ISUN(1)+100*ISUN(2)+ISUN(3)
46 #if (defined(CERNLIB_SUN))&&(defined(CERNLIB_NOCERN))
47 C Call SUN date and time
49 IYMD=10000*(MOD(ISUN(3),100))+100*ISUN(2)+ISUN(1)
51 IHMS=10000*ISUN(1)+100*ISUN(2)+ISUN(3)
53 #if defined(CERNLIB_IBM)||defined(CERNLIB_VAX)||defined(CERNLIB_CERN)
54 C Call DATIME for date and time. (In Cern library)
55 CALL DATIME(IYMD,IHMS)