Esope source files

   1 : C RLTOCX    SOURCE    CHAT      05/01/13    03:03:33     5004           
   2 :       FUNCTION RLTOCX(XRE,XIM)                                                  
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 : *                                                                               
   6 : *   VERSION SUPPOSEE PORTABLE DE LA CONVERSION DE 2                             
   7 : *   REELS 8 EN UN COMPLEXE 16                                                   
   8 : *   M. PETIT LE 13/2/91                                                         
   9 : *                                                                               
  10 :       REAL*8 XRE,XIM                                                            
  11 :       COMPLEX*16 RLTOCX,ZCMP                                                    
  12 :       DIMENSION XX(2)                                                           
  13 :       EQUIVALENCE (ZCMP,XX(1))                                                  
  14 :       XX(1)=XRE                                                                 
  15 :       XX(2)=XIM                                                                 
  16 :       RLTOCX=ZCMP                                                               
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :