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+++ sdfacc.fh +++
c
c  Sd correction factors
c
c    sdfact(3, maxrun,2)    sd correction factors for each run,
c                             fulls(1) & partials(2)
c    sdfacdef(maxsdf)       default values
c    jsdfac(irun)         =  0, no refinement of sd correction factors
c                              for this run  NOT USED
c                         = -1, use default values (s/r keyin only)
c                         = +1, values set, refine them
c     lsdfac              = .true.  to refine SD factors
c     lsdmod              = .true. if sd factors are modified: this controls
c                           whether modified SD columns are output
c
      common /sdfacc/ sdfact(maxsdf, maxrun,2), sdfacdef(maxsdf),
     $   jsdfac(maxrun), lsdfac,
     $     lsdmod
      real sdfact, sdfacdef
      integer jsdfac
      logical lsdfac, lsdmod
c
      save /sdfacc/
c--- sdfacc.fh ---