* $Id$ REAL VINT COMMON/PYINT1_HIJING/MINT(400),VINT(400) SAVE /PYINT1_HIJING/