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+++ errors.fh +++
c
c Various global error stores
c
c nerpdc   number of observations of partials with different coordinates
c ibtpdc   batch numbers of partials with different coordinates
c lerpdc   if .true., print partials with different coordinates, .false. don't
c
      common /errors/ nerpdc, ibtpdc(maxpdc), lerpdc
      integer nerpdc, ibtpdc
      logical lerpdc
c
      save /errors/
c
c--- errors.fh ---