







      INTEGER      MILMAX, MAXREF
      PARAMETER    (MILMAX=45)
      PARAMETER    (MAXREF=100000)

      INTEGER      IHMIN,  IHMAX,  IKMIN,  IKMAX,  ILMIN,  ILMAX,
     +             NHSF, NKSF, NLSF, MILIND(3,MAXREF), NUMREF
      REAL         XDCSCL, FPHASE(3,MAXREF), SFCELL(6), SFFMAT(3,3),
     +             SFOMAT(3,3), FMIN, FMAX, RESMIN, RESMAX, MAPAVE,
     +             UVWINV(3,3), MAPSDV, DEN000

      EQUIVALENCE  (MILIND,ESPACE(20000001+2*((2*MILMAX+1)**3)))
      EQUIVALENCE  (FPHASE,ESPACE(20000001+2*((2*MILMAX+1)**3+
     +              3*MAXREF)))

      COMMON       /XRAY1/
     +
     +             XDCSCL, SFCELL, SFOMAT, SFFMAT, FMIN,   FMAX,
     +             RESMIN, RESMAX, UVWINV, MAPAVE, MAPSDV, DEN000

      COMMON       /XRAY2/
     +
     +             IHMIN,  IHMAX,  IKMIN,  IKMAX,  ILMIN,  ILMAX,
     +             NHSF,   NKSF,   NLSF,   NUMREF
