*DECK C$ITOR
          IDENT  C$ITOR 
          TITLE  CBITOR - INTEGER ** REAL 
  
          MACHINE  ANY,I
          COMMENT  INTEGER ** REAL
 CBITOR   SPACE  4
**        C.ITOR - INTEGER ** REAL
* 
*         INPUT 
*                X1   BASE
*                X3   EXPONENT
* 
*         OUTPUT
*                X5   RESULT
*                B3   ERROR FLAG
* 
*         SAVES 
*                B1 
* 
*         CALLS-
*                FORTRAN OBJECT LIBRARY ROUTINE *ITOX.* 
  
          ENTRY  C.ITOR 
 C.ITOR   DATA   0
          ZR     X1,C.ITOR2 
          ZR     X3,C.ITOR1 
          NG     X1,C.ITOR3 
          RJ     =XITOX.
          BX5    X6 
          SB1    1
          SB3    B0 
          EQ     C.ITOR 
  
 C.ITOR1  SA5    =XC.FP1     X**0 = 1 
          EQ     C.ITOR 
  
 C.ITOR2  NG     X3,C.ITOR3  0**(-X) UNDEFINED
          ZR     X3,C.ITOR   0**0    UNDEFINED
          MX5    0           0**X = 0 
          EQ     C.ITOR 
  
 C.ITOR3  SB3    B1          ERROR
          EQ     C.ITOR 
          END 
