]>
Commit | Line | Data |
---|---|---|
0795afa3 | 1 | #include "isajet/pilot.h" |
2 | SUBROUTINE IDGEN | |
3 | C | |
4 | C Call system date and time routines (non-standard) to set up | |
5 | C run identification: | |
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) | |
9 | C | |
10 | #include "isajet/itapes.inc" | |
11 | #include "isajet/idrun.inc" | |
12 | #if defined(CERNLIB_CDC)||defined(CERNLIB_ETA) | |
13 | CHARACTER*10 CHAR,DATE,TIME | |
14 | #endif | |
15 | #if defined(CERNLIB_SUN)||defined(CERNLIB_SGI) | |
16 | DIMENSION ISUN(3) | |
17 | #endif | |
18 | C Default run id is zero. | |
19 | IYMD=0. | |
20 | IHMS=0. | |
21 | #if (defined(CERNLIB_CDC))&&(defined(CERNLIB_NOCERN)) | |
22 | C Call CDC date and time and convert to integer. | |
23 | CHAR=DATE() | |
24 | READ(CHAR,'(1X,I2,1X,I2,1X,I2,1X)') IA,IB,IC | |
25 | IYMD=10000*IC+100*IA+IB | |
26 | CHAR=TIME() | |
27 | READ(CHAR,'(1X,I2,1X,I2,1X,I2,1X)') IA,IB,IC | |
28 | IHMS=10000*IA+100*IB+IC | |
29 | #endif | |
30 | #if (defined(CERNLIB_ETA))&&(defined(CERNLIB_NOCERN)) | |
31 | C Call ETA date and time and convert to integer. | |
32 | CHAR=DATE() | |
33 | READ(CHAR,'(I2,1X,I2,1X,I2)') IA,IB,IC | |
34 | IYMD=10000*IC+100*IA+IB | |
35 | CHAR=TIME() | |
36 | READ(CHAR,'(I2,1X,I2,1X,I2)') IA,IB,IC | |
37 | IHMS=10000*IA+100*IB+IC | |
38 | #endif | |
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) | |
43 | CALL ITIME(ISUN) | |
44 | IHMS=10000*ISUN(1)+100*ISUN(2)+ISUN(3) | |
45 | #endif | |
46 | #if (defined(CERNLIB_SUN))&&(defined(CERNLIB_NOCERN)) | |
47 | C Call SUN date and time | |
48 | CALL IDATE(ISUN) | |
49 | IYMD=10000*(MOD(ISUN(3),100))+100*ISUN(2)+ISUN(1) | |
50 | CALL ITIME(ISUN) | |
51 | IHMS=10000*ISUN(1)+100*ISUN(2)+ISUN(3) | |
52 | #endif | |
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) | |
56 | #endif | |
57 | IDG(1)=IYMD | |
58 | IDG(2)=IHMS | |
59 | RETURN | |
60 | END |