HIJING/hijing1_36/hidata.F

   1 * $Id$
   2 C
   3 C
   4 C***************************************************************
   5
   6         BLOCK DATA HIDATA
   7 #include "bveg1_hijing.inc"
   8 #include "hiparnt.inc"
   9 #include "himain1.inc"
  10 #include "himain2.inc"
  11 #include "histrng.inc"
  12 #include "hijcrdn.inc"
  13 #include "hijjet1.inc"
  14 #include "hijjet2.inc"
  15 #include "hijdat.inc"
  16 #include "hipyint.inc"
  17         DATA XL/10*0.D0/,XU/10*1.D0/
  18         DATA NCALL/1000/ITMX/100/ACC/0.01/NPRN/0/
  19 C...give all the switchs and parameters the default values
  20         DATA HIPR1/
  21      &  1.5,  0.35, 0.5,  0.9,  2.0,  0.1,  1.5,  2.0, -1.0, -2.25,
  22      &  2.0,  0.5,  1.0,  2.0,  0.2,  2.0,  2.5,  0.3,  0.1,  1.4,
  23      &  1.6,  1.0,  2.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.4,  57.0,
  24      &  28.5, 3.9,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
  25      &  3.141592654,
  26      &  0.0,  0.4,  0.1,  1.5,  0.1, 0.25, 0.0,  0.5,  0.0,  0.0,
  27      &  50*0.0/
  28
  29         DATA IHPR2/
  30      &  1,    3,    0,    1,    1,    1,    1,    10,    0,    0,
  31      &  1,    1,    1,    1,    0,    0,    1,     0,    0,    1,
  32      &  30*0/
  33
  34         DATA HINT1/100*0/
  35         DATA IHNT2/50*0/
  36
  37 C...initialize all the data common blocks
  38         DATA NATT/0/EATT/0.0/JATT/0/NT/0/NP/0/N0/0/N01/0/N10/0/N11/0/
  39         DATA KATT/800000*0/PATT/800000*0.0/
  40
  41         DATA NFP/4500*0/PP/4500*0.0/NFT/4500*0/PT/4500*0.0/
  42
  43         DATA YP/900*0.0/YT/900*0.0/
  44
  45         DATA NPJ/300*0/KFPJ/150000*0/PJPX/150000*0.0/PJPY/150000*0.0/
  46      &  PJPZ/150000*0.0/PJPE/150000*0.0/PJPM/150000*0.0/
  47         DATA NTJ/300*0/KFTJ/150000*0/PJTX/150000*0.0/PJTY/150000*0.0/
  48      &  PJTZ/150000*0.0/PJTE/150000*0.0/PJTM/150000*0.0/
  49
  50         DATA NSG/0/NJSG/900*0/IASG/2700*0/K1SG/90000*0/K2SG/90000*0/
  51      &  PXSG/90000*0.0/PYSG/90000*0.0/PZSG/90000*0.0/PESG/90000*0.0/
  52      &  PMSG/90000*0.0/
  53         DATA MINT4/0/MINT5/0/ATCO/4000*0.0/ATXS/201*0.0/
  54         DATA (HIDAT0(1,I),I=1,10)/0.0,0.0,0.0,0.0,0.0,0.0,2.25,
  55      &          2.5,4.0,4.1/
  56         DATA (HIDAT0(2,I),I=1,10)/2.0,3.0,5.0,6.0,7.0,8.0,8.0,10.0,
  57      &          10.0,10.0/
  58         DATA (HIDAT0(3,I),I=1,10)/1.0,0.8,0.8,0.7,0.45,0.215,
  59      &          0.21,0.19,0.19,0.19/
  60         DATA (HIDAT0(4,I),I=1,10)/0.35,0.35,0.3,0.3,0.3,0.3,
  61      &          0.5,0.6,0.6,0.6/
  62         DATA (HIDAT0(5,I),I=1,10)/23.8,24.0,26.0,26.2,27.0,28.5,28.5,
  63      &          28.5,28.5,28.5/
  64         DATA ((HIDAT0(J,I),I=1,10),J=6,9)/40*0.0/
  65         DATA (HIDAT0(10,I),I=1,10)/5.0,20.0,53.0,62.0,100.0,200.0,
  66      &          546.0,900.0,1800.0,4000.0/
  67         DATA HIDAT/10*0.0/
  68         END