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+++ dump.fh +++
c
c  File names
c     dumpfl   file name for dumping scales
c     rstrfl   file name for restoring scales
c
c  Flags
c     ldump    .true. if scales should be dumped each cycle (overwriting)
c     lrstr    .true. if scales should be restored from file
c
      common /fdump/ dumpfl, rstrfl
      character*200 dumpfl, rstrfl
c
      common /cdump/ ldump, lrstr
      logical ldump, lrstr
c
      save /fdump/, /cdump/
c
c--- dump.fh ---