
C     INCLUDE 'Zcrys.inc'
   
C     ------ /CRYSA/ storage of important numerical crystal data
      COMMON /CRYSA/ CELL(6),  CELLSD(6),   RCELL(6),   VOLUM,
     +               WAVE,     CELALL(10),  AMOLW,      ZET,    NATSYM,
     +               NELEC,    F000,        ABSMU,      ICENT,
     +               ILATT,    ISYST,       ILAUE,      IMULT, 
     *       AMULT,  ASYMM,    ALATT,       ASYMCL,     NSYMC,  ASYMC,
     +               IUNIQ,    IPOLA,       NTYPE,      NSYMM,
     +         IRSYMM(3,3,24), TSYMM(3,24), NLATT,      TLATT(3,4),
     +         FRAC2C(3,3),    CART2F(3,3), RRMAT(3,3), SSMAT(3,3),
     *         IZTYPE(10)

C     ------ /CRYSB/ storage of important character crystal data
      COMMON /CRYSB/ SPGR,     WAVEAT,      CELATY(10)
      CHARACTER      SPGR *16, WAVEAT *2,   CELATY *2

C end of 'Zcrys.inc'
 