C     EDIT DATE   09OCT78  11:12
C     SOURCE FILE   CTRLAJH.IN
C     AUTHOR        A. J. HOWARD
C     CLUSTER       80
C     COMPILER CONTROL DIRECTIVE FLAGS
C
C
C     LISTF    EXPLODED LISTING        ''LIST
C     SNLPRT   SHORT NAME LIST PRINT   ''SHORT
C     SUMPRT   SUMMARY PRINT           ''SUMMARY
C     SYMFLG   SYMBOLS INCLUDED IN OBJECT
C                                      ''SYMBOLS
      INTEGER     LISTF,  SNLPRT, SUMPRT, SYMFLG
      INTEGER     PRINTF, SKIP,   COMPFL (2)
      INTEGER     LOCPRT, USFLGS, NEGFLG, SKNAME (8)
      INTEGER     ORGFLG, CTLUSE, CTLERR, TTL (8)
      INTEGER     DUMFLG
      COMMON      /CTLCOM/    LISTF,  SNLPRT, SUMPRT, SYMFLG
      COMMON      /CTLCOM/    PRINTF, SKIP,   COMPFL
      COMMON      /CTLCOM/    LOCPRT, USFLGS, NEGFLG, SKNAME
      COMMON      /CTLCOM/    ORGFLG, CTLUSE, CTLERR, TTL
      COMMON      /CTLCOM/    DUMFLG