PARAMETER (LOPS=23)
      INTEGER ILEFP(LOPS),IRITP(LOPS),ILENO(LOPS)
      CHARACTER*(LOPER) COPER(LOPS)
      DATA COPER /'**    ','*     ','/     ','+     ','-     ','//    ',
     &            '.LT.  ','.GT.  ','.LE.  ','.GE.  ','.EQ.  ','.NE.  ',
     &            '.NOT. ','.AND. ','.OR.  ','.EQV. ','.NEQV.',':     ',
     &            ',     ','=     ','(     ',')     ','END   '/
      DATA ILENO /2,1,1,1,1,2,4,4,4,4,4,4,5,5,4,5,6,1,1,1,1,1,3/
C left precedence of operators
      DATA ILEFP /17      ,16      ,16      ,15      ,15      ,14      ,
     &            13      ,13      ,13      ,13      ,13      ,13      ,
     &            12      ,11      ,10      ,9       ,9       ,7       ,
     &            6       ,3       ,4       ,-1      ,2       /
C right precedence of operators
      DATA IRITP /18      ,16      ,16      ,15      ,15      ,14      ,
     &            13      ,13      ,13      ,13      ,13      ,13      ,
     &            12      ,11      ,10      ,9       ,9       ,7       ,
     &            6       ,3       ,20      ,4       ,2       /