*DECK C$ITOI
          IDENT  C$ITOI 
          TITLE  CBITOI - INTEGER ** INTEGER
  
          MACHINE  ANY,I
          COMMENT  INTEGER ** INTEGER 
 CBITOI   SPACE  4
**        C.ITOI - INTEGER ** INTEGER 
* 
*         INPUT 
*                X1   BASE
*                X3   EXPONENT
* 
*         OUTPUT
*                X5   RESULT
*                B3   ERROR FLAG
* 
*         SAVES 
*                B1 
* 
*         CALLS-
*                FORTRAN OBJECT LIBRARY ROUTINE *ITOJ.* 
  
          ENTRY  C.ITOI 
 C.ITOI   DATA   0
          SB3    B0          ZERO ERROR FLAG
          ZR     X1,C.ITOI2 
          ZR     X3,C.ITOI1 
          RJ     =XITOJ.
          BX5    X6 
          SB1    1
          SB3    B0 
          EQ     C.ITOI 
  
 C.ITOI1  SX5    1           X**0 = 1 
          EQ     C.ITOI 
  
 C.ITOI2  NG     X3,C.ITOI3  0**(-X) UNDEFINED
          ZR     X3,C.ITOI3  0**0    UNDEFINED
          MX5    0           0**X = 0 
          EQ     C.ITOI 
  
 C.ITOI3  SB3    B1          ERROR
          EQ     C.ITOI 
          END 
