* $Id$
      COMMON/PYINT6_HIJING/PROC(0:200) 
      CHARACTER PROC*28 
      SAVE /PYINT6_HIJING/