C
C
C     This code is distributed under the terms and conditions of the
C     CCP4 licence agreement as `Part 2' (Annex 2) software.
C     A copy of the CCP4 licence can be obtained by writing to the
C     CCP4 Secretary, Daresbury Laboratory, Warrington WA4 4AD, UK.
C
c+++ symmty.fh +++
c     Cell, symmetry etc
c
c
c     cell(6)             unit cell
c     rsym(4,4,maxsym)    symmetry operators
c     nsym                number of operators
c     nsymp               number of primitive operators
c     nspgrp              spacegroup number
c     nlaue               Laue group number
c     lattyp              lattice type ('P','C','I','F')
c     spgnam              spacegroup name
c     pgname              Laue group name
c     ksysts(3), isysts   lattice absence tests
c
      common /symmty/ cell(6), rsym(4,4,maxsym),
     $   nsym, nsymp, nspgrp, nlaue, isysts, ksysts(3)
      integer nsym, nsymp, nspgrp, nlaue, isysts, ksysts
      real cell, rsym
c
      common /csymmy/ lattyp, spgnam, pgname
      character lattyp*1, spgnam*10, pgname*10
c
      save /symmty/, /csymmy/
c
c--- symmty.fh ---