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+++ refcon.fh +++
c
c     filter    eigenvalue filter level
c     damp      damping factor to be added to eigenvalues
c     cnvfac    convergence factor
c     sdrejr2   rejection factor for reflections measured twice
c     sdrejr    rejection factor for rellections measured more than twice
c     sclset(maxrun) for each run:
c               .gt. 0.0  initial scale
c               .lt. 0.0  unset
c     prthld    threshold for partial scaling
c     prlims    limit for deviation of partial fraction from 1.0
c     prmaxs    maximum total fraction for scaling
c     ncycle    number of cycles
c     jsdcyc    1st cycle to refine sd factors
c     jolcyc    1st cycle to reject outliers
c     nparam    total number of parameters
c     nparar    number of B & scale parameters
c     iniscl    = 0  get initial scales from mean I
c               = 1  set all scales = 1.0
c               = 2  scales input for each run
c     kprsum    primary control on use of partials in scaling
c               = -1  fulls only
c               =  0  fulls & previously summed partials only
c               = +1  sum partials
c               = +2  scale partials .gt. prthld
c     kprflg    controls mode of partial summation (if kprsum = +1)
c               .lt. 0  accept sum only if all MPART flags valid (only
c                      allowed if MPART flags present)
c               = +/-1 no test on total fraction
c               = +/-2 accept summed partial if total fraction over
c                      all parts lies between  prlims -> prmaxs,
c                      scale by total fraction if fraction between
c                      prthld -> prlims
c     kprmis    =  0  reject partials with gap
c               = +1  accept partials with gap
c     mxprwd    maximum number of parts for an acceptable summed
c               partial, .gt. 999 no limit
c     nrfskp    if .gt. 1, use every nrfskp in refinement for the first
c               ncyskp cycles
c     ncyskp    number of cycles to use subset of data
c     kanoms    controls treatment of anomalous data in scale pass
c               =  0   no anomalous
c               = +1   anomalous all
c     ncycdamp  number of cycles to apply damping factor
c               = 0  never, = -1 all cycles
c     kscwgtyp  weighting type for scaling
c               = 1 unit weights
c               = 2 variance weights
c               = 3 sqrt scale weights
c     lfilt1    .true. if at least one eigenvalue must be filtered
c               .false. if  at least two eigenvalues must be filtered
c     lovmap    .true. to write overlap map to MAPOUT in anlini
c     lavpsc(irun) .true. if scale components of summed partials must be
c               averaged in scaling for this run. This is required if 
c               summed partials are used in BATCH mode scaling, to allow
c               for the parts having different scales.
c     lptfix(maxtds) fix flags for TDS (TAILS) parameters, .true. if fixed
c               .false. if free
c
      common /refcon/ filter, damp, cnvfac, sdrejr, sdrejr2, 
     $   sclset(maxrun), prthld, prlims, prmaxs,
     $   ncycle, jsdcyc, jolcyc, nparam,
     $   nparar, iniscl, kprsum, kprflg, kprmis, mxprwd, 
     $   nrfskp, ncyskp, kanoms, ncycdamp, kscwgtyp,
     $   lfilt1, lovmap, lavpsc(maxrun),
     $   lptfix(maxtds)
      real filter, damp, cnvfac, sdrejr, sdrejr2, 
     $    sclset, prthld, prlims, prmaxs
      integer ncycle, jsdcyc, jolcyc, nparam, nparar, iniscl,
     $   kprsum, kprflg,  kprmis, mxprwd, nrfskp, ncyskp, kanoms,
     $   ncycdamp, kscwgtyp
      logical lfilt1, lovmap, lavpsc, lptfix
c
      save /refcon/
c--- refcon.fh ---