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+++ sclinimeans.fh +++
c
c Mean intensities for initial scaling
c Stored here by s/r anlini, for retrieval by get_anl_imean called
c from FoxHolmes
c
c  aimean(maxrsr, ngroup)  mean intensities for resolution range & group
c  nimean(maxrsr, ngroup)  number of observations for resolution range & group
c  nmnresmax               number of resolution ranges
c  nmngroup                number of groups
c  kmncount                counter for data extraction, initialised to 0
c
      common /sclinimeans/
     $   aimean(maxres, maxbat), nimean(maxres, maxbat),
     $   nmnresmax, nmngroup, kmncount
      real aimean
      integer nimean, nmnresmax, nmngroup, kmncount
c
      save /sclinimeans/
c--- sclinimeans.fh ---