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+++ timecor.fh +++
c
c Time correction things
c
c ktimcor  =  0  no correction
c          = +1  full correction
c          = +2  correction damped
c
c
      common /timecor/ sum_tcr, sum_corfac,
     $   timmax, timmin, count_tcr, corfac_avg, corfac_max,
     $   corfac_guide,
     $   ktimcor, numunc, nummxc, numcor,
     $   have_avg
      double precision  sum_tcr, sum_corfac
      real timmax, timmin, count_tcr, corfac_avg, corfac_max,
     $   corfac_guide
      integer ktimcor, numunc, nummxc, numcor
      logical have_avg
c
      save /timecor/
c