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
      integer ifo,isfo,iphio,ifomo,ihla,ihlb,ihlc,ihld,
     +  ifdm,iphidm,ifomdm,ifpc,iphipc,ifree,ncols,nlprgo,
     +  ophidm,ofomdm,ofdm,ofcdm,ophicdm,ohladm,ohlbdm,ohlcdm,ohlddm
      common /mtzdata/ifo,isfo,iphio,ifomo,ihla,ihlb,ihlc,ihld,
     +  ifdm,iphidm,ifomdm,ifpc,iphipc,ifree,ncols,nlprgo,
     +  ophidm,ofomdm,ofdm,ofcdm,ophicdm,ohladm,ohlbdm,ohlcdm,ohlddm
      save   /mtzdata/