*DECK C$RTOD
          IDENT  C$RTOD 
          TITLE  CBRTOD - REAL ** DOUBLE
  
          MACHINE  ANY,I
          COMMENT  REAL ** DOUBLE 
 CBRTOD   SPACE  4
**        C.RTOD - REAL ** 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 *XTOD.* 
  
          ENTRY  C.RTOD 
 C.RTOD   DATA   0
          SB3    B0          ZERO ERROR FLAG
          ZR     X1,C.RTOD2 
          ZR     X3,C.RTOD1 
          NG     X1,C.RTOD3 
          RJ     =XXTOD.
          BX5    X6 
          BX0    X7 
          SB1    1
          SB3    B0 
          EQ     C.RTOD 
  
 C.RTOD1  SA5    =XC.FP1     X**0 = 1 
          MX0    0
          EQ     C.RTOD 
  
 C.RTOD2  NG     X3,C.RTOD3  0**(-X) UNDEFINED
          ZR     X3,C.RTOD3  0**0    UNDEFINED
          MX5    0           0**X  = 0
          MX0    0
          EQ     C.RTOD 
  
 C.RTOD3  SB3    B1          ERROR
          EQ     C.RTOD 
          END 
