C
C   *** SELCOM ***
C
      COMMON /SELCOM/ COL1(20),ITEMW(20),CURPOS(20),NUMCOL(20),
     X                PGRAPH(20),ATYPE(20),LEN(20),
     X                ROWD(20),COLD(20),FP(20),
     X                SINGLE(20),
     X                TITLE(38),MINUS(38),LINE(38),MCPL,LPP,NUMATT
     X                ,UMCPL,ULPP,TRUNC(20),VAR(20)
      LOGICAL VAR,TRUNC
      INTEGER COL1,CURPOS,ATYPE,ROWD,COLD,FP,SINGLE
      INTEGER UMCPL,ULPP
      INTEGER PGRAPH,TITLE
C
C     ARRAYS WITH INFO FOR EACH ATTRIBUTE
C     COL1......FIRST COLUMN IN LINE TO PRINT INTO
C     ITEMW.....NUMBER OF COLUMNS PER ITEM
C     CURPOS....CURRENT POSITION IN ATTRIBUTE (FOR PARAGRAPHING)
C     NUMCOL....NUMBER OF COLUMNS AVAILABLE FOR THIS ATTRIBUTE
C     PGRAPH....PARAGRAPH NUMBER INPUT BY USER OR ZERO
C     TRUNC.....TRUE IFF ROWS ARE TO BE TRUNCATED  AS PARAGRAPHS
C     ATYPE.....ATTRIBUTE TYPE
C     LEN.......ATTRIBUTE LENGTH (WORDS EXCEPT TEXT IS CHARACTERS)
C     ROWD......ROW DIMENSION
C     COLD......COLUMN DIMENSION
C     VAR.......TRUE IFF VARIABLE ATTRIBUTE
C     FP........POINTER TO CELL IF FIXED POTION OF TUPLE
C     SINGLE....CONTAINS ROW/COL OR ENTRY FOR MAT(I,J)/VEC(J) ITEMS
C
C     OTHER STUFF
C     LINE......OUTPUT LINE SPACE (NEEDS TO BE 150 CHARACTERS BIG)
C     TITLE.....TITLE LINE (ALSO 150 CHARS.)
C     MINUS.....LINE WITH THEM FUNNY LITTLE DASHES (ALSO 150 CHARS.)
C     MCPL......MAX COLUMNS PER LINE
C     UMCPL.....USER SPECIFIED MAX COLUMNS PER LINE
C     LPP.......LINES PER PAGE
C     ULPP......USER SPECIFIED LINES PER PAGE
C     NUMATT....NUMBER OF ATTRIBUTES THIS SELECT
C