BLOCK DATA 
 
      INTEGER     LISTF,  SNLPRT, SUMPRT, SYMFLG 
      INTEGER     PRINTF, SKIP,   COMPFL (2) 
      INTEGER     LOCPRT, USFLGS, NEGFLG, SKNAME (8) 
      INTEGER     ORGFLG, CTLUSE, CTLERR, TTL (8) 
      INTEGER     DUMFLG 
      INTEGER ICLP01 
      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 
      COMMON      /CTLCOM/ ICLP01 
      DATA  LISTF, SNLPRT / 0, 1/ 
      DATA  SUMPRT   /0/ 
      DATA  SYMFLG   /0/ 
      DATA  PRINTF   /1/ 
      DATA  SKIP     /0/ 
      DATA  COMPFL   /2*0/ 
      DATA  LOCPRT   /1/ 
      DATA  USFLGS   /0/ 
      DATA  ORGFLG   /0/ 
      DATA  CTLUSE   /0/ 
      DATA  TTL      /'  ','  ','  ','  ','  ','  ','  ','  '/ 
      DATA  DUMFLG   /0/ 
      END