C
C Include file for mtzlib.f
C Created 13/4/2000 MDW
C
      INTEGER NSETW,SET_ID,CSET_ID,IDEFSET
      REAL DCELL,DWAVEL
      CHARACTER ENTRY_ID*64,CRYSTAL_ID*64,DIFFRN_ID*64
      COMMON /HARINT/NSETW(MFILES),SET_ID(MSETS,MFILES),
     +       CSET_ID(MCOLS,MFILES),IDEFSET(MFILES)
      COMMON /HARREA/DCELL(6,MSETS,MFILES),DWAVEL(MSETS,MFILES)
      COMMON /HARCHA/ENTRY_ID(MSETS,MFILES),
     +              CRYSTAL_ID(MSETS,MFILES),
     +              DIFFRN_ID(MSETS,MFILES)

      SAVE /HARINT/,/HARREA/,/HARCHA/