ISAJET/isadata/aldata.F

   1 #include "isajet/pilot.h"
   2       BLOCK DATA ALDATA
   3 C          INITIALIZE ALL COMMON BLOCKS
   4 C.......................................................................
   5 C          WARNINGS: MANY VARIABLES SET IN ALDATA ARE ALSO SET BY      .
   6 C          SUBROUTINE RESET.                                           .
   7 C                                                                      .
   8 C          ALDATA SHOULD ALWAYS BE LOADED WHEN USING ISAJET OR WHEN    .
   9 C          READING AN ISAJET TAPE.                                     .
  10 C.......................................................................
  11 #if defined(CERNLIB_IMPNONE)
  12       IMPLICIT NONE
  13 #endif
  14 #include "isajet/itapes.inc"
  15 #include "isajet/pjets.inc"
  16 #include "isajet/pinits.inc"
  17 #include "isajet/lstprt.inc"
  18 #include "isajet/dkytab.inc"
  19 #include "isajet/dylim.inc"
  20 #include "isajet/eepar.inc"
  21 #include "isajet/frgpar.inc"
  22 #include "isajet/idrun.inc"
  23 #include "isajet/jetlim.inc"
  24 #include "isajet/jetpar.inc"
  25 #include "isajet/jetset.inc"
  26 #include "isajet/jetsig.inc"
  27 #include "isajet/limevl.inc"
  28 #include "isajet/mbpar.inc"
  29 #include "isajet/nodcay.inc"
  30 #include "isajet/partcl.inc"
  31 #include "isajet/primar.inc"
  32 #include "isajet/prtout.inc"
  33 #include "isajet/qcdpar.inc"
  34 #include "isajet/qlmass.inc"
  35 #include "isajet/q1q2.inc"
  36 #include "isajet/seed.inc"
  37 #include "isajet/sspar.inc"
  38 #include "isajet/tcpar.inc"
  39 #include "isajet/totals.inc"
  40 #include "isajet/types.inc"
  41 #include "isajet/wcon.inc"
  42 #include "isajet/mbgen.inc"
  43 #include "isajet/force.inc"
  44 #include "isajet/zevel.inc"
  45 #include "isajet/final.inc"
  46 #include "isajet/keys.inc"
  47 #include "isajet/hcon.inc"
  48 #include "isajet/xmssm.inc"
  49 #include "isajet/sugnu.inc"
  50 #include "isajet/isapw.inc"
  51 #include "isajet/sstype.inc"
  52 #include "isajet/listss.inc"
  53 C
  54       INTEGER III,JJJ
  55       INTEGER MXGOQJ
  56       PARAMETER (MXGOQJ=MXGOJ*MXGOQ)
  57       INTEGER MXGOWJ
  58       PARAMETER (MXGOWJ=25*MXGOJ)
  59       INTEGER MXT29
  60       PARAMETER (MXT29=29*MXTYPE)
  61 C          SUSY IDENT codes from /SSTYPE/
  62       INTEGER MSUPL,MSDNL,MSSTL,MSCHL,MSBT1,MSTP1,
  63      $MSUPR,MSDNR,MSSTR,MSCHR,MSBT2,MSTP2,MSW1,MSW2,
  64      $MSNEL,MSEL,MSNML,MSMUL,MSNTL,MSTAU1,MSER,MSMUR,MSTAU2
  65       PARAMETER (MSUPL=-ISUPL)
  66       PARAMETER (MSDNL=-ISDNL)
  67       PARAMETER (MSSTL=-ISSTL)
  68       PARAMETER (MSCHL=-ISCHL)
  69       PARAMETER (MSBT1=-ISBT1)
  70       PARAMETER (MSTP1=-ISTP1)
  71       PARAMETER (MSUPR=-ISUPR)
  72       PARAMETER (MSDNR=-ISDNR)
  73       PARAMETER (MSSTR=-ISSTR)
  74       PARAMETER (MSCHR=-ISCHR)
  75       PARAMETER (MSBT2=-ISBT2)
  76       PARAMETER (MSTP2=-ISTP2)
  77       PARAMETER (MSW1=-ISW1)
  78       PARAMETER (MSW2=-ISW2)
  79       PARAMETER (MSNEL=-ISNEL)
  80       PARAMETER (MSEL=-ISEL)
  81       PARAMETER (MSNML=-ISNML)
  82       PARAMETER (MSMUL=-ISMUL)
  83       PARAMETER (MSNTL=-ISNTL)
  84       PARAMETER (MSTAU1=-ISTAU1)
  85       PARAMETER (MSER=-ISER)
  86       PARAMETER (MSMUR=-ISMUR)
  87       PARAMETER (MSTAU2=-ISTAU2)
  88 C
  89 C          DATA FOR IDRUN
  90 C          IDVER=100*VERSION+CYCLE
  91 C     DATA IDVER/600/
  92 C
  93 C          DATA FOR ITAPES
  94       DATA ITDKY,ITEVT,ITCOM,ITLIS/1,2,5,6/
  95 C
  96 C          DATA FOR QLMASS
  97 C          AMLEP LABELED BY INDEX...SEE FLAVOR
  98 C          SETW RESETS W+- AND Z0 MASSES
  99       DATA AMLEP/.3,.3,.5,1.6,5.0,175.,-1.,-1.,0.,0.,
 100      $0.,.511003E-3,0.,.105661,0.,1.777,3*-1.,.49767,.49767,
 101      $79*0./
 102       DATA NQLEP,NMES,NBARY/61,2,2/
 103 C
 104 C          DATA FOR PJETS
 105       DATA IDJETS/MXJETS*0/,IDENTW/0/
 106 C
 107 C          DATA FOR PINITS
 108       DATA IDINIT/2*0/
 109 C
 110 C          DATA FOR LSTPRT
 111       DATA LSTPRT/0/
 112 C
 113 C          DATA FOR MBPAR
 114       DATA PUD0/.45/,PJSPN,PISPN/2*.5/,SIGQT0/.35/,XGEN0/.9,1./,PMIX01/
 115      $.25,.25,.5,0.,.5,1./,PMIX02/.5,.5,1.,0.,0.,1./
 116       DATA PBARY0/.075/
 117 C
 118 C          DATA FOR MBGEN
 119       DATA MNPOM,MXPOM/1,LIMPOM/
 120 C
 121 C          DATA FOR SEED
 122       DATA XSEED/'0'/
 123 C
 124 C          DATA FOR TCPAR
 125       DATA TCMRHO,TCGRHO/1000.,100./
 126 C
 127 C          DATA FOR FRGPAR
 128 C          F(X)=1-XGEN(1)+XGEN(1)*(XGEN(2)+1)*(1-X)**XGEN(2) FOR U,D,S
 129 C          PETERSON FRAGMENTATION, EPSILON=XGEN(I)*M(I)**2 FOR C,B,T
 130       DATA PUD,PBARY/.43,.10/
 131       DATA SIGQT,PEND/.35,.14/
 132       DATA XGEN/.96,3.,0.,.8,.5,.5,.5,.5/
 133       DATA PSPIN1/.5,.5,.5,.75,.75,.75,.75,.75/
 134       DATA PMIX1/.25,.25,.5,0.,.5,1./,PMIX2/.5,.5,1.,0.,0.,1./
 135       DATA XGENSS/9*.5/
 136 C
 137 C          DATA FOR JETLIM
 138       DATA BLIMS/MXLX12*-1.E9/
 139 C
 140 C          DATA FOR NODCAY
 141       DATA NODCAY,NOETA,NOPI0,NONUNU,NOEVOL,NOHADR/6*.FALSE./
 142       DATA NOGRAV/.FALSE./
 143 C
 144 C          DATA FOR TYPES
 145       DATA LOC/100*0/,NTYP/100/
 146       DATA NJTTYP/MXTYPE*0/
 147       DATA (JETYP(1,JJJ),JJJ=1,MXTYPE)/MXTYPE*'ALL     '/,
 148      $((JETYP(III,JJJ),III=2,30),JJJ=1,MXTYPE)/MXT29*'        '/
 149       DATA NWWTYP/2*0/
 150       DATA (WWTYP(1,JJJ),JJJ=1,2)/2*'ALL     '/,
 151      $((WWTYP(III,JJJ),III=2,30),JJJ=1,2)/58*'        '/
 152       DATA JWTYP/4/
 153 C
 154 C          DATA FOR PRIMAR
 155       DATA IDIN/1120,1120/
 156       DATA NTRIES/1000/
 157       DATA NSIGMA/20/
 158 C
 159 C          DATA FOR DKYTAB
 160       DATA LOOK/MXLOOK*0/
 161       DATA CBR/MXDKY*0./
 162       DATA MODE/MXDKY*0,MXDKY*0,MXDKY*0,MXDKY*0,MXDKY*0/
 163 C
 164 C          DATA FOR Q1Q2
 165       DATA GOQ/MXGOQJ*.TRUE./
 166       DATA GOALL/MXGOJ*.TRUE./
 167       DATA GODY/.TRUE.,.FALSE.,.FALSE.,.TRUE./
 168       DATA GOWW/50*.TRUE./,ALLWW/2*.TRUE./
 169       DATA GOWMOD/MXGOWJ*.TRUE./
 170 C
 171 C          DATA FOR WCON
 172       DATA MATCH/
 173      $0,3,2,5,4,7,6,9,8,11,10,13,12,0,0,17,16,0,0,21,20,0,0,25,24,
 174      $0,5,0,0,2,0,8,7,0,0,12,11,0,17,0,0,14,21,0,0,18,25,0,0,22,
 175      $0,0,4,3,0,9,0,0,6,13,0,0,10,0,16,15,0,0,20,19,0,0,24,23,0,
 176      $0,3,2,5,4,7,6,9,8,11,10,13,12,15,14,17,16,19,18,21,20,23,22,25,24/
 177       DATA CUTOFF,CUTPOW/.200,1.0/
 178       DATA WMASS/0.,80.2,80.2,91.19/
 179       DATA WFUDGE/1.85/
 180 C
 181 C          DATA FOR TOTALS
 182       DATA NKINPT,NWGEN,NKEEP/3*0/,SUMWT/0./
 183 C
 184 C          DATA FOR DYLIM
 185       DATA BLIM1/12*-1.E9/
 186 C
 187 C          DATA FOR EEPAR
 188       DATA PLEP/0./,PLEM/0./,IBREM/.FALSE./,IBEAM/.FALSE./
 189 C
 190 C          DATA FOR PARTCL
 191       DATA NPTCL/0/
 192 C
 193 C            DATA FOR PRTOUT
 194       DATA NEVPRT,NJUMP/1,1/
 195 C
 196 C          DATA FOR JETSET
 197       DATA NJSET/0/
 198 C
 199 C          DATA FOR QCDPAR
 200       DATA ALAM,ALAM2/.2,.04/,CUTJET/6./,ISTRUC/6/
 201 C
 202 C          DATA FOR FORCE
 203       DATA NFORCE/0/
 204 C
 205 C          DATA FOR NRECS
 206       DATA NRECS/0/
 207 C
 208 C          DATA FOR KEYS
 209       DATA KEYS/MXKEYS*.FALSE./
 210 C
 211 C          DATA FOR MATCHH
 212       DATA MATCHH/
 213      $1,3,2,5,4,7,6,9,8,11,10,13,12,
 214      $15,14,17,16,19,18,21,20,23,22,25,24,
 215      $26,28,27,29/
 216       DATA USELIM/.FALSE./
 217       DATA CONCUT/1.0/
 218 C
 219 C          DATA FOR SSPAR
 220       DATA AMGVSS/1.E20/
 221 C
 222 C          DATA FOR XMSSM
 223       DATA GOMSSM/.FALSE./,GOSUG/.FALSE./,GOGMSB/.FALSE./
 224       DATA GOAMSB/.FALSE./
 225       DATA AL3UNI/.FALSE./
 226       DATA XM1SS,XM2SS/1.E20,1.E20/
 227       DATA XMGVTO/1.E20/
 228       DATA XQ2SS,XSRSS,XCRSS,XL2SS,XMRSS/1.E20,1.E20,1.E20,1.E20,1.E20/
 229       DATA XRSLGM,XDHDGM,XDHUGM,XDYGM/1.,0.,0.,0./
 230       DATA XN51GM,XN52GM,XN53GM/0.,0.,0./
 231       DATA XMN3NR/0./,XMAJNR/1.E20/,XANSS/0./,XNRSS/0./,XSBCS/0./
 232 C          DATA FOR SUGNU
 233       DATA XNUSUG/18*1.E20/
 234 C
 235 C          DATA FOR ISAPW
 236       DATA ISAPW1/'ALDATA REQUIRED BY FORTRAN G,H'/
 237 C
 238 C          DATA FOR LISTSS
 239       DATA LISTSS/ISGL,
 240      $ISUPL,MSUPL,ISDNL,MSDNL,ISSTL,MSSTL,ISCHL,MSCHL,ISBT1,MSBT1,
 241      $ISTP1,MSTP1,
 242      $ISUPR,MSUPR,ISDNR,MSDNR,ISSTR,MSSTR,ISCHR,MSCHR,ISBT2,MSBT2,
 243      $ISTP2,MSTP2,
 244      $ISW1,MSW1,ISW2,MSW2,ISZ1,ISZ2,ISZ3,ISZ4,
 245      $ISNEL,MSNEL,ISEL,MSEL,ISNML,MSNML,ISMUL,MSMUL,ISNTL,MSNTL,
 246      $ISTAU1,MSTAU1,ISER,MSER,ISMUR,MSMUR,ISTAU2,MSTAU2,
 247      $9,1,-1,2,-2,3,-3,4,-4,5,-5,6,-6,11,-11,12,-12,13,-13,
 248      $14,-14,15,-15,16,-16,10,80,-80,90,82,83,84,86,-86/
 249 C
 250       END