* $Id$
      REAL CKIN
      COMMON/PYSUBS_HIJING/MSEL,MSUB(200),KFIN(2,-40:40),CKIN(200) 
#ifndef BLANKET_SAVE
      SAVE /PYSUBS_HIJING/ 
#endif