*KEEP,CHIE.
       COMMON / CHIE / IHIE, EHIN, EHIPI
C