C
C
C     This code is distributed under the terms and conditions of the
C     CCP4 Program Suite Licence Agreement as a CCP4 Application.
C     A copy of the CCP4 licence can be obtained by writing to the
C     CCP4 Secretary, Daresbury Laboratory, Warrington WA4 4AD, UK.
C
      real cell(6),vol,q(4,4),qt(4,4),rsym(4,4,192),
     +     rcm11,rcm12,rcm13,rcm22,rcm23,rcm33,
     +     rlm11,rlm12,rlm13,rlm22,rlm23,rlm33
      integer nspgrp,nlaue,nsym,nsymp
      common /crystal/cell,vol,q,qt,rcm11,rcm12,rcm13,rcm22,rcm23,rcm33,
     +  rlm11,rlm12,rlm13,rlm22,rlm23,rlm33,nspgrp,nlaue,nsym,nsymp,rsym
      save   /crystal/