SUBROUTINE  FATAL (ERROR) 
      INTEGER     ERROR 
 
      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 
      EXTERNAL    OLPS2 
      CTLUSE = 0 
      CALL FAULTP (ERROR) 
      CALL QUIT 
      STOP 
      END