* $Id$
      REAL PARP, PARI
      COMMON/PYPARS_HIJING/MSTP(200),PARP(200),MSTI(200),PARI(200) 
#ifndef BLANKET_SAVE
      SAVE /PYPARS_HIJING/ 
#endif