COMMON /CLASS/NCLASS,NPRIOR,NHEADR,IIF,IEND,IFORMT,IRETUR,ILL,
     + ISTMDS(MCLASS,MXSTAT),IALPHA(2,53),IPRIOR(MXSTAT),IHEADR(MXSTAT)
*-----------------------------------------------------------------------
*--- contains statement classification information
*       NCLASS      no. of (internal) classes
*       NPRIOR      no. of priority statements
*       NHEADR      no. of header statements
*       IIF         internal number of the logical IF
*       IEND        internal number of END statement
*       IFORMT      internal number of the FORMAT statement
*       ILL            -       -      -     illegal     -
*      ISTMDS(MCLASS,MXSTAT)  control words being
*                    1 = first ch. in SNAM
*                    2 = last  ch. in SNAM
*                    3 = first ch. in SSTM
*                    4 = last ch. in SSTM
*                    5 = last significant ch. in SSTM
*                    6 = external reference number ( class )
*                    7 = priority ( if 0, any order)
*                    8 = char. in descr. after which to start name
*                        scan.  if 99, start after match string.
*                    9 = stop name scan at stmt. end
*                   10 = statement number classifier, being
*                        0 if statement cannot contain stmt. numbers
*                        1 if (one) stmt. number must follow key immed.
*                        2 if all stmt. no.s are inside first bracket
*                        3 if all stmt. no.s follow immed. first bracket
*                        4 if (one) after FMT=, or second in first br.
*                   11 = exec flag ( 0 = non-executable)
*                   12 = names flag ( 0 = no names, 1 = one, 2 = any)
*                   13 = special treatement flag ( if 1) +2 * smflag
*                       where smflag = 1 allows for simple keyword match
*                   14 = routine header flag (0 no, 1 yes)
*                   15 = type flag:
*                        0 if types valid for all names
*                        1 if separate types for first name + rest
*                        2 if special treatment (IMPLICIT)
*                        to this, 10 is added if only names outside
*                        brackets to be taken, +10 for COMMON
*                   16 = n1 = no. of types for first or all
*                   17 to 16 + n1 = types
*                   17 + n1  = n2
*                   18 + n1 to 21 = types for rest (0 filled)
*       IALPHA(2,53)   for letters 1 to 26 (A to Z,a to z),
*                   first and last class under that letter.
*                   ( keys are in alphabetic order)
*                   53 for those not starting with any key.
*                   if not specified otherwise, those will be
*                   processed last
*       IPRIOR(MXSTAT)       refs of priority statements
*       IHEADR(MXSTAT)       refs of header statements
*-----------------------------------------------------------------------