C
C     <one line to give the program's name and a brief idea of what it does.>
C     Copyright (C) <year>  <name of author>
C
C     This code is distributed under the terms and conditions of the
C     CCP4 Program Suite Licence Agreement as a CCP4 Application.
C     A copy of the CCP4 licence can be obtained by writing to the
C     CCP4 Secretary, Daresbury Laboratory, Warrington WA4 4AD, UK.
C
      INTEGER QQA
      PARAMETER (QQA=40000)
C
C---Parameters for TLS refinement. 
C
      INTEGER MAXTLSGRP,MAXTLSGRP20,MAXTLSGRP21,
     +        MAXPIECES_TLS,MAXSELECT
      PARAMETER (MAXTLSGRP = 50)
      PARAMETER (MAXTLSGRP20 = MAXTLSGRP*20)
      PARAMETER (MAXTLSGRP21 = MAXTLSGRP*21)
      PARAMETER (MAXPIECES_TLS = 10)
      PARAMETER (MAXSELECT = 10)
C
C---Integer parameters
C
C--NA             - number of atoms read in
C--NTLSATOMS      - number of atoms included in TLS groups
C--NTLS_CYCLE     - number of TLS refinement cycles
C--NTLSGRP        - number of TLS groups
C--ITLSGRP_PIECES   - number of pieces for this tlsgrp
C--ITLSGRP_STATUS   - 0 = include this piece in fitting
C                     1 = include for residual U only
C--ITLSGRP_FROM     - starting residue of pieces of tlsgrps
C--ITLSGRP_TO       - end residue " "
      INTEGER  NA,NTLSATOMS,
     +         NTLS_CYCLE,NTLSGRP,
     +         ITLSGRP_PIECES,
     +         ITLSGRP_STATUS,
     +         ITLSGRP_FROM,
     +         ITLSGRP_TO
      COMMON /TLS_PARS/ NA,NTLSATOMS,
     +         NTLS_CYCLE,NTLSGRP,
     +         ITLSGRP_PIECES(MAXTLSGRP),
     +         ITLSGRP_STATUS(MAXPIECES_TLS,MAXTLSGRP),
     +         ITLSGRP_FROM(MAXPIECES_TLS,MAXTLSGRP),
     +         ITLSGRP_TO(MAXPIECES_TLS,MAXTLSGRP)
C
C---Real parameters
      REAL XYZ1,XYZ2,XYZ3,QOCC,U_OBS,U_ANISO,XCOM
      COMMON /ATOMS / XYZ1(QQA),XYZ2(QQA),XYZ3(QQA),QOCC(QQA),
     +                U_OBS(QQA,6),U_ANISO(QQA,6),XCOM(3,QQA)
      REAL PISQ8,TOL,RTODEG,DEGTOR
      COMMON /CONSTS/ PISQ8,TOL,RTODEG,DEGTOR
      REAL CELL
      COMMON /CELLCONST/ CELL(6)
      CHARACTER ATOM*9, ALTID*1, TITLE*600
      COMMON /ATNAME/ ATOM(QQA), ALTID(QQA), TITLE
C
C---Character parameters
C
C--TLSGRP_CHN    - chain ID of pieces of tlsgrps
C--TLSGRP_SELECT  - atom selection of pieces of tlsgrps
C--TLSGRP_TITLE   - title for this tlsgrp
      CHARACTER TLSGRP_CHN(MAXPIECES_TLS,MAXTLSGRP)*1
      CHARACTER TLSGRP_SELECT(MAXSELECT,MAXPIECES_TLS,MAXTLSGRP)*4
      CHARACTER TLSGRP_TITLE(MAXTLSGRP)*80
      COMMON /TLS_CHRS/ TLSGRP_CHN,TLSGRP_SELECT,TLSGRP_TITLE
C
C---TLS variables
C
      INTEGER IGROUP
      REAL XORT0,TLSORIGIN,TMAT,LMAT,SMAT,DELTMAT,DELLMAT,
     +  DELSMAT,LTMMAT,DELLTMMAT,TMATSD,LMATSD,SMATSD
      COMMON /TLSMTX/ 
     +  IGROUP(QQA),XORT0(3,QQA),TLSORIGIN(3,MAXTLSGRP)
      COMMON /TLS2MTX/ 
     +  TMAT(6,MAXTLSGRP),LMAT(6,MAXTLSGRP),
     +  SMAT(8,MAXTLSGRP),LTMMAT(21,MAXTLSGRP)
      COMMON /TLS3MTX/ 
     +  DELTMAT(6,MAXTLSGRP),DELLMAT(6,MAXTLSGRP),
     +  DELSMAT(8,MAXTLSGRP),DELLTMMAT(21,MAXTLSGRP)
      COMMON /TLS4MTX/ 
     +  TMATSD(6,MAXTLSGRP),LMATSD(6,MAXTLSGRP),
     +  SMATSD(8,MAXTLSGRP)
C
C---Gradients and shifts
C
      REAL               GX_TLS,HX_TLS,SHFT_TLS,
     +                   GX_LTM,HX_LTM,SHFT_LTM
      COMMON /TLSSHIFTS/ 
     +                   GX_TLS(MAXTLSGRP20),
     +                   HX_TLS(MAXTLSGRP20,MAXTLSGRP20),
     +                   SHFT_TLS(MAXTLSGRP20)
      COMMON /TLS2SHIFTS/ 
     +                   GX_LTM(MAXTLSGRP21),
     +                   HX_LTM(MAXTLSGRP21,MAXTLSGRP21),
     +                   SHFT_LTM(MAXTLSGRP21)

      REAL GU1(6*QQA),HUU(21*QQA)
      COMMON /REF_SPG/ GU1,HUU
C
C--Logical parameters. 
C
      LOGICAL VERBOSE,USELTM
      COMMON /TLS_LOGS/ VERBOSE,USELTM
C
      LOGICAL LFITTLS,LDOPLOTS,LRIGBODY,LMAINCHAIN
      COMMON /MODE_LOGS/ LFITTLS,LDOPLOTS,LRIGBODY,LMAINCHAIN

      INTEGER NDELTAUBINS,NPSBINS
      COMMON /MODE_INTS/ NDELTAUBINS,NPSBINS

      REAL DELTAURANGE
      COMMON /MODE_REALS/ DELTAURANGE

C
C--Parameters for postscript file
C

      INTEGER TOTPAG, CURPAG, UNPS
      COMMON /ISPS/ TOTPAG, CURPAG, UNPS