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+++ means.fh +++
c
c  Means etc also limits on maximum E
c
c  NB only those items marked *!* are currently implemented
c eacmax        maximum E for acentric reflections (.le. 0.0 no test)
c ecnmax        maximum E for centric reflections
c emnprb        minimum probability for E
c sclimax       maximum scaled unmerged intensity
c-- By bins on s  (....sm)
c*!* nrefsm        number of reflections in s bin
c*!* qtolsm        mean 4(sin theta/lambda)**2 in this s bin
c*!* qimnsm        mean Imean (weighted by epsilon)
c qdlism        mean (DelF**2)
c ndlism        number in qdlism
c-- By bins on s & I (....si)
c qdlisi        mean ((I+ - I-)**2/4<I>) ( =~ mean DelF**2)
c ndlisi        number in qdlisi
c-- By bins on s & dataset (....sr)
c*!* qimnsr        mean Imean (weighted by epsilon) (indexed by dataset)
c qsdisr        sqrt(<sdI**2>)
c nrdlsr        number of reflections in qde2sr, qsctst
c qde2sr        sqrt(<chi**2>)
c*!* nrefsr        number of reflections in qsctsr
c*!* qsctsr        rms<delI**2>)
c*!* nrefsa        number of reflections in qsctsa
c*!* qsctsa        rms<delI**2>) over all resolution ranges
c-- Flags
c*!* lqmnir        .true. if qimnsr array contains valid means
c-- Overall, unscaled (....su)
c*!* qsisu      unscaled intensity
c*!* nqsisu     number
c
      common /means/ qtolsm(maxres), qimnsm(maxres),
     $   qdlism(maxres), qdlisi(maxres,maxinb),
     $   qimnsr(maxres,maxsets),
     $   qde2sr(maxres,maxsets), qsdisr(maxres,maxsets),
     $   qsctsr(maxres,maxsets), qdl2sm(maxres),
     $   qsctsa(maxsets), qsisu,
     $   nqsisu,
     $   nrefsm(maxres), ndlism(maxres), ndlisi(maxres,maxinb),
     $   nrefsr(maxres,maxsets), nrefsa(maxsets),
     $   nrdlsr(maxres,maxsets),
     $   eacmax, ecnmax, emnprb, sclimax, lqmnir
      real  qtolsm, qimnsm, qdlism, qdlisi, qimnsr,
     $   qde2sr, qsdisr, qsisu,
     $   qsctsr, qsctsa, qdl2sm, eacmax, ecnmax, emnprb, sclimax
      integer nrefsm, ndlism, ndlisi, nrefsr, nrefsa, nrdlsr, nqsisu
      logical lqmnir
c
      save /means/
c--- means.fh ---