* $Id$ REAL PMAS, PARF, VCKM COMMON/LUDAT2_HIJING/KCHG(500,3),PMAS(500,4),PARF(2000),VCKM(4,4) SAVE /LUDAT2_HIJING/