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+++ nbtchc.fh +++
c
c  nbtall            number of batches
c  ibtall(nbtall)    batch number for each batch
c  idtsbt(nbtall)    dataset ID for each batch
c                    These are dataset IDs read from input hklin file
c  jdtsbt(nbtall)    serial number of dataset for this batch
c                     (ie 1,2,3 as in input file)
c  kdtsbt(nbtall)    serial number of dataset for this batch
c                     (ie 1,2,3 as in output file)
c  icrybt(nbtall)    crystal number for wach batch (NOT IMPLEMENTED)
c
      common /nbtchc/ nbtall, ibtall(maxbat), idtsbt(maxbat),
     $    jdtsbt(maxbat), kdtsbt(maxbat), icrybt(maxbat)
      integer nbtall, ibtall, idtsbt, jdtsbt, kdtsbt, icrybt
      save /nbtchc/
c--- nbtchc.fh ---