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+++ datasets.fh +++
c
c Dataset definitions etc
c
c pname_*   project names
c xname_*   crystal names
c dname_*   dataset names
c
c pname_in, xname_in, dname_in      names read from input hklin file
c pname_out, xname_out, dname_out   names for output file
c
c disod_name                    names for isomorphous (dispersive)
c                               differences from base set
c dfilename_out                 output file name
c
c dcell_in, dwavel_in               cell & wavelength, = 0.0 if unset
c                                     from input file
c dcell_out, dwavel_out             cell & wavelength, = 0.0 if unset
c                                     for output
c dmosaic_out                   average mosicity
c dresol_out                    maximum resolution
c 
c ndatasets                     number of datasets in input file
c ndtsetsout                    number of datasets in output file(s)
c idtsets                       ID numbers for input datasets
c nbtchdts                      number of batches in this input dataset
c nrundts                       number of runs in each output dataset
c krundts(irun,idts)            list of runs for each output dataset
c kdtsbase                      serial number (in output list) of
c                                "base" dataset, ie the reference for
c                                dispersive differences
c
c
      common /datasetc/
     +   pname_in(maxinsets), xname_in(maxinsets), dname_in(maxinsets),
     +   pname_out(maxsets), xname_out(maxsets), dname_out(maxsets),
     $   disod_name(maxsets),
     $   dfilename_out(maxsets), dfilename2_out(maxsets)
      character pname_in*(maxnamelen), xname_in*(maxnamelen),
     $   dname_in*(maxnamelen)
      character pname_out*(maxnamelen), xname_out*(maxnamelen),
     $   dname_out*(maxnamelen), dfilename_out*200, dfilename2_out*200
      character disod_name*(2*maxnamelen+1)
c
      common /datasets/ dcell_in(6,maxinsets), dwavel_in(maxinsets),
     $   dcell_out(6,maxsets), dwavel_out(maxsets),
     $   dmosaic_out(maxsets), dresol_out(maxsets),
     $   ndatasets, ndtsetsout, idtsets(maxinsets),
     $   nbtchdts(maxinsets), nrundts(maxsets), 
     $   krundts(maxrun, maxsets), kdtsbase
      real    dcell_in, dwavel_in, dcell_out, dwavel_out,
     $   dmosaic_out, dresol_out
      integer ndatasets, ndtsetsout, idtsets, nbtchdts,
     $   nrundts, krundts, kdtsbase
c
      save /datasetc/, /datasets/
c
c--- datasets.fh ---