* $Id$
C
C
C***************************************************************

	BLOCK DATA HIDATA
#include "bveg1_hijing.inc"
#include "hiparnt.inc"
#include "himain1.inc"
#include "himain2.inc"
#include "histrng.inc"
#include "hijcrdn.inc"
#include "hijjet1.inc"
#include "hijjet2.inc"
#include "hijdat.inc"
#include "hipyint.inc"
	DATA XL/10*0.D0/,XU/10*1.D0/
	DATA NCALL/100000/ITMX/10000/ACC/0.001/NPRN/1/
C...give all the switchs and parameters the default values
	DATA HIPR1/
     &	1.5,  0.35, 0.5,  0.9,  2.0,  0.1,  1.5,  2.0, -1.0, -2.25,
     &	2.0,  0.5,  1.0,  2.0,  0.2,  2.0,  2.5,  0.3,  0.1,  1.4,
     &	1.6,  1.0,  2.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.4,  57.0,
     &	28.5, 3.9,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  
     &	3.141592654,
     &	0.0,  0.4,  0.1,  1.5,  0.1, 0.25, 0.0,  0.5,  0.0,  0.0,
     &	50*0.0/

	DATA IHPR2/
     &	1,    3,    0,    1,    1,    1,    1,    10,    0,    0,
     &	1,    1,    1,    1,    0,    0,    1,     0,    0,    1,
     &	30*0/

	DATA HINT1/100*0/
	DATA IHNT2/50*0/

C...initialize all the data common blocks
	DATA NATT/0/EATT/0.0/JATT/0/NT/0/NP/0/N0/0/N01/0/N10/0/N11/0/
	DATA KATT/800000*0/PATT/800000*0.0/
	DATA VATT/800000*0/

	DATA NFP/4500*0/PP/4500*0.0/NFT/4500*0/PT/4500*0.0/

	DATA YP/900*0.0/YT/900*0.0/

	DATA NPJ/300*0/KFPJ/150000*0/PJPX/150000*0.0/PJPY/150000*0.0/
     &	PJPZ/150000*0.0/PJPE/150000*0.0/PJPM/150000*0.0/
	DATA NTJ/300*0/KFTJ/150000*0/PJTX/150000*0.0/PJTY/150000*0.0/
     &	PJTZ/150000*0.0/PJTE/150000*0.0/PJTM/150000*0.0/

	DATA NSG/0/NJSG/900*0/IASG/2700*0/K1SG/90000*0/K2SG/90000*0/
     &	PXSG/90000*0.0/PYSG/90000*0.0/PZSG/90000*0.0/PESG/90000*0.0/
     &	PMSG/90000*0.0/
	DATA MINT4/0/MINT5/0/ATCO/4000*0.0/ATXS/201*0.0/
	DATA (HIDAT0(1,I),I=1,10)/0.0,0.0,0.0,0.0,0.0,0.0,2.25,
     &          2.5,4.0,4.1/
	DATA (HIDAT0(2,I),I=1,10)/2.0,3.0,5.0,6.0,7.0,8.0,8.0,10.0,
     &		10.0,10.0/
	DATA (HIDAT0(3,I),I=1,10)/1.0,0.8,0.8,0.7,0.45,0.215,
     &          0.21,0.19,0.19,0.19/
	DATA (HIDAT0(4,I),I=1,10)/0.35,0.35,0.3,0.3,0.3,0.3,
     &          0.5,0.6,0.6,0.6/
	DATA (HIDAT0(5,I),I=1,10)/23.8,24.0,26.0,26.2,27.0,28.5,28.5,
     &		28.5,28.5,28.5/
	DATA ((HIDAT0(J,I),I=1,10),J=6,9)/40*0.0/
	DATA (HIDAT0(10,I),I=1,10)/5.0,20.0,53.0,62.0,100.0,200.0,
     &          546.0,900.0,1800.0,4000.0/
	DATA HIDAT/10*0.0/
	END