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 lpt,lcd,latom,lhist,lmsks
      logical inputsolmask,outputsolmask,inputncsmask,outputncsmask
      common /io/lpt,lcd,latom,lhist,lmsks,
     +           inputsolmask,outputsolmask,inputncsmask,outputncsmask
      save   /io/