*DECK C$ITOD
          IDENT  C$ITOD 
          TITLE  CBITOD - INTEGER ** DOUBLE 
  
          MACHINE  ANY,I
          COMMENT  INTEGER ** DOUBLE
 CBITOD   SPACE  4
**        C.ITOD - INTEGER ** DOUBLE
* 
*         INPUT 
*                X1   BASE
*                X3   EXPONENT (UPPER HALF) 
*                X4   EXPONENT (LOWER HALF) 
* 
*         OUTPUT
*                X5   RESULT (UPPER HALF) 
*                X0   RESULT (LOWER HALF) 
*                B3   ERROR FLAG
* 
*         SAVES 
*                B1 
* 
*         CALLS-
*                FORTRAN OBJECT LIBRARY ROUTINE *ITOD.* 
  
          ENTRY  C.ITOD 
 C.ITOD   DATA   0
          SB3    B0          ZERO ERROR FLAG
          ZR     X1,C.ITOD2 
          ZR     X3,C.ITOD1 
          NG     X1,C.ITOD3 
          RJ     =XITOD.
          BX5    X6 
          BX0    X7 
          SB1    1
          SB3    B0 
          EQ     C.ITOD 
  
 C.ITOD1  SA5    =XC.FP1     X**0 = 1 
          MX0    0
          EQ     C.ITOD 
  
 C.ITOD2  NG     X3,C.ITOD3  0**(-X) UNDEFINED
          ZR     X3,C.ITOD3  0**0 UNDEFINED 
          MX5    0           0**X = 0 
          MX0    0
          EQ     C.ITOD 
  
 C.ITOD3  SB3    B1          ERROR
          EQ     C.ITOD 
          END 
