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 solc,scmask,pcmask,aveprt,avesol,wrstr,gammac,combwt,wangrd
      real wngmin,wngmax,ljoin,lendp,sklbf,flpfac,flptrn,minhist,maxhist
      real reshist(50),frpx,frpy,frpz,frpr,frsx,frsy,frsz,frsr
      integer wangmd
      common /params/
     +  solc,scmask,pcmask,aveprt,avesol,wrstr,gammac,combwt,wangrd,
     +  wngmin,wngmax,ljoin,lendp,sklbf,flpfac,flptrn,minhist,maxhist,
     +  reshist,frpx,frpy,frpz,frpr,frsx,frsy,frsz,frsr,wangmd
      save   /params/