























      INTEGER       PDBUNT, MAXCHK, TEXUNT, MAXCDBSTR, MAXMODEL, MAXSETS
      PARAMETER     (PDBUNT=35)
      PARAMETER     (MAXCHK=50)
      PARAMETER     (TEXUNT=39)
      PARAMETER     (MAXCDBSTR=20)
      PARAMETER     (MAXMODEL=100)
      PARAMETER     (MAXSETS=2)

      INTEGER       PDBTLN, NUMCDBSTR, VALACT
      CHARACTER*3   TEXLEVEL
      CHARACTER*80  SECTION, PDBFMT, TABCOLHED
      CHARACTER*132 TABHED
      CHARACTER*160 TODOSTR
      CHARACTER*10  CDBSTR(MAXCDBSTR), CDBQUA(MAXCDBSTR)
      CHARACTER*11  PDBERR, PDBNEU, PDBGOO
      LOGICAL       TABANY, CHKALL, HAS_Z
      REAL          NMRVAL(MAXSETS,MAXMODEL), FIXLST(100), 
     +              FIXRES(20000)

      COMMON   /TEX_INT/   PDBTLN, NUMCDBSTR, VALACT
      COMMON   /TEX_CHR/   TEXLEVEL, SECTION, TABHED, CDBSTR, PDBFMT,
     +                     PDBERR, PDBNEU, PDBGOO, TODOSTR, CDBQUA,
     +                     TABCOLHED
      COMMON   /TEX_LOG/   TABANY, CHKALL, HAS_Z
      COMMON   /TEX_NMR/   NMRVAL
      COMMON   /TEX_FIX/   FIXRES
      COMMON   /TEX_FX2/   FIXLST
