ISAJET/isatape/rdbeg.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE RDBEG
   3 C
   4 C          Read first record (type 200)
   5 C          Inverse of WRBEG
   6 C
   7 #if defined(CERNLIB_IMPNONE)
   8       IMPLICIT NONE
   9 #endif
  10 #include "isajet/itapes.inc"
  11 #include "isajet/dylim.inc"
  12 #include "isajet/frgpar.inc"
  13 #include "isajet/idrun.inc"
  14 #include "isajet/jetlim.inc"
  15 #include "isajet/keys.inc"
  16 #include "isajet/primar.inc"
  17 #include "isajet/qcdpar.inc"
  18 #include "isajet/qlmass.inc"
  19 #include "isajet/q1q2.inc"
  20 #include "isajet/types.inc"
  21 #include "isajet/xmssm.inc"
  22 C
  23 #include "isajet/zevel.inc"
  24 C
  25       INTEGER NL,IDSAVE,IL
  26 C
  27       IL=3
  28       IDSAVE=IDVER
  29       CALL MOVLEI(IZEVEL(IL),IDVER,4)
  30       IF(IDVER.NE.IDSAVE) WRITE(ITLIS,1777) IDVER,IDSAVE
  31 1777  FORMAT(///,
  32      $' WARNING:  DATA WERE GENERATED WITH VERSION',I5,/,
  33      $'           DATA ARE BEING READ WITH VERSION',I5,/,
  34      $' RESULTS CANNOT BE PREDICTED.'///)
  35       IL=IL+4
  36       CALL MOVLEI(IZEVEL(IL),NJET,7)
  37       IL=IL+7
  38       NL=NJET*MXGOQ
  39       IF(NJET.NE.0) CALL MOVLEL(LZEVEL(IL),GOQ(1,1),NL)
  40       IL=14+NL
  41       CALL MOVLEL(LZEVEL(IL),KEYS(1),10)
  42       IL=IL+10
  43       CALL MOVLEV(ZEVEL(IL),PMIN(1),36)
  44       IL=IL+36
  45       IF(.NOT.KEYS(3)) GO TO 11
  46       CALL MOVLEV(ZEVEL(IL),QMIN,12)
  47       IL=IL+12
  48 11    CONTINUE
  49       CALL MOVLEL(LZEVEL(IL),GODY(1),5)
  50       IL=IL+5
  51       CALL MOVLEV(ZEVEL(IL),PUD,22)
  52       IL=IL+22
  53       CALL MOVLEV(ZEVEL(IL),ALAM,4)
  54       IL=IL+4
  55       CALL MOVLEV(ZEVEL(IL),AMLEP(6),3)
  56       IL=IL+3
  57       CALL MOVLEI(IZEVEL(IL),LOC(1),100)
  58       IL=IL+100
  59       CALL MOVLEL(LZEVEL(IL),GOMSSM,1)
  60       IL=IL+1
  61       CALL MOVLEV(ZEVEL(IL),XGLSS,11)
  62       IL=IL+11
  63       CALL MOVLEL(LZEVEL(IL),GOSUG,1)
  64       IL=IL+1
  65       CALL MOVLEV(ZEVEL(IL),XM0SU,5)
  66       IL=IL+5
  67 C
  68       RETURN
  69       END