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+++ dts_storage.fh +++
c
c Information about storage of anomalous & dispersive differences
c for analysis of ratios
c
c Routines:-
c  dtsinitstore    initialise storage
c  dtsstore        store reflection
c  dtsgetstore     retrieve reflection from store
c
c  Each record in file contains
c   h, k, l, icntrc
c   
c
c mdts_index    stream number for storage
c mdts_count    reflection counter for writing
c mdts_ndts     number of datasets (= ndtsetsout)
c mdts_recl     record length in items
c mdts_read     reflection counter for reading
c
      common /dts_storage/ dts_data(maxsets*5+4),
     $   mdts_index, mdts_count, mdts_ndts, mdts_recl, mdts_read
c
      real dts_data
      integer mdts_index, mdts_count, mdts_ndts, mdts_recl, mdts_read
c--- dts_storage.fh ---