ISAJET/code/idgen.F

   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