* $Id$
	DOUBLE PRECISION XL(10),XU(10),ACC
	COMMON/BVEG1_HIJING/XL,XU,ACC,NDIM,NCALL,ITMX,NPRN
	SAVE  /BVEG1_HIJING/