












      INTEGER      MAXESP, ESPBLS, ESPBLK, MAXAS, IQ7328
      PARAMETER    (MAXAS  = 750000)
      PARAMETER    (MAXESP = 30000000)
      PARAMETER    (ESPBLS = 5000)
      PARAMETER    (ESPBLK = (MAXESP-1)/ESPBLS+1)

      REAL         ESPACE(MAXESP)
      INTEGER      ESPUSE(ESPBLK), GRPALL(4*MAXAS)

      COMMON       /ESPAC1/
     +             ESPACE, IQ7328

      COMMON       /ESPAC2/
     +             ESPUSE

      COMMON       /ESPAC3/
     +             GRPALL
