SUBROUTINE  FAULTP (FAULT) 
 
      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 
 
      INTEGER     EXFLT,   FLTNR 
      COMMON      /FLTS/   EXFLT,   FLTNR 
      INTEGER     FAULT 
      EXTERNAL    OLFLT 
      IF (.NOT. (CTLUSE .NE. 0))GO TO 13000 
 
      CTLERR = FAULT 
      GO TO 13001 
13000 CONTINUE 
 
      FLTNR = FAULT 
      CALL OFAULT 
      EXFLT = 0 
13001 CONTINUE 
 
      RETURN 
      END