* $Id$ REAL BRAT COMMON/LUDAT3_HIJING/MDCY(500,3),MDME(2000,2),BRAT(2000),KFDP(2000 $ ,5) SAVE /LUDAT3_HIJING/