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+++ parameter.fh +++
c     Parameters
c
c  maxrun   maximum number of "runs"
      integer maxrun
      parameter (maxrun=40)
c  maxgrp   maximum number of groups, ie potential runs
      integer maxgrp
      parameter (maxgrp = maxrun)
c  maxpmr   maximum number of parameters/run
c  maxpar   maximum total number of parameters
      integer maxpmr, maxpar
      parameter (maxpmr = 2000, maxpar = 2000)
c  maxrfl   maximum number of observations/reflection
      integer maxrfl
      parameter (maxrfl = 400)
c  maxbat    maximum number of batches
      integer maxbat
      parameter (maxbat=10000)
c  maxrot   maximum number of rotational (z) slices
c  maxxys   maximum number of positions on xy (eg detector position)
c             for scaling
c  maxxyn   maximum number of positions on xy (eg detector position)
c             for analysis
      integer maxrot, maxxxx, maxxys, maxxyn
      parameter (maxrot=maxbat, maxxxx = 5, maxxys=maxxxx*maxxxx)
      parameter (maxxyn=30)
c  maxrtr   = maxrun * maxrot
      integer maxrtr
      parameter (maxrtr = maxrun * maxrot)
c  maxlmr   maximum number of rotation limits / run
c  maxcry   maximum number of crystals
c  maxinsets  maximumu number of input datasets
c  maxsets  maximumu number of output datasets
c      (beware of large numbers in crlncf.fh if maxsets is too large)
      integer maxlmr, maxcry, maxinsets, maxsets
      parameter (maxlmr=10, maxcry=10, maxinsets=100, maxsets=12)      
c
c  maxnamelen  maximum number of characters in a name (eg dname)
      integer maxnamelen
      parameter (maxnamelen=65)
c  maxmat   maximum number of different setting matrices / run
      integer maxmat
      parameter (maxmat=5000)
c  maxsdf   number of sd correction factors / run
      integer maxsdf
      parameter (maxsdf=3)
c  maxres   maximum number of resolution ranges
      integer maxres
      parameter (maxres=20)
c  maxtie   maximum number of ties
      integer maxtie
      parameter (maxtie=2*(maxxys-maxxxx)*maxrot + maxxys*(maxrot-1))
c  maxbfc   maximum number of B factors at each position (3 for anisotropic)
      integer maxbfc
      parameter (maxbfc=3)
c  maxtds   maximum number of TDS (TAILS) correction parameters
      integer maxtds
      parameter (maxtds=3)
c  maxinb   number of intensity bins
      integer maxinb
      parameter (maxinb=13)
c  maxsym   number of symmetry operators
      integer maxsym
      parameter (maxsym=192)
c  maxhbn   number of histogram bins for total fraction of unmatched partials etc
      integer maxhbn
      parameter (maxhbn=100)
c  maxcol   maximum number of columns in input file
      integer maxcol
      parameter (maxcol=50)
c  maxrct   maximum number of exclude rectangles & arcs
      integer maxrct, maxarc
      parameter (maxrct=30, maxarc=30)
c maximum number of spherical harmonic orders and terms
      integer maxspl, maxspt
      parameter (maxspl = 10)
      parameter (maxspt = (maxspl+1)*(maxspl+1))
c maximum number of Theta/Phi points in spherical polar space
      integer mxstheta,mxsphi
      parameter (mxsphi=37, mxstheta=11)
c  maxlnp   maximum number of linked parameters
c            TDS parameters & surface may be linked
      integer maxlnp
      parameter (maxlnp=maxspt)
c  maximum number of partials with different coordinates
      integer maxpdc
      parameter (maxpdc=5000)
c  maximum index hkl
      integer  maxhkl
      parameter (maxhkl=1000)
c  maximum number of HTML links
      integer maxlnk
      parameter (maxlnk=50)
c  maximum number of lines and line length for html line buffer of keywords
      integer maxhtb, maxhtl
      parameter (maxhtb = 100, maxhtl = 100)
c  maximum number of bit flags counted (see unpmfl, tstmfl)
      integer maxmfl
      parameter (maxmfl = 6)
c--- parameter.fh ---