
































      INTEGER      MAXGHS, MAXCNT, MAXPOL
      PARAMETER    (MAXPOL = 200)
      PARAMETER    (MAXGHS = 100)
      PARAMETER    (MAXCNT = 2000)
      INTEGER      GHSLEX, GHSHEX, GHSUSE, ELLUNT, CNTXYZ(MAXCNT),
     +             STAUNT, STACNT, POLPNT(MAXPOL)
      REAL         LOWGHS(MAXGHS), HGHGHS(MAXGHS), CNTGHS(MAXGHS),
     +             STPGHS, ELLLOW(3), ELLMID(3), ELLHGH(3), ELLVEC(3),
     +             ELLMAT(3,3), ELLCEN(3), CAXYZ(MAXCNT,1000), 
     +             GHSROW(1000000), ELLUMX(3,3), POLSTS(10000,MAXPOL), 
     +             IONASD(3,MAXPOL)
      CHARACTER*60 POLCHR(MAXPOL)
      EQUIVALENCE  (CAXYZ(1,1), ESPACE(3000001))
      EQUIVALENCE  (GHSROW(1),  ESPACE(3000001))
      EQUIVALENCE  (POLSTS(1,1),ESPACE(3000001))

      LOGICAL      ELLWOK

      COMMON      /GHSINC1/
     +
     +             GHSLEX, GHSHEX, GHSUSE, ELLUNT, STAUNT, STACNT,
     +             CNTXYZ, POLPNT
 
      COMMON      /GHSINC2/
     +
     +             CNTGHS, LOWGHS, HGHGHS, STPGHS, ELLLOW, ELLMID,
     +             ELLHGH, ELLMAT, ELLVEC, ELLCEN, ELLUMX, IONASD

      COMMON      /GHSINC3/
     +
     +             ELLWOK

      COMMON      /GHSINC4/
     +
     +             POLCHR
