INTEGER  FUNCTION DECODE (ITYPE, INDEX)   
      INTEGER     ITYPE, INDEX  
      INTEGER     TABLE (2, 44), EXCEPT (2, 6, 4)   
    
      INTEGER  LEVELB, NLEVEL, LLEVEL, ILEVEL, CLEVEL   
      INTEGER ICLP04
      COMMON   /LEVELS/ LEVELB, NLEVEL, LLEVEL, ILEVEL, CLEVEL  
      COMMON   /LEVELS/ ICLP04  
      DATA  TABLE (1,  1) / 0/  
      DATA  TABLE (1,  2) / 4/  
      DATA  TABLE (1,  3) / 4/  
      DATA  TABLE (1,  4) / 4/  
      DATA  TABLE (1,  5) / 4/  
      DATA  TABLE (1,  6) /-6/  
      DATA  TABLE (1,  7) / 4/  
      DATA  TABLE (1,  8) / 4/  
      DATA  TABLE (1,  9) / 4/  
      DATA  TABLE (1, 10) / 4/  
      DATA  TABLE (1, 11) / 4/  
      DATA  TABLE (1, 12) / 4/  
      DATA  TABLE (1, 13) / 2/  
      DATA  TABLE (1, 14) / 4/  
      DATA  TABLE (1, 15) / 2/  
      DATA  TABLE (1, 16) / 4/  
      DATA  TABLE (1, 17) /-1/  
      DATA  TABLE (1, 18) /-1/  
      DATA  TABLE (1, 19) /-1/  
      DATA  TABLE (1, 20) /-1/  
      DATA  TABLE (1, 21) /-1/  
      DATA  TABLE (1, 22) /-1/  
      DATA  TABLE (1, 23) /-2/  
      DATA  TABLE (1, 24) /12/  
      DATA  TABLE (1, 25) /12/  
      DATA  TABLE (1, 26) /14/  
      DATA  TABLE (1, 27) /14/  
      DATA  TABLE (1, 28) /14/  
      DATA  TABLE (1, 29) /-3/  
      DATA  TABLE (1, 30) /-4/  
      DATA  TABLE (1, 31) /16/  
      DATA  TABLE (1, 32) /16/  
      DATA  TABLE (1, 33) /18/  
      DATA  TABLE (1, 34) /20/  
      DATA  TABLE (1, 35) /20/  
      DATA  TABLE (1, 36) /20/  
      DATA  TABLE (1, 37) /20/  
      DATA  TABLE (1, 38) /20/  
      DATA  TABLE (1, 39) /20/  
      DATA  TABLE (1, 40) /14/  
      DATA  TABLE (1, 41) /-5/  
      DATA  TABLE (1, 42) /22/  
      DATA  TABLE (1, 43) /20/  
      DATA  TABLE (1, 44) / 2/  
      DATA  EXCEPT (1, 1, 1) / 4/   
      DATA  EXCEPT (1, 1, 2) /10/   
      DATA  EXCEPT (1, 1, 3) / 4/   
      DATA  EXCEPT (1, 1, 4) /10/   
      DATA  EXCEPT (1, 2, 1) / 4/   
      DATA  EXCEPT (1, 2, 2) /10/   
      DATA  EXCEPT (1, 2, 3) /10/   
      DATA  EXCEPT (1, 2, 4) / 4/   
      DATA  EXCEPT (1, 3, 1) / 6/   
      DATA  EXCEPT (1, 3, 2) / 6/   
      DATA  EXCEPT (1, 3, 3) / 6/   
      DATA  EXCEPT (1, 3, 4) /16/   
      DATA  EXCEPT (1, 4, 1) / 6/   
      DATA  EXCEPT (1, 4, 2) / 6/   
      DATA  EXCEPT (1, 4, 3) / 6/   
      DATA  EXCEPT (1, 4, 4) /18/   
      DATA  EXCEPT (1, 5, 1) / 4/   
      DATA  EXCEPT (1, 5, 2) /22/   
      DATA  EXCEPT (1, 5, 3) / 4/   
      DATA  EXCEPT (1, 5, 4) /22/   
      DATA  EXCEPT (1, 6, 1) / 4/   
      DATA  EXCEPT (1, 6, 2) / 2/   
      DATA  EXCEPT (1, 6, 3) / 2/   
      DATA  EXCEPT (1, 6, 4) / 2/   
    
      DATA  TABLE (2,  1)  / 2/ 
      DATA  TABLE (2,  2)  / 1/ 
      DATA  TABLE (2,  3)  / 1/ 
      DATA  TABLE (2,  4)  / 1/ 
      DATA  TABLE (2,  5)  / 1/ 
      DATA  TABLE (2,  6)  / 1/ 
      DATA  TABLE (2,  7)  / 1/ 
      DATA  TABLE (2,  8)  / 1/ 
      DATA  TABLE (2,  9)  / 1/ 
      DATA  TABLE (2, 10)  / 1/ 
      DATA  TABLE (2, 11)  / 1/ 
      DATA  TABLE (2, 12)  / 1/ 
      DATA  TABLE (2, 13)  / 3/ 
      DATA  TABLE (2, 14)  / 4/ 
      DATA  TABLE (2, 15)  / 3/ 
      DATA  TABLE (2, 16)  / 5/ 
      DATA  TABLE (2, 17)  /-1/ 
      DATA  TABLE (2, 18)  /-1/ 
      DATA  TABLE (2, 19)  /-1/ 
      DATA  TABLE (2, 20)  /-1/ 
      DATA  TABLE (2, 21)  /-1/ 
      DATA  TABLE (2, 22)  /-1/ 
      DATA  TABLE (2, 23)  /-2/ 
      DATA  TABLE (2, 24)  / 8/ 
      DATA  TABLE (2, 25)  / 8/ 
      DATA  TABLE (2, 26)  / 9/ 
      DATA  TABLE (2, 27)  / 9/ 
      DATA  TABLE (2, 28)  / 9/ 
      DATA  TABLE (2, 29)  /10/ 
      DATA  TABLE (2, 30)  /10/ 
      DATA  TABLE (2, 31)  / 8/ 
      DATA  TABLE (2, 32)  / 8/ 
      DATA  TABLE (2, 33)  / 8/ 
      DATA  TABLE (2, 34)  /11/ 
      DATA  TABLE (2, 35)  /11/ 
      DATA  TABLE (2, 36)  /11/ 
      DATA  TABLE (2, 37)  /11/ 
      DATA  TABLE (2, 38)  /11/ 
      DATA  TABLE (2, 39)  /11/ 
      DATA  TABLE (2, 40)  /12/ 
      DATA  TABLE (2, 41)  /-3/ 
      DATA  TABLE (2, 42)  /14/ 
      DATA  TABLE (2, 43)  /15/ 
      DATA  TABLE (2, 44)  / 3/ 
      DATA  EXCEPT (2, 1, 1) / 1/   
      DATA  EXCEPT (2, 1, 2) / 6/   
      DATA  EXCEPT (2, 1, 3) / 1/   
      DATA  EXCEPT (2, 1, 4) /16/   
      DATA  EXCEPT (2, 2, 1) / 1/   
      DATA  EXCEPT (2, 2, 2) / 7/   
      DATA  EXCEPT (2, 2, 3) / 7/   
      DATA  EXCEPT (2, 2, 4) / 1/   
      DATA  EXCEPT (2, 3, 1) / 1/   
      DATA  EXCEPT (2, 3, 2) /13/   
      DATA  EXCEPT (2, 3, 3) / 1/   
      DATA  EXCEPT (2, 3, 4) /13/   
      DECODE = TABLE (ITYPE, INDEX) 
      IF (.NOT. (DECODE .LT. 0))GO TO 13085 
    
      DECODE = -DECODE  
      DECODE = EXCEPT (ITYPE, DECODE, LEVELB)   
13085 CONTINUE  
    
      RETURN
      END