SUBROUTINE  CRUSYM
    
      INTEGER  GROUP1   
      INTEGER  IMPLID   
      INTEGER  NGROUP   
      INTEGER  NIMPLI   
      INTEGER  NOTHER   
      INTEGER  NRELTI   
      INTEGER  OTHERS   
      INTEGER  RELTIV   
      INTEGER  STAX 
      INTEGER  CSOW 
      INTEGER  CSWFA
      INTEGER  CSOFF
      INTEGER  CSNLX
      INTEGER  CSWFB
      COMMON   /CRUCH/  GROUP1 (24) 
      COMMON   /CRUCH/  IMPLID (75) 
      COMMON   /CRUCH/  NGROUP  
      COMMON   /CRUCH/  NIMPLI  
      COMMON   /CRUCH/  NOTHER  
      COMMON   /CRUCH/  NRELTI  
      COMMON   /CRUCH/  OTHERS (165)
      COMMON   /CRUCH/  RELTIV (24) 
      COMMON   /CRUCH/  STAX
      COMMON   /CRUCH/  CSOW, CSWFA, CSOFF, CSNLX, CSWFB
    
      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  NINE 
      INTEGER  COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE
      INTEGER  RBRACE, LBRACE, RETOP, CRUTCH
      INTEGER  LPAREN, RPAREN, LBK, RBK 
      INTEGER  EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW 
      INTEGER  PLUS, MINUS, MULT, DIVIDE, MODOP 
      INTEGER  OROP, ANDOP, AOROP, XOROP, AANDOP
      INTEGER  LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT   
      INTEGER  NEG, UPARO, DNARO, COM   
      INTEGER  LOC, GIZZY, QUOTE, ZRL, TEMPL
      INTEGER  SP, DP, ST, HEX  
      INTEGER  ATSIGN   
      INTEGER  ICLP06   
      COMMON /OPERS/     NINE   
      COMMON /OPERS/     COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE  
      COMMON /OPERS/     RBRACE, LBRACE, RETOP, CRUTCH  
      COMMON /OPERS/     LPAREN, RPAREN, LBK, RBK   
      COMMON /OPERS/     EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW   
      COMMON /OPERS/     PLUS, MINUS, MULT, DIVIDE, MODOP   
      COMMON /OPERS/     OROP, ANDOP, AOROP, XOROP, AANDOP  
      COMMON /OPERS/     LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT 
      COMMON /OPERS/     NEG, UPARO, DNARO, COM 
      COMMON /OPERS/     LOC, GIZZY, QUOTE, ZRL, TEMPL  
      COMMON /OPERS/     SP, DP, ST, HEX
      COMMON /OPERS/    ATSIGN  
      COMMON /OPERS/    ICLP06  
    
      INTEGER     STK (20, 13)  
      INTEGER     NAMEX (40)
      INTEGER     OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      INTEGER ICLP14
      COMMON      /SDEFS/ STK,    OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      COMMON      /SDEFS/ ICLP14
      EQUIVALENCE (STK (1,1), NAMEX (1))
      INTEGER     IERR  
      EXTERNAL    OLCRU 
      IF (NAMEX (OPX).NE.0) CALL FAULTP (50)
      CALL OCRUSY   
      IF (.NOT. ( CSWFA .GT. 0 ))GO TO 13000
    
      CALL BLDOP (CSOW, CSWFA, CSOFF, CSNLX, CSWFB) 
      GO TO 13001   
13000 CONTINUE  
    
      CALL FAULTP (-CSWFA)  
      IF (CSWFA .NE. -22) CALL SCAN (SEMIC, 0, 0)   
13001 CONTINUE  
    
      NEXTOP = COMMA
      RETURN
      END