* $Id$ DOUBLE PRECISION F, TI, TSI COMMON/BVEG3_HIJING/F,TI,TSI SAVE /BVEG3_HIJING/