* $Id$
      COMMON/LUDAT4_HIJING/CHAF(500)   
      CHARACTER CHAF*8  
      SAVE /LUDAT4_HIJING/