*KEEP,CHEVAP.
      COMMON/CHEVAP/HEPART(200,4)