C
C---Parameters for TLS refinement. 
C
      INTEGER MAXTLSGRP
      PARAMETER (MAXTLSGRP = 200)
      INTEGER MAXTLSGRP20
      PARAMETER (MAXTLSGRP20 = MAXTLSGRP*20)
      INTEGER MAXPIECES_TLS
      PARAMETER (MAXPIECES_TLS = 50)
      INTEGER MAXSELECT
      PARAMETER (MAXSELECT = 50)
C
C---Integer parameters
C
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_FROM     - starting residue of pieces of tlsgrps
C--ITLSGRP_TO       - end residue " "
      INTEGER  NTLS_CYCLE,NTLSGRP,
     +         ITLSGRP_PIECES,
     +         ITLSGRP_FROM,
     +         ITLSGRP_TO
      COMMON /TLS_PARS/NTLS_CYCLE,NTLSGRP,
     +         ITLSGRP_PIECES(MAXTLSGRP),
     +         ITLSGRP_FROM(MAXPIECES_TLS,MAXTLSGRP),
     +         ITLSGRP_TO(MAXPIECES_TLS,MAXTLSGRP)
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 tls_output_format*1
      character waters2tls*3
      CHARACTER TLSGRP_CHN(MAXPIECES_TLS,MAXTLSGRP)*4
      CHARACTER TLSGRP_SELECT(MAXSELECT,MAXPIECES_TLS,MAXTLSGRP)*4
      CHARACTER TLSGRP_TITLE(MAXTLSGRP)*80
      COMMON /TLS_CHRS/ TLSGRP_CHN,TLSGRP_SELECT,TLSGRP_TITLE,
     &     tls_output_format,
     &     waters2tls
C
C---TLS variables
C
      INTEGER IGROUP
      REAL XORT0,TLSORIGIN,TMAT,LMAT,SMAT,DELTMAT,DELLMAT,DELSMAT,
     &     T_REMAIN,UANISO_OLD
      COMMON /TLSMTX/ 
     +  IGROUP(MAXATOM),XORT0(3,MAXATOM),TLSORIGIN(3,MAXTLSGRP),
     +  TMAT(6,MAXTLSGRP),LMAT(6,MAXTLSGRP),SMAT(8,MAXTLSGRP),
     +  DELTMAT(6,MAXTLSGRP),DELLMAT(6,MAXTLSGRP),DELSMAT(8,MAXTLSGRP),
     +  UANISO_OLD(6,MAXATOM),T_REMAIN
C
C---Gradients and shifts
C

C
C--Logical parameters. 
C--PRINT_TLSPARS - whether to print intermediate values of TLS parameters
C
      LOGICAL PRINT_TLSPARS,TLS_FILE_FLAG,TLS_ADD_ATOMS
      COMMON /TLS_LOG/PRINT_TLSPARS,TLS_FILE_FLAG,TLS_ADD_ATOMS