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+++ glocon.fh +++
c
c Global controls
c
c     kprint    (1) print flag
c               = 0  NONE    almost none
c               = 1  BRIEF   some more (default)
c               = 2  CYCLES  more information about each minimization cycle
c               = 3  FULL    quite a lot
c               = 4  DEBUG  [reflection_interval]   far too much
c               (2) interval for debug print (if kprint(1) = 4)
c               (3) print flag for overlap matrix (anlini)
c                    =  0 no print, = +1 print condensed, = +2 full print
c
c     lanbyd    if .true. analyse deviations & rejections by dataset
c
      common /glocon/ kprint(3), lanbyd
      integer kprint
      logical lanbyd
c
      save /glocon/
c--- glocon.fh ---