ISAJET/isatape/isawbg.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE ISAWBG
   3 C
   4 C          Write initial record (type 200)
   5 C          Inverse of RDBEG
   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/zvout.inc"
  24 #include "isajet/zevel.inc"
  25 #include "isajet/final.inc"
  26 C
  27       INTEGER NL,IL,ITA
  28 C
  29 C       Keep entry point WRBEG for backward compatibility
  30       ENTRY WRBEG
  31 C
  32       ITA=IABS(ITEVT)
  33       NKINF=0
  34       SIGF=0.
  35       ALUM=0.
  36       ACCEPT=0.
  37       NRECS=0
  38 #if defined(CERNLIB_CDCPACK)
  39       CALL ZEROL(ZVOUT,512)
  40 #endif
  41       CALL ZEROL(ZEVEL,MAXLEN)
  42       IL=3
  43       CALL MOVLEI(IDVER,IZEVEL(IL),4)
  44       IL=IL+4
  45       CALL MOVLEI(NJET,IZEVEL(IL),7)
  46       IL=IL+7
  47       NL=NJET*MXGOQ
  48       IF(NJET.NE.0) CALL MOVLEL(GOQ(1,1),LZEVEL(IL),NL)
  49       IL=IL+NL
  50       CALL MOVLEL(KEYS(1),LZEVEL(IL),10)
  51       IL=IL+10
  52       CALL MOVLEV(PMIN(1),ZEVEL(IL),36)
  53       IL=IL+36
  54       IF(.NOT.KEYS(3)) GOTO 11
  55       CALL MOVLEV(QMIN,ZEVEL(IL),12)
  56       IL=IL+12
  57    11 CONTINUE
  58       CALL MOVLEL(GODY(1),LZEVEL(IL),5)
  59       IL=IL+5
  60       CALL MOVLEV(PUD,ZEVEL(IL),22)
  61       IL=IL+22
  62       CALL MOVLEV(ALAM,ZEVEL(IL),4)
  63       IL=IL+4
  64       CALL MOVLEV(AMLEP(6),ZEVEL(IL),3)
  65       IL=IL+3
  66       CALL MOVLEI(LOC(1),IZEVEL(IL),100)
  67       IL=IL+100
  68       CALL MOVLEL(GOMSSM,LZEVEL(IL),1)
  69       IL=IL+1
  70       CALL MOVLEV(XGLSS,ZEVEL(IL),11)
  71       IL=IL+11
  72       CALL MOVLEL(GOSUG,LZEVEL(IL),1)
  73       IL=IL+1
  74       CALL MOVLEV(XM0SU,ZEVEL(IL),5)
  75       IL=IL+5
  76 C
  77       IZEVEL(1)=200
  78       IZEVEL(2)=1
  79       CALL BUFOUT(IL)
  80       RETURN
  81       END