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+++ params.fh +++
c     npmrun   total number of parameters for each run
c     nprrun   number of scale, B & diffuse parameters for each run
c     ipnscl   pointer to first scale parameter for each run
c     ipntds   pointer to first diffuse parameter for each run
c     ipnsph   pointer to first spherical harmonic parameter for each run
c     ipnsdf   pointer to first sd parameter for each run
c     npqrun   number of sd correction parameters for each run
c     ipoint   pointers to global parameters from local parameters
c                (for each run)
c     iptyp    type of this global parameter
c              = 1  B-factor
c              = 2  scale
c              = 3  diffuse correction factor
c              = 4  spherical harmonic parameter
c              = 5  sd correction factor
c     ipnloc   pointer back from global parameter to local parameter
c              for this run, ie global parameter i is local
c              parameter ipnloc(i). If negative, points to
c              iplloc(-ipnloc(), irun), for linked parameters, where one
c              global parameter can point to different local parameters,
c              depending on run
c     ipnrun   run number corresponding to this global parameter
c              ie global parameter i is from run ipnrun(i)
c     iplloc   links from global parameter to local parameter,
c              depending on run. iplloc(k,irun), k = 1,3 for TDS parameters
c LINKS
c     nlnkrn   number of linked parameters in this run, ie the number which
c              contribute to the local parameter count, but not to the
c              global count
c     ilnkrn   link status of each local parameter
c              =  0  unlinked
c              .lt. 0  linked back to earlier run (-ilnkrn)
c              .gt. 0  later run linked to this one (ilnkrn)
      common /params/ npmrun(maxrun), nprrun(maxrun),
     $   ipnscl(maxrun), ipntds(maxrun), ipnsph(maxrun), ipnsdf(maxrun),
     $   npqrun(maxrun),
     $   ipoint(maxpmr, maxrun), iptyp(maxpar), ipnloc(maxpar),
     $   ipnrun(maxpar), iplloc(maxlnp, maxrun),
     $   nlnkrn(maxrun), ilnkrn(maxpmr, maxrun)
      integer npmrun, nprrun,
     $   ipnscl, ipntds, ipnsph, ipnsdf,
     $   npqrun, ipoint, iptyp, ipnloc, ipnrun, nlnkrn, ilnkrn, iplloc
c
      save /params/
c--- params.fh ---