C
C  RCORE, ICORE IS THE CORE AREA
C  IHAVAIL IS THE FIRST CORE CELL THAT HAS NEVER BEEN ALLOCATED
C    THAT IS IHAVAIL THROUGH NCORE ARE FREE
C  IHLA IS THE LIST OF RECYCLED CORE FOR OF EACH SIZE 1-NHLA
C  NCORE IS THE SIZE OF RCORE
C

      COMMON /COMCORE/ RCORE(2000000), IHAVAIL, IHLA(100), NHLA, NCORE
      INTEGER*4 ICORE(1)
      EQUIVALENCE (RCORE(1), ICORE(1))