*     COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1979, 1980
*
***   STANDARD COMMON BLOCK DECLARATIONS
*     ==================================
*
** PARAMETERS
*  ----------
*
      PARAMETER ARALIM=10,GRPLIM=100,SETLIM=120,DEFLIM=10*SETLIM
      PARAMETER AVGSETS=20
*
*            NAME     DESCRIPTION
*            ----     -----------
*            ARALIM   LIMIT TO NUMBER OF DEFINED AREAS
*            GRPLIM   LIMIT TO NUMBER OF DEFINED GROUPS
*            SETLIM   LIMIT TO NUMBER OF DEFINED SETS
*            DEFLIM   LIMIT TO NUMBER OF POINTER DEFINITIONS
*                     (I.E. MEMBER DEFINITIONS+OWNER DEFINITIONS)
*                     GIVEN BY A ESTIMATED MAXIMUM AVERAGE NUMBER
*                     OF GROUPS IN EACH SET
*
**
** I/O UNIT NUMBERS AND STATUS INFORMATION
*  ---------------------------------------
*
      INTEGER USSCHM,SSCCNT
      COMMON /SSCHIO/USSCHM,SSCCNT
*
*     CONTENTS:
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            USSCHM   INTEGER     UNIT NUMBER FOR SUBSCHEMA INFO
*            SSCCNT   INTEGER     COUNT OF RECORDS READ ON USSCHM
*
**
** AREA DEFINITION
*  ---------------
*
      INTEGER ARACNT,AREA,ARASIZ,ARALSZ,ARAISZ,ARANAM
      LOGICAL ARACHK,ARACFR
      DIMENSION AREA(ARALIM),ARASIZ(ARALIM),ARALSZ(ARALIM)
      DIMENSION ARAISZ(ARALIM),ARANAM(ARALIM,32)
      DIMENSION ARACHK(ARALIM),ARACFR(ARALIM)
      COMMON /ARADEF/ARACNT,AREA,ARASIZ,ARALSZ,ARAISZ,ARANAM,ARACHK,
     @ARACFR
*
*     CONTENTS:
*            NAME     TYPE        DESCRIPTION
*            ARACNT   INTEGER     COUNT OF THE NUMBER OF DEFINED AREAS
*            AREA     INTEGER     INDEX ARRAY OF AREA NUMBERS
*            ARASIZ   INTEGER     SIZE OF AREA IN PAGES
*            ARALSZ   INTEGER     SIZE OF AREA LINE NUMBERS IN BITS
*            ARAISZ   INTEGER     AREA INDEX KEY SIZE
*            ARANAM   INTEGER     AREA NAMES IN UNPACKED TEXTC
*            ARACHK   LOGICAL     CHECKSUMS FLAGS
*            ARACFR   LOGICAL     ENCIPHERED AREA FLAGS
*
**
** GROUP DEFINITION
*  ----------------
*
      INTEGER GRPCNT,GROUP(GRPLIM),GRPSIZ(GRPLIM,3),GRPRNG(GRPLIM,2)
      INTEGER GRPNAM(GRPLIM,32),GRPSET(GRPLIM)
      INTEGER GRPARA(GRPLIM),GRPLCM(GRPLIM),GRPITB(267)
      COMMON /GRPDEF/GRPCNT,GROUP,GRPARA,GRPSIZ,GRPRNG,GRPNAM,GRPSET,
     @GRPLCM,GRPITB
*
*     CONTENTS:
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            GRPCNT   INTEGER     COUNT OF THE NUMBER OF DEFINED GROUPS
*            GROUP    INTEGER     INDEX ARRAY OF GROUPS
*            GRPARA   INTEGER     AREA IN WHICH GROUP IS DEFINED
*            GRPSIZ   INTEGER     GROUP SIZE DATA,
*                                 ( ,1) GROUP SIZE IN WORDS
*                                 ( ,2) WORKING STG SIZE IN WORDS
*                                 ( ,3) DATA BYTE COUNT
*            GRPRNG   INTEGER     PAGE RANGE OF GROUP
*                                 ( ,1) MIN RANGE
*                                 ( ,2) MAX RANGE
*            GRPNAM   INTEGER     GROUP NAMES IN UNPACKED TEXTC
*            GRPSET   INTEGER     NUMBER OF MEMBER SETS
*            GRPLCM   INTEGER     GROUP LOCATION MODE
*
**
** SET DEFINITION
*  --------------
*
      INTEGER SETCNT,SET,SETOWN,SETNAM
      DIMENSION SET(SETLIM),SETOWN(SETLIM),SETNAM(SETLIM,32)
      COMMON /SETDEF/SETCNT,SET,SETOWN,SETNAM
*
*     CONTENTS:
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            SETCNT   INTEGER     COUNT OF THE NUMBER OF DEFINED SETS
*            SET      INTEGER     INDEX ARRAY OF SETS
*            SETOWN   INTEGER     OWNER GROUP OF SET
*            SETNAM   INTEGER     SET NAMES IN UNPACKED TEXTC
*
**
** TOPOLOGY DEFINITION
*  -------------------
*
      INTEGER TPYLNK(SETLIM,GRPLIM),DEFCNT,SETPTR(DEFLIM,3),
     @SETLISCT(GRPLIM),SETLIST(GRPLIM,AVGSETS)
      LOGICAL GRPINM(DEFLIM)
      COMMON /TPYDEF/TPYLNK,DEFCNT,GRPINM,SETPTR,SETLISCT,SETLIST
*
*            NAME     TYPE        DESCRIPTION
*            ----     ----        -----------
*            TPYLNK   INTEGER     TPYLNK(SET#,GROUP#) IS ZERO IFF
*                                 SET# AND GROUP# DO NOT INTERACT.
*                                 IF NONZERO, THEN THE VALUE IS
*                                 THE INDEX INTO THE POINTER AND
*                                 INCLUSION MODE TABLES
*            DEFCNT   INTEGER     COUNT OF THE NUMBER OF POINTER/
*                                 INCLUSION MODE DEFINITIONS
*            GRPINM   LOGICAL     FLAG TO INDICATE IF THIS GROUP
*                                 CAN BE MANUAL IN A GIVEN SET
*                                 (I.E. TRUE IF MEMBER IS MANUAL OR
*                                 OPTIONAL AUTOMATIC)
*            SETPTR   INTEGER     SETPTR(DEFINDEX,I) IS THE POSITION
*                                 OF A POINTER IN THE RECORD (BYTES).
*                                 THE POSITION IS ZERO IF THE POINTER
*                                 DOES NOT EXIST.
*                                 I=1 MEANS NEXT POINTER
*                                 I=2 MEANS PRIOR POINTER
*                                 I=3 MEANS HEAD(OWNER) POINTER
*            SETLISCT INTEGER     # OF SETS ASSOCIATED WITH A
*                                 PARTICULAR GROUP
*            SETLIST  INTEGER     LIST OF INDICIES INTO POINTER AND
*                                 INCLUSION MODE TABLES FOR A
*                                 PARTICULAR GROUP
*
**
***
