SUBROUTINE  OFAULT 
      INTEGER     PFLTS 
 
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      INTEGER     NEXT,   NUMBER, I,      IOTYPE 
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP 
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      INTEGER ICLP05 
      LOGICAL     ENDOK,CONEND 
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE 
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N 
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX 
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS 
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP 
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      COMMON   /LOGOS/  ICLP05 
      COMMON   /LOGOS/  ENDOK,CONEND 
 
      INTEGER  LBUF (66) 
      INTEGER  LCOUNT 
      INTEGER  PGECNT 
      INTEGER  UHEAD (15) 
      INTEGER  CHEAD (8) 
      INTEGER ICLP09 
      COMMON   /PRT/    LBUF 
      COMMON   /PRT/    LCOUNT 
      COMMON   /PRT/    PGECNT 
      COMMON   /PRT/    UHEAD 
      COMMON   /PRT/    CHEAD 
      COMMON   /PRT/    ICLP09 
 
      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  QUOTEX 
      INTEGER  CONTF 
      INTEGER  CONTRL 
      INTEGER  HEAD 
      INTEGER  EJECT 
      INTEGER  BLANK 
      INTEGER  SLASH 
      INTEGER  CARDC 
      INTEGER  FLINCT (8) 
      INTEGER  EOCC 
      INTEGER  ENDCRD (3) 
      INTEGER  RECORD (66) 
      INTEGER  RECPTR 
      INTEGER  SOURCE (150) 
      INTEGER  SRCEND 
      INTEGER  SLEN 
      INTEGER  TF (3) 
      COMMON   /SRCE/   QUOTEX 
      COMMON   /SRCE/   CONTF 
      COMMON   /SRCE/   CONTRL 
      COMMON   /SRCE/   HEAD 
      COMMON   /SRCE/   EJECT 
      COMMON   /SRCE/   BLANK 
      COMMON   /SRCE/   SLASH 
      COMMON   /SRCE/   CARDC 
      COMMON   /SRCE/   FLINCT 
      COMMON   /SRCE/   EOCC 
      COMMON   /SRCE/   ENDCRD 
      COMMON   /SRCE/   RECORD 
      COMMON   /SRCE/   RECPTR 
      COMMON   /SRCE/   SOURCE 
      COMMON   /SRCE/   SRCEND 
      COMMON   /SRCE/   SLEN 
      COMMON   /SRCE/   TF 
 
      INTEGER     EXFLT,   FLTNR 
      COMMON      /FLTS/   EXFLT,   FLTNR 
 
      INTEGER     MSGS(16,100) 
      INTEGER     MSG01(16,10) 
      INTEGER     MSG11(16,10) 
      INTEGER     MSG21(16,10) 
      INTEGER     MSG31(16,10) 
      INTEGER     MSG41(16,10) 
      INTEGER     MSG51(16,10) 
      INTEGER     MSG61(16,10) 
      INTEGER     MSG71(16,10) 
      INTEGER     MSG81(16,10) 
      COMMON      /FLTMSG/ MSGS 
      EQUIVALENCE (MSGS(1, 1),MSG01(1,1)) 
      EQUIVALENCE (MSGS(1,11),MSG11(1,1)) 
      EQUIVALENCE (MSGS(1,21),MSG21(1,1)) 
      EQUIVALENCE (MSGS(1,31),MSG31(1,1)) 
      EQUIVALENCE (MSGS(1,41),MSG41(1,1)) 
      EQUIVALENCE (MSGS(1,51),MSG51(1,1)) 
      EQUIVALENCE (MSGS(1,61),MSG61(1,1)) 
      EQUIVALENCE (MSGS(1,71),MSG71(1,1)) 
      EQUIVALENCE (MSGS(1,81),MSG81(1,1)) 
      PFLTS = PRINTF 
      IF (.NOT. (PFLTS .EQ. 0))GO TO 13002 
 
      CALL ESP (PGECNT, LBUF, 1, 4) 
      CALL ESP (FLINCT (PI), LBUF, 1, 8) 
      CALL EST (RECORD, LBUF, 11, 90) 
      PRINTF = 1 
      CALL SGLPRT 
13002 CONTINUE 
 
      CALL SGLPRT 
      CALL EST ('**ERROR**', LBUF, 1, 9) 
      CALL EST (MSGS (1, FLTNR), LBUF, 11, 42) 
      IF (EXFLT .NE. 0) CALL ESP (EXFLT, LBUF, 1, 54) 
      CALL WRLIN (CO, LBUF, 55) 
      CALL SGLPRT 
      CALL SGLPRT 
      FLTCNT = FLTCNT + 1 
      PRINTF = PFLTS 
      RETURN 
      END