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+++ tie.fh +++
c
c  Ties between scale factors
c
c     vtiexy      variance of ties in detector plane
c     vtiez       variance of ties along rotation
c     vtiesrf     variance of ties on surface parameters
c     vtiebf      variance of ties on B-factor
c     ttieA1      target value for tie on A1, for run irun
c     vtieA1      variance of ties on A1
c     jties       pointers to parameters for each tie:
c                 jties(1,j) global parameter number of 1st tie partner
c                 jties(2,j) global parameter number of 2nd tie partner
c                       (not used for surface ties, since these are ties to 0)
c                 jties(3,j) run number
c                 jties(4,j) tie type (for checking)
c                   = 1  xy, = 2 z, = 3 surface, = 4 Bfactor
c                   = 5 A1
c     nties       total number of ties
c     ntiexy      number of ties in xy plane (first)
c     ntiez       number of ties along z (second)
c     ntiesrf     number of ties on surface (third)
c     ntiebf      number of ties on B-factor
c     ntieA1      number of ties on A1 (tails gradient)
      common /tie/ vtiexy, vtiez, vtiesrf, vtiebf,
     $   ttieA1(maxrun), vtieA1,
     $   jties(4,maxtie), nties, ntiexy, ntiez, ntiesrf, ntiebf, ntieA1
      real vtiexy, vtiez, vtiesrf, vtiebf, ttieA1, vtieA1
      integer jties, nties, ntiexy, ntiez, ntiesrf, ntiebf, ntieA1
c
      save /tie/
c--- tie.fh ---