* $Id$ DOUBLE PRECISION XI, SI, SI2, SWGT, SCHI COMMON/BVEG2_HIJING/XI(50,10),SI,SI2,SWGT,SCHI,NDO,IT SAVE /BVEG2_HIJING/